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PREFACE 



This Program Logic Manual (PLM) is a 
detailed guide to the IBM Disk Operating 
System IPL and Job Control programs. It 
supplements the program listings by 
providing descriptive text and flcv^charts. 

For overall system contrcl Icgic 
description, this PLM is used with seven 
other PLMs: 

• gOS/VS Supervisor Logic, SY33-8551. 

• LCS/VS Error Recovery and Re cording 
Transients, SY33-8552. 

• LQS/VS Logical Transients, SY 33-8553. 

• LCS/VS Serviceability Aids , SY33-8554. 

• LCS/VS Linkage Editor, SY33-8556. 

• DCS/VS Librarian, SY33-8557. 

• DCS/VS LICCS Volume 1, Intrcducticn and 
Imperative Macros , SY3 3- 8 5 5 9 . 

Prerequisite publications that \«ill aid in 
the use of this laianx^ial ares 

• IEM_System/370 Principles of Cge^ , 
GA22-7000. 

• DOS/VS System Control Statements ,, 
GC33-5376. 

• CS/ys and DOS/VS Assembler Language , 
GC33-4010. 

Publications related in subject matter tc 
the eight system control PLMs are: 



• Intrcducticn tc DCS/VS, GC33-5370. 



DCS/VS System Management Guide , 
GC33-5371. 



• DCS/VS Data Management Guide, GC33-5372, 



• DCS/VS Supervisor and I/O Macros , 
GC33-5373. 



• DCS/ VS S ystem Generation, GC33-5377. 

• DCS/VS Operating Prccedures, GC33-5378. 

• DCS/VS Messages, GC33-5379. 

Titles and abstracts cf ether related 
publications are listed in the lEM 
System/ 360_ and System/370 Bibliography , 
GA22-6822. 
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INTRODUCTION 



INITIAL PRCGKAK LOAD (IPL) 



JCE CCOTKCL PROGRAM ($JO£CTLA~ $JCBCTLN) 



The IPL prograir irust be executed each time 
it is necessary to load a new si:perviscr, 
to change the channel and unit assignment 
for SYSRES, SYSVIS or SYSCAT , cr tc change 
the contents of the Tiire-of -Day clock (if 
supported) , and vihen the systeir is powered 
up. The IPL program: 



• Operates in the supervisor ircde, 



The job ccntrol prograir provides jcb~tc-jcb 
transiticr for all prcgrans, background and 
foreground. 



This prograir also prepares jck steps for 
execution. (One or irore prograrrs can be 
executed within a single jcb. Each such 
execution is called a job ste p.) 



• Loads the supervisor frcir SYSRES. 



On the basis of inforiraticn provided in 
jcb ccntrol statements, the job control 
prcgrarr: 



• Prepares the system for full EC 
(extended control) node cperaticn. 



• Adds or deletes requested devices tc the 
supervisor PUE table. 



Sets date and, with TOD support, zone 
values in the comrcunicaticn region (s) if 
required. Changes, at the request of 
the operator, the contents of the TOD 
clock (if supported). 



Builds the PUB2 table. 



• Prepares the system fcr execution of 

prograrrs. 



• Assigns physical device addresses tc 
logical units. 



• Includes cataloged procedures and 
procedure modifier statements. 



• Sets up fields in the communication 
region (s) . 



• Assigns SYSCAT if the CAT command is 
included (VSAM only) . 



• Edits and stores volume and file label 
infcriraticn. 



• Assigns, formats, opens cr reopens the 
page data set (SYSVIS) depending upon 
the operands in the DPD command. 



• Places the system in the problem mode. 



Prepares the system, fcr restarting 
checkpcinted programs. 



Clears the partition to binary zeros 
between job steps, (if jck step is in 
real mode), otherwise it causes the 
pages tc be cleared as they are used. 



• Exits to EOJ when it is finished. 



Additional information is supplied in the 
section, IPL Program . 



The jot ccntrol program is executed in the 
virtual partition of the partition it is 
preparing. For additional irfcrnaticn, 
refer to the section. Job Cont:rcl Program. 
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IPL PRCGRAM 



$$J^$IPL1 AND $$A$IPL2, CHART 01 



Eefcre the supervisor is loaded and the IPL 
coniirands processed the systeir irust be 
prepared by a special stand-alone prograiti. 
This prograir consists of tvic phases: 

• $$A$IPL1 (a 6^-byte bootstrap routine), 
and 

• $$A$IPL2 (less than 4096 bytes). 

The $$A$IPL1 bootstrap prograir is located 
on SYSRES at 00 00 1 (CC HH R) . The 
operator sets the channel and unit of 
SYSRES in the load unit switches (keyboard 
if irodel 115 or 125) and presses the load 
key CENTER key if model 115 or 125). The 
iricroprograir reads the first record (24 
bytes) from SYSRES into real storage 
starting at real storage location CO. This 
24-byte record consists of a PSVi starting 
at location and two chained CCVis starting 
at location 8. 

The microprogram executes the first CCW 
at location 8, which reads in the next 40 
bytes (3 more chained CCWs and a seek 
address) from SYSRES (cylinder 0, track 0, 
record 2). The second CCW is a seek for 
the $$A$IPL2 program on SYSRES (cylinder 0, 
track 01, record 5). The next three CCWs 
are a search, transfer in channel, and read 
for cylinder 0, track 01, record 5 to load 
the $$A$IPL2 program. Control is 
transferred to the $$A$IPL2 prograir by 
loading the PSW at location 0. 

$$A$IPL2 clears real storage from its 
own end to the end of real storage. A 
program check is forced and the program 
check new PSVv returns control to the 
$$A$IPL2 program. The storage address at 
which the addressing exception occurs is 
used as the address of the end-of~real- 
stcrage. Soft machine checks are accepted 
during the clearing of real storage. 

After real storage has teen cleared, the 
wait state is entered, at which tine the 
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After the supervisor has been loaded an 
SVC 33 is issued which transfers control to 
a temporary routine located in the copy 
buffer area of the supervisor. This 
routine (INITDAT) loads the control 
register and enables the EAT (Eynamic 
Address Translation) feature in the current 
PSW and in the SVC new PSW. It also 
determines if the end-of-storage address 
obtained when storage was cleared is the 
correct address to be used (if the value 
specified in RSIZE at system generation 
time is smaller than the actual size of 
real storage, the RSIZE value will be used 
and the excess real storage will be 
unused). If RSIZE was specified larger 
than the available real storage the page 
and page frame table entries for the excess 
are set tc show that it is unusable. 

Figure 1 shows an example of the I/C 
tables for a 2-device system built by 
$$A$IPL2. 
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LUB table 






FF 


1 


FF 


2 


FF 


3 


FF 


4 


FF 


5 


FF 


6 


SYSRES 


7 


FF 


8 


FF 


9 


SYSUSE 



FOCL Pointers 
i 




channel bucket 



address 



0000 



address 



0000 



0000 



0000 



0000 



Note: It IS assumed that SYSRES is on channel 2 and that the comnnunication device SYSUSE is on channel 0. 
Figure 1. I/O Tables for Tv^c-Device Systeir 



After the SYSGEN I/O tables have been 
iroved, a PUE entry is irade fcr SYSRES. The 
SYSRES LUB is assigned for this PUE, The 
system is put into the wait state and the 
operator has the option of selecting the 
coirrrunication device for IPL, If the 
desired comirunication device is: 



!• A cardreader^ and it is already- 
assigned as SYSRDR^ the cperatcr 
presses the external interrupt key 
causing an external interrupt. 

2. A cardreader^ and it is not assigned as 
SYSRDR, the operator presses the start 
key on the reader causing an I/O 
interrupt (device end) . 

3« A console printer-keybcrd^ the operator 
presses the request key causing an I/O 
interrupt (attention) . 



iAfter the operator has taken the 
appropriate action for choosing a 
ccirirunicaticn device, a PUE entry for 
SYSUSE is irade and the SYSUSE lUE is 
assigned fcr this PUE. The EOCL and the 
channel bucket are built for this 2-device 
systeir. This coirpletes the building of the 
2-device system for IPI. 

If a ccrsole printer-keybcrd was used as 
coirirunication device, an infcriraticn 
iressage is given. This nessage contains 
the SYSRES device address, the SYSRES 
vcluire serial nuirber, and the CPU 
identification . 

The prcgrarr enters the prcbleir state and 
$IPLRT2 is loaded. Control is transferred 
tc $IPIRT2. 



IPL, 



Figure 2 shows the storage layout during 
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X'OOOO' 
X'18' 

X'30' 



Step 1 



X'3000' t: 



PSW 



CCW3 



CCW1 



CCW4 



CCW2 



CCW5 



DISK ADDRESS OF $$A$IPL2 



$$A$IPL2 - Clears storage, determines 
supervisor name, loads supervisor, moves 
I/O tables from SUPVR area to end of 
supervisor builds two device system and 
sets storage protection keys 



$$A$IPL1 



S$A$!PL2 



tna or ororage 
Step 1 - real storage map after $$A$IPL2 has been loaded. 



X'OOOO' 
X'18' 

X'30' 



X'3000' 



Step 2 



PSW 



CCW3 



CCWl 



CCW4 



CCW2 



CCW5 



DISK ADDRESS OF $$A$IPL2 



INITDAT 



'''$$A$IPL2 Is moved to 12K beyond 
the end of the supervisor. 



$$A$IPL2 - Clears storage, determines 
supervisor name, loads supervisor, moves 
I/O tables from SUPVR area to the end 
of the supervisor, builds two device 
system, and sets storage protection keys, 
calls tNlTDAT prepare supervisor for EC 
operation. 



$$A$IPL1 



$$A$IPL2 



Fnd of Storage 
Step 2 - real storage map after $$A$IPL2 has been moved. 





Step 3 


X'OOOO' 


Supervisor Constants 




Supervisor loaded by $$A$IPL2 




SYSGEN I/O tables 


End 




of SUPVR 


SYSGEN I/O tables moved to end of 
supervisor 






EOS + 
X'lOOO' 


$IPLRT2 is loaded into this area at 
the finish of $$A$IPL2 











Step 4 



End of Storage 

Step 3 - real storage map after $$A$IPL2 has 
loaded the supervisor. 

I Figure 2. IPL Real Storage Kap 



> Supervisor 



$IPLRT2 



X'OOOO' 



End 

of 

SUPVR 



Supervisor Constants 



SYSGEN I/O tables moved back 
into supervisor at the end of $IPLRT4 



End of Job transient ($$BEOJ3) 
loaded into problem program area at 
finish of $IPLRT5 



Supervisor 



End of Storage 
Step 4 - real storage map after $IPLRT5 has been executed. 
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$IPIRT2, CHART 02 



$IPLRT2 is the root phase of the program 
which completes system preparation and 
processes the IFL commands. It is loaded 
(by the $$A$IPL2 program.) starting at 
location EOS (End-of -Supervisor) (see 
Figure 2, step 3). 



$IPIRT2: 



• Scans the LUB table entries in each 
partition and establishes partition 
ownership for each entry. 

• Checks for TOD support. If TOD support 
is present, stores the TOE deck and, 
depending on the state of the clock, 
displays messages on SYSLCG or, if 
SYSRDR is the communication device, 
places them in lower storage. If the 
clock is in the •set-state', displays 
the date, time-of-day and zone are on 
SYSLOG (if this is the ccnmunication 
device) . A switch is set if the clock 
is in the 'error* or 'not-set' state. 

• Checks for RMSR support. Finds the 
extended logout area and loads $$BCCHHR 
to build the load list. 

• lyionitors storage usage and indicates 
whether there is enough real storage 
available to have $IPLRT3, $IFIRT4, and 
$IPLRT5 in storage at the same time. 
When there is not enough real storage 
available, a switch is set, indicating 
that $IPIRT3,, $IPLRT4, and $IFIRT5 will 
be separately loaded into the same area 
as needed. 

• Contains the error subroutines to issue 
the error messages when necessary. 

• loads the appropriate phase (s) into real 
storage after the $IPLRT2 program. If 
the first command is a SET command, 
$IPLRT4 is loaded. If the first command 
read is a DEI or an ADD command and 
there is sufficient real storage 
available to allow both $IPLRT3 and 
$IPLRT4 to be loaded, both are loaded. 
If there is not sufficient real storage 
available to have $IPLRTa loaded after 
$IPLRT3 , each is loaded into the sane 
area as it is needed. $IFLRT5 is leaded 
only after a DPD or CAT command is 
encountered. If there is enough room it 
is loaded after $IPLRT4, otherwise it is 
loaded after $IPLRT2. 

The ADD,, DEI, SET, CAT, and DPD commands 
are entered fromi the IPL communication 
device (SYSRDR or SYSLCG) . The formats for 
these commands are described in Figure 3. 



After a command is read, the operation 
code is evaluated and control is passed to 
the appropriate routine. If a CAT or DPD 
command is read before a SET command a 
message is issued asking for a SET command. 
The CAT or DPD command must then be 
reissued after the SET command has been 
processed. 



$IPIRT3^ CHART 03 

$IPIRT3 is loaded and executed only when 
ADD or DEI commands are submitted. 

$IFIRT3 dees one or both of the following; 

• Adds one or more devices to the system. 

• Deletes one or more devices from the 
system. 



Add Routine 

The add routine ensu 
already present. It 
to add the PUB in th 
all the PUE entries 
one PUB length to ma 
PUE. The new PUB is 
area just vacated 
pointers are updated 
in the PUE table and 
read another control 



Delete Routine 



res the device is not 

then determines where 
€ PUE table and moves 
beyond this point down 
ke room for the new 

then inserted in the 
The lUE table and FOCI 
to reflect the change 
the routine returns to 
statement. 



The delete routine first checks to see if 
the device to be deleted is in the PUB 
table and then determines the Iccaticn in 
the PUB table of the PUE to be deleted. 
All PUEs beyond this point are moved up one 
PUB length overlaying the PUE to be 
deleted. The LUB table and FOCI pointers 
are updated to reflect this change. The 
routine returns to read another ecntrol 
statement. 



$IPLRT4, CHART 03 



§IPLRTi| is loaded by $IPIRT2 and executed 
for every IPL. 



$IPLRT4: 

• Sets the system date. 

• Sets the system zone if required (if TOD 
supported) . 

• Resets the oontents of the TOE clock, if | 
required. ^^ 
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Checks the channels for file-prctect 
support for each device when CJ^SDFP 
(DASD File Protect) option is specified 
during Supervisor generation. 

Scans the PUE table. If a 3203, 3211, 
cr 5203 is found,, $IPLRTa leads 
$$BUFLDR. 

Checks for RMSR support and if present 
builds the PUE2 table. 

Checks vihether RMS support has been 
generated for CPUs other than the 115 or 
125. If not, IPL is teririnated. For 
the models 115 and 125, checks for 
correct recording support and checks for 
hardv?are-recorded devices. 



Updates the PUB entry according to the 
size of data iticdule being used. 



$IFIRT5, CHART OU 



$IPLRT5 is loaded by $IPIRT2 and executed 
fcr every IPL. 



$IPLRT5: 



Assigns the 'VSAM catalog, sysCAT, tc a 
physical unit (only if the CAT coirmand 
is specified) . 

Processes the DPD ccirnand. 



Scans the PUE table. If a 3340 is 
found, $IPLRTa loads $$ECARTR. 



Calls the end-of-job transient to begin 
ncriral processing. 



Set Rout ine 

Ihe set time of day routine determines the 
operand format of the SET command. 

• No TOB support: 

The DATERT subroutine converts the 
month, day, and year to decimal. This 
information is then stored in the system 
date field of the communication region 

• TOD support: 

The DATIMERT subroutine converts the 
DATE, CICCK, and ZONE specifications to 
a 6a-bit binary value. This value 
represents the number of deck units 
(i.e., microseconds x 2^^) elapsed since 
January 1, 1900 at 0.00 a.m. GMT and is 
used to set the TOD clock. A GETIME 
macro is issued to obtain an automatic 
update of the midnight value in the 
supervisor. 

The system assignments for Sl^SRES and the 
communication device (SYSRDR or SYSLOG) are 
checked and permanently assigned. The 
system I/O tables are moved from their 
temporary location in high real storage to 
their permanent location in the supervisor 
area. This move overlays the two-device 
IPL I/O tables that were built by $$A$IPL2. 



$$ECARTR 

$$ECARTR is loaded by $IPLRT4 and executed 
for every IPL whenever the 334 is present 
in the system. 



$$ECARTR2 



Checks those j340 disk drives which area 
ready at IPL time and determines the 
size of the data modules. 



CAT Routine 

The CAT command is an cpticnal IPL command, 
which, if included, must follow the SET 
command. It is included only if a VSAM 
catalog is desired. If included $IPLRT5 
assigns SYSCAT to the physical unit 
specified in the CAT ccmmand. 



DPD Routine 

The DPD ccmmand is the last command 
processed by IPL. It causes IPL tc do the 
following : 



• Assign the page data set, SYSVIS, to a 
physical unit. 

• Cpen SYSVIS. 

• Create a label for the page data set in 
the VTCC of the volume where it resides. 

• Format the page data set if it has not 
been formatted cr if it must be 
reformatted. 

• If a VCLID was specified during 
supervisor generation cr overridden in 
the DPD command, a check is made to see 
if the correct volume is mounted. If it 
is not a message is issued. If a VCLID 
has never been specified, nc check is 
made for the correct volume. 



The DPD ccmmand indicates the end cf the 
IPL procedure. After it has been 
processed, the end-cf-jct transient is 
loaded to begin norm.al processing. If the 
supervisor contains teleprocessing support, 
$$EECJ3 is fetched? otherwise S$EECJ4 is 
fetched. 
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ADD- Add a Device to the PUB Table 



I --_--^ , 

I Operation | Operand I 

^. ^ H 

1 ADD I X'cuu' [ (k) ] ,devicetype[,X'ss' ] I 



k 
k 



Channel and unit numbers in hexadecimal 

S, If the device is switchable (is physically attached to two adjacent channels). 
The designated channel is the lower of the two channels. 

0-255 indicates the priority of the device, if the device cannot be switched. The highest priority is 0. 
If k is not given, a priority of 255 is assumed. 



devicetype* (e.g.) = 2400T7 for 7-track, IBM 2400 Series Magnetic Tape Units. 



X'ss' 



Device specifications used for tape mode. If device specifications are not specified, X'ss' has 
the following set values: 

X'CO' for 9-track tape 
X'90' for 7-track tape 
X'OO' for nontapes 

If you specify X'C8' for an 800 BPI single-density 9-track tape drive, you will save time during the 
tape OPEN.X'OO', X'OT, X'02', and X'03' are invalid as X^s' for magnetic tape. These four 
values are used to specify SADxxx requirements for IBM 2702 lines*. X'ss' is required for the 
IBM 1255, 1259, 1270**, 1275**, 1419, and 1419P device types. It specifies the external interrupt 
bit (in the old PSW) used by this device to Indicate READ COMPLETE. 
The specifications are: 

X'08' PSW bit 28 



X'Or PSW bit 31 
X'02' PSW bit 30 
X'04' PSW bit 29 



X']0' PSW bit 27 
X'20' PSW bit 26 



^Device type codes and a complete 
list of density settings can be obtanined from 
the Supervisor Logic PLM. 



** This device Is not available In the United 
States of America. 



DEL- Delete a Device from PUB Table 

, ^ 1 

I Operation i Operand I 

I 4. ^ 

I DB-L I X'cuu' I 

I 1 ^ I 

Where cuu is the channel and unit numbers, in hex, of the device to be deleted. 



Figure 3. IFL Commands (Part 1 of 3) 
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SET " Set Date and Timer Reference (if Job Accounting or QTAM support, but no TOD support) 

J _ ^_- _ 1 

( Operation I Operand I 

}..„ f„- — — ._^ 

(SET I [DATE=nl] [,CL0CK=n2] I 

I — i ^^ ^ ^J 

The entries in the operand represent the following: 

DATE=nl Sets the system date to the specified value, nl has one of the following formats: 

mm/dd/yy 
dd/mm/yy 

Where mm specifies the month, dd specifies the day, and yy specifies the year. 
The format used is that selected when the system was generated. 

CLOCK=n2 Must be given at IPL time if Job Accounting is supported. 

Sets the clock to the specified value, n2 has the following format: 

hh/mm/ss 

Where hh specifies hours (00-23), mm specifies minutes (00-59), and ss specifies seconds (00-59) 



SET ~ Set Date, Time of Day and Zone (TOD support) 



j Operation [ Operand 
I . 

J SET 



« [DATE=nl , CL0CK=n2 ] [ , Z0NE=n3 ] 



Ths z:\tTlzz :n fhe operind represent the following: 

DATE=nl Sets the date fields to the specified value and alters the contents of the TOD clock to the value 

obtained by modifying the DATE and CLOCK values by the ZONE parameter, 
nl has one of the following formats: 

mm/dd/yy 
dd/mm/yy 

Where mm specifies the month, dd specifies the day, and yy specifies the year. The format used 
is that selected when the system was generated. 

CLOCK=n2 Must be present if DATE=n1 has been specified. It is used, in combination with the DATE and 

ZONE parameters, to alter the contents of the TOD clock. 
n2 has the following format: 

hh/mm/ss 

Where hh specifies hours (00-23), mm specifies minutes (00*59), and ss specifies seconds (00-59). 

ZONE = n3 Optional parameter. It overrides the value of the zone specified at system generation time, 

n3 has one of the following formats: 

EAST/hh/mm 
WEST/hh/mm 

Where hh specifies the number of hours (00 - 12) and mm the number of minutes (00 - 59) local 
time differs from Greenwich Mean Time. EAST specifies a geographical position east of, and 
WEST a geographical position west of Greenwich. 



Figure 3. IPL Commands (Part 2 of 3) 
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CAT ""Assign Logical Unit for VSAM Catalog 



J , , 

I Operation | Operand \ 
j , 1 

j CAT I UNIT=X ' cuu ' I 
I X I 



IPL command 



X'cuu' indicates the channel and unit number (in hexadecimal) of the device that contains the 
VSAM catalog. SYSCAT may only be assigned to a 2314, 2319,3330,3333 or 3340. 



DPD - Define the Page Data Set 



Operation 



DPD 



Operand 



1 IPL command 

[TYPE= N ].[,UNIT=X'cuu',CYL=xxx] [ , VOLID=xxxxxx] | 
F I 

-.-.^_ I 



The operands of the DPD command may be given in any order. 

TYPE=N TYPE=N indicates that the page data set need not be formatted if it has already been formatted 

and the extent limits have not been changed. 

If TYPE=N is specified but the page data set does not exist or the extent limits have been 
changed, TYPE=N is ignored and the page data set is formatted during IPL. In this case, the 
UNIT and CYL operands must either have been supplied during system generation, or they must 
be specified in the DPD command. 

TYPE=F TYPE=F indicates that the page data set is to be formatted during IPL, Formatting during IPL is 

required if the page data set is to be extended or if it is to be reallocated. 

UNIT UNIT=X'cuu' specifies the channel and unit number (in hexadecimal) of the device that is to 

contain the page data set. If UNIT is specified, CYL must also be specified. SYSVIS may only 
be assigned to a 2314, 2319,3330,3333 or 3340. 

CYL CYL=xxx specifies the sequential number of the cylinder, relative to zero, where the pa^e 

data set is to begin. (The size of the page data set extent is calculated by the system.) 
If CYL is specified, UNIT must also be specified. 

VOLID VOLID=xxxxxx identifies the volume serial number of the disk pack that contains the page data 

set. If this operand is omitted both during system generation and the DPD command, the volume 
serial number is not checked. In that case, however, files may be destroyed if the wrong volume 
is mounted. 



Figure 3. IPL Ccirirands (Part 3 of 3) 
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Chart 01. Initial Prograir. Lead ($$A$IFL1 and $$ASIPL2) 






iai Progrann 



ood (iPL) 



$$A$IPL1 



IPL BOOTSTRAP ($$A$IPL1) 



Chart AA 



The operator sets the channel and unit of SYSRES in the load 
unit switches (types in on the keyboard if model 115 or 125)and 
presses the load key (ENTER key if modelllS or 125). The micro- 
program then reads the first 24-byte record consisting of a 
PSW and two CCWs into real storage starting at location 00. 
It executes the first CCW at location 8 which reads the next 
40 bytes from SYSRES. The $$A$IPL2 program on SYSRES 
is loaded into storage starting at location X'3000'. 



$$A$IPL2 



CLEAR STORAGE, LOAD SUPERVISOR 
($$A$IPL2) 



Chart BA 



/ '. 

$$A$IPL2 clears storage beyond the supervisor and forces a 
program check to determine the storage size of the system. 
It determines the supervisor to be loaded and then searches 
the directory to find the addres of the selected supervisor. 
When the supervisor entry is found, the $$A$IPL2 program 
is moved to the storage location 12K beyond the end of 
the supervisor. The supervisor is then loaded into real storage. 



INITIALlZt l-UK bC MUDE OPERATION 
($$A$IPL2 + SUPVR) 



1 . $$A$IPL2 stores the channel type of each channel in the 
channel table. 

2. $$A$1PL2 issues an SVC 33, which enters the routine 
INITDAT in the supervisor to determine the correct end- 
of -real-storage address ^y comparing it with RSIZE) and 
initializing the control registers and PSWs allowing the 
system to run in EC mode. The SVC 33 and SVC S5 
routines are resets 

the former to its correct setting for normal operation and 
the latter to call the routine INITPT when it is next 
called. 



BUILD TWO-DEVICE SYSTEM 
($$A$IPL2) 



Charts BB-BC 



1 . Puts the end-of-real -storage address in the communication 
region. 

2. Sets storage protect key of the supervisor area to and 
of the problem program area to 1. 

3. MoVes the SYSGEN I/O tables to end of supervisor plus 
length of background save area and builds a one-device 
system in low storage for SYSRES. 

4. Puts the system in the wait state and gives the qaerator 
the choice of his console or a card reader, as the 
communication device. 

5. Adds the I/O tables for this communication device to the 
I/O tables for SYSRES and completes the two-device 
system for IPL operation. 



(SVC4 Load A 
$IPLRT2 Chart 027 
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Chart 02, Initial Program Lead ($IPLRT2) 



($IPLRT2 \ 
CharfOI J 



BEGIN 



INITIALIZATION 



Charts CA and CB 



The amount of available real storage is 
determined and the load addresses or $IPLRT3, 
$IPLRT4, and $IPLRT5 are calculated. The 
location of the system I/O tables is found. 
The number of PUBs, SABs, and TEBs in use is 
calculated. 



READGO 



CHECK TOD SUPPORT 



Chart CB 



The TOD clock (if supported) is stored and 
its state is checked. If an operator's console 
is the communication device and the clock is 
in the 'Set-state' the current system date, 
time-of-day, and zone are displayed. The 
address of the extended log-out area (for 
RMS) is obtained. 



MONITOR 



CAT 



GETCAT '' 




MONITOR STORAGE USAGE 



Chart CD 



Load $IPLRT5 



READ AND EVALUATE 
IPL COMMAND 



Chart CC 



The command is read and evaluated to deter- 
mine the type of operation (ADD, DEL, SET, 
CAT, or DPD). After the op code is analyzed, 
control is given to the appropriate routine to 
service the command. 




Issue message asking for o SET command and 
read next command. 



GETADD 



MONITOR STORAGE USAGE Chart CD 



Load $IPLRT3 (and $IPLRT4 if there is 
enough room). 



03 ADDRTN 



GETDEL 



MONITOR STORAGE USAGE Chart CD 



Load $IPLRT3 (and $IPLRT4 if there is 
enough room). 



03 DELRTN 



GETSET 



MONITOR STORAGE USAGE Chart CE 



Load $IPLRT4 if it is not already in 
storage. 






SETRTN 



DPD 



GETDPD'^ 




MONITOR STORAGE USAGE Chart CD 



Load $IPLRT5 if it is not already in storage 
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Chart 03. Initial Program Lead ($IPLRT3 and $IFLRm) 



ADDRTN 



ADD 



ADD A DEVICE ROUTINE Charts BA and DB 



The first operand is checked for a key field 
(multiplex or burst device indicator). The 
channel and unit numbers are checked and 
converted to hex. The third operand, if any, 
is then processed. The BLDPUB subroutine adds 
the device to the PUB table. The CHURTN 
subroutine updates the FOCL. The LUURTN 
subroutine updates the LUB table entries if 
required for the PUB Just added. After the 
I/O tables are updated, the routine returns 
to MONITOR to read another command. 




DEL 



DELRTN 



DELETE A PUB ROUTINE 



Chart DC-DD 



The operands of the DEL command are converted 
to hex and the PUB table is searched to find the 
PUB to be deleted. All PUB entries beyond the 
PUB to be deleted are moved up one entry, 
overlaying the selected PUB. The FOCL and LUB 
tables are updated at CHURTN and LUDRTN, 
respectively, so they do not point to a 
nonexisting PUB. After the I/O tables are 
updated, the routine returns to MONITOR to 
read another command. 



^ 



MONITOR 



NO 



SETRTN 




SET DATE ROUTINE Charts EA and EB 




SET TIME OF DAY ROUTINE Charts EA, EB 


The date and time of day are set in the communi- 
cation region. The FDSRTN subroutine gets the 
operands from the command. The DATERT sub- 
routine puts the date in the communication 
region. If job accounting is supported, the 
TIMERT subroutine puts the time of day in real 
storage at location X'SA' . 


The TOD clock is set in accordance with the 
DATE, CLOCK, and ZONE specifications. The 
FDSRTN subroutine gets the operands form the 
command* The DATIMERT subroutine converts 
the operands to a 64-bit binary value used to set 
the TOD clock. A GETIME macro is issued to 
update the midnight value in the supervisor 
(SVC 34 routine). 













USNRES 



ASSIGN SYSRES AND SYSLOG Charts EA and EB 



The PUBs for SYSRES and SYSLOG or SYSRDR are 
checked to insure that they are assigned only to a 
single logical unit and that they are properly 
built. The PUBs are then permanently assigned 
as the system residence unit and the system 
communication device. 



OFFINT 



MOVE SYSTEM I/O TABLES TO 
SUPERVISOR 



Chart EC 



The system I/O tables are moved to their 
permanent location in the supervisor area. If 
there are any 3203s, 321 Is or 5203s in the PUB 
table, load $$BUFLDR and if there are any 3340s 
in the PUB table, load $$BCARTR. PUB2 table is 
built and RMS options are checked. An indicator 
is set showing the SET command has been handled. 
Return to MONITOR. 



^ 



MONITOR 
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chart 04, Initial Program Lead ($IPLRT5) 



CAT 




* $IPLRT2 
Charf 02 



DPD 






ASSGN SYSCAT 



Charts FA-FB 



Assign the VSAM catalog, SYSCAT, to the 
specified physical device. 




1 ' 




DEFINE PAGE DATA SET 



Charts FA-FF 



1 . Assign the page data set, SYSVIS, to the 
physical unit specified in the DPD macro or, 
if overridden by the IPL command, to the 
unit specified in command. 

2. Open SYSViS. 

3. Format the page data set if it has not been 
formatted, or If it must be reformatted. 

4. Check if volume specified in VOLID para- 

meter (if any) is mounted. If it is not, issue 
a message telling the operator to mount the 
correct pack. 



I 



Issue the message, "DOS/VS IPL COMPLETE", 
and load the end-of-job transient ($$BEOJ). 



/ SVC 14 *A 

\Fetch transient/ 



$$BEOJ3 if teleprocessing is 
supported, otherwise, $$BEOJ4. 
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JCE CCNTECL PRCGRAM 



The job control prograir provides jcb-tc-jofc 
transition for all programs. It also 
prepares program job steps for execution. 
COne or more programs can be executed 
within a single job. Each such execution 
is called a job step.) The job control 
program is automatically leaded into the 
background partition after lEL. To obtain 
the job control prograir in a foreground 
partition, a BATCH or START coirirand must be 
issued for the desired partition. The job 
control program is then loaded into the 
desired partition if the following minimum 
requirements are met: 

• At least 64K of virtual storage in the 
partition. 

• Separate system I/C files fcr the 
partition. 



The job control program does one cr more of 
the following on the basis of information 
provided in job control statements: 



prepares programs for execution, 

evaluates control statements and reads 
cataloged SYSRDR and SYSIPT data fcr 
cataloged procedures, and calls the 
appropriate processing programs, 

assigns device addresses to symbolic 
units, 

sets up fields in the ccmmunication 
region (s) , 

edits and stores volume and file label 
information, 

prepares for restarting checkpcinted 
programs, 

clears the program area to binary zeros 
between job steps (real-mode job steps 
only, the pages of virtual partitions 
are cleared as they are used) , 

prepares input for the linkage editor 
program if the LINK option has beer 
specified. The statements: ENTRY, 
ACTION, PHASE, and INCLUEE, when 
present in the input stream, are copied 
to SYSLNK as card images. An INCLUDE 
statement with a blank operand causes 
the contents of SYSIPT to be copied to 
SYSLNK until a /* statement is read 
from SYSIPT. Blank cards from SYSIPT 
are ignored. This preparation for the 



linkage editor program is valid fcr the 
EG partition only, unless the 
supervisor includes the PCIL option. 



prepares input f 
writing a CATALR 
in SYSRDR job st 
PHASE statement 
useful if a ccmp 
run follows beca 
can then be used 
fcr a subsequent 
is only possible 
net in effect. 



cr the MAINT program by 
statement (if included 
ream) and any following 
to SYSPCH. This is 
ilaticn cr assembler 
use the SYSPCH output 
as input (on SYSIPT) 
MAINT jcb step. This 
if the link option is 



The job ccntrol program is executed in the 
virtual partition of the partition it is 
preparing for use. If the jcb step being 
prepared is a virtual-mode jcb step it 
overlays the job control program. 



A JCE statement in the input stream 
marks the beginning cf a jcb and a /& 
statement marks the end cf a jcb. An EXEC 
statement calls for execution cf a job step 
cr cf a cataloged prccedure. A jcb step is 
normally ended with the ECJ macrc. A /+ 
statement marks the end cf a cataloged 
procedure. 



I/C ELCW 



The I/C flow for the job control program 
consists cf: 

• Input 

SYSRDR 
SYSIPT 

SYSRES (SYSRDR and SYSIPT data fcr 
cataloged prccedures) 

• Cutput 

SYSLST 
SYSLNK 
SYSPCH 

• I/C 

SYSLCG 



PRCGRAK FLCW 



The jcb ccrtrol prcgram consists cf ten 
phases and one B-transient: $JCECTLA, 
$JCECTLE, $JOECTLD, $JCECTLE, $JCECTLF, 
$JCECTLG, $JOBCTLJ, $JCECTLK, $JCECTLM, 
$JCBCTLN, and $$BLSTIC. 
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$JCBCTLP. (CHi^RTS 05 ANE 06) 



$JCECTLJ (CHARTS 14, 15, AND 16) 



This phase is the initial entry into the 
job control program. It is loaded every 
tiire the job control prograir is fetched and 
is the root phase. (It is resident in 
virtual storage at all tiires during job 
control execution and contains routines 
that are used by the other jcfa ccntrol 
phases. ) 

Job control input is read frcir SYSRER or 
SYSICG depending on the setting cf the job 
control input switch (COMREG+56, bit 2). 
As each control statement cr ccirirard is 
read, it is analyzed to determine vihich of 
the processing routines is to be used. The 
phase containing the ccrrect processing 
routine is leaded if it is not already in 
virtual storage as a result cf the previous 
statement or command. 



$JOECTLB (CHART 07) 

This phase contains routines to prepare a 
partition for restarting a checkpointed 
job. 

$JOECTLD (CHARTS 08 AND 09) 

Contains the processing routines for the 
following control statements or commands: 

ASSGN 
CLOSE 



$JCECTLE (CHART 10) 

This phase contains processing routines for 
the EXEC statement or command. 



This phase contains prccessirg routines for 
the following control statements cr 
ccmmands: 

ACTION 

ENTRY 

PHASE 

INCLUDE 

DATE 

SET 

UFSI 

MTC 

UCS 

HCID 

CATALR 

NCLCG 

LOG 

STOP 

PAUSE 

ALLCC 

ALLCCR 

ZONE 



$JCECTLK (CHARTS 17 AND 18) 

This phase contains processing routines for 
the following control statements cr 
commands: 

RSTRT 

LELTYF 

VCL 

TPLAE 

DLAE 

XTENT 

TLBL 

DLBL 

EXTENT 



$JCECTLF (CHART 11) 

This phase contains the processing routines 
for the following control statements or 
commands: 

DVCDN 

DVCUP 

LISTIO 

RESET 

UNBATCH 

MAP 

$JCECTLG (CHARTS 12 AND 13) 

This phase contains the processing routines 
for the following control statements or 
commands: 

CANCEL 
/g (EOJ) 
/+ (ECP) 
JOB 
OPTION 



$JCECTLiy! (CHART 19) 

This phase initializes the reccrder file, 
the hard ccpy file, the RE-table, and the 
CRTSAV table, and certains processing 
routines for the ROD com.mand . 



$JCBCTLN (CHART 20) 

This phase provides interface between the 
DCS system and $JCEACCT tc allcw the user 
to access job accounting infcrmaticn. This 
phase contains processing routines for the 
following conditions: 

Normal end of job. 

Simulated end of jcb. 

End of job and pause. 

EXEC program card encountered. 

Ncte; $JCECTLN interfaces with the 
$JCEACCT phase supplied by the user. 
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c 



1 ; ^J 



A 'L ^U 5 It 



U 



$SELSTIO 

This B-transient routine ccntains 
subroutines used by the DVCCK and IISTIO 
processors of $JCBCTLF, When required by 
these processors, $$BLSTIC is fetched 
(SVC 2) into the supervisor E-transient 
area. 

PHIAHE-VECTOF TABLE 

The Phase-Vector table contained in the 
root phase ($JCBCTLA) is used tc determine 
the correct phase and processing rcutine 
required to process a given control 
statement. 

The operation field of the control 
statement is compared to each entry in the 
table until an equal is found. The equal 
entry identifies the correct phase and the 
displacement within the phase of the branch 
instruction that directs the program tc the 
correct processing routine. The entry also 
contains a l~byte condition switch bank 
used to control processing for format 
verification, logging conventicns, and 
cancel procedures for the statement. 
Figure ^ shows the format of an entry in 
the Phase-Vector table. 



Phase Identification Letter; Contains the 
EBCDIC character A, E, F, G, J, K, M, or N 
and identifies the jcb ccntrcl phase 
containing the processing routine. 



Exampl e of the JOB control statement entry : 

EC Aid (12) , ..- ^— 1 ' 

EC CVG« ^. „-.^ - -^-- "'■"■"""" 



^IJr^ The jpi-^'tatement is to te processed 
e>etf^if a cancel is being executed, 

(2y logging on both SYSLCG and S^SLST is/ 
suppressed. 

3. The sta;^m^nt:^.i!La^^.Qi_st wijbhcut. y^^^^^ 
and <^Wt start ir cclumCTcS^^^^^^ 



IJ^. 



The branch-vector table entry is 
located at a displacement of 12 bytes 
\frcm the beginning cf the phase with 

"^SUffix 'G' ($JCECTIG). 



1 




n 


Byte 


.6 


7 


a 


9 




Operation 
Field 


Condition 
Switches 


Branch 
Vector 
Displacement 


Phase 

Identification 

Letter 









Figure 4. Phase-Vector Table Entry Format 

Operation Field; EBCDIC representation of 
the operation field.^ 

Condition Switches; 



Bits 


1 

2,3 - 



reserved. 

statement is to be processed even 
though a cancel condition exists. 
Both oni suppress logging. 2 off, 3 
on; unconditional SYSLCG logging and 
conditional SYSIST legging. Both 
off; conditional logging on SYSLCG 
and SYSLST. 

statement may start with //. 
statem-ent may start without //. 
statement may start in column 1. 
statement may start in other than 
column 1. 



granch Vector Eisplacement ; Displacement 
within the phase that is added tc the phase 

origin address to de'^^elop the address cf a 
brariCh instruction wnicn transfers control 

to Liie coriect processing rcutine. 



DFB 


DS 


CL6 ^ 


-~N 




DFBCBL 
DFBCBA 


DS 
DS 


t;L2 Symbolic unit address 
CL4 CCW address 


XCB 




DFBCWA 


DS 
DS 


CL4 J 

CL4 ASA CCW address 


1 U/R 

VTAPE 


DFBCCU 


DS 


CL2 Channel and unit 


DASD 


DFBDVC 


DS 


CLl Device type 




DFBFLG 


DS 


CLl Flag byte (see Note) 




DFBCCW 


DS 


CL8 __CCW (Not used for DASD) 






DS 


CL8 ""STek > 






DS 


CL8 Search 






DS 


CL8 TIC 






DS 


CL8 Write (count, key, and data) 
(chained data) 






DS 


CL8 Write (data) 


DASD 
Only 




DS 


CL8 Search 






DS 


CL8 TIC 






DS 


CL8 Verify (count field) (chained data) 




Note: 


DS 


CL8 Verify (data) 








DFBFLG - 


flag 


byte bit 0:1 = Open 

bit 1 :1 = Unit Exception processing 

bit 2:1 = U/R device 

bit 3:1 = Overlap requested 

bit 4:1 = ASA is supported on this device 

bit 5: Not used 

bit 6:1 = Attention routine switch 

bit 7:1 = CCB has been initialize 



Figure 5. DFB Fcrmat 
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Chart 05. Job Control ($JCECTO) Boot Phase (Part 1 of 2) 



06 
08 
09 

n 

12 
13 
14 
15 
16 
17 
18 
20 



JOBCTL 



f $JOBCTLA J 



INITIALIZATION 



Chart GA-GB 



Initial izes the job control program as follows: 
1 . Loads base registers. 

2. Seizes control of the system. 

3. Performs relocation of the job control program. 

4. Sets up a table of NICLS and FICLS for 
system and programmer units in each partition. 

5. Sets track capacity constants for SYSRES 
device. 

6. Checks available record counts If system units 
are supported on a DASD device. 

7. Saves the LUBs to unassign extent J IBs of the 
previos job step. V- 

8. initializes the job control program for procedure 
processing if required. 

The virtual storage area that contains this coding 
is subsequently used as a 120 byte I/O area. 
Control statements and commands are read into and 
messages are displayed from this area. 



CONTROL 



Note: 

The job control program is entered from the supervisor fetch routine. It can be entered 
normally by means of the EOJ macro or abnormally from the B-transients $$BILSVC, 
$$BPCHK, $$BEOJI. 

Phase $JOBCTLA includes: 

1. The initialization routine (JOBCTL). 

2. The control statement (command) read routine (CONTROL). 

3. The phase vector table 

4. The root phase subroutines 

5. The root phase error message routines ^ 

6. The relocation subroutine 

7. Subroutines for overwrite processing 

Items 4 and 5 are used by other job control phases. 



CONTROL STATEMENT (COMMAND) 
READ 



Chart GC 



1 . Checks SYSRDR assignment to see if the job 
control "statements can be read. 

2. Checks if procedure modification is necessary. 
Reads overwrite statements, if requested, and 
tests for overwrite end. 

3. Tests for end-of-job (/&), and end-of-procedure 
(/+) statements. 

4. Reads control statements and if a cataloged 
procedure is being processed modifies the 
procedure according to any modifier 
(overwrite) statements submitted. 

5. Processes cataloged procedure statements. 

6. Checks column 1 to determine if statement 
or command. // in columns 1 and 2 
indicate a statement. 

7. Scans the control statement or command 
for the first entry (may be //, /*, *,/&, 
/+ or the operation code). 

8. Performs initialization for the phase vector 
table lookup. 
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Chart 06. Job Control ($JCECTLA) Foot Phase (Fart 2 of 2) 



BTLOOP 



PHASE VECTOR TABLE LOOKUP 



Chart GE 



] . The phase vector table is searched for an 
argument that is equal to the current operator 
code (register POINT! is pointing to column 
1 of the statement or command or to the first 
character of the operation field). See Figure tj '^fV 

-~- 7, AppentHx A^for the format of an entry in 
the phase vector table. 

2. The operand is checked for validity. 

3. The statement (command) is logged as 
specified in the condition switches of the 
found entry. 

4. If the correct processing phase is not in virtual 
storage it is loaded (SVC 4). 

5. Processing for//, /% *, IGNORE or 
OVEND is in the root phase and they are 
processed as follows: 
// - The statement is scanned to make the 

next operand (operation field) available 

for processing. Exit to " 

/* - Ignored. Exit to ' 

* - Ignored. Exit to ' ' • ' ■ ' ■ 

IGNORE - The Job Control input switch Is 



;Le ^1 



set to indicate SYSRDR. Exit to • 



OVEND - Switches are set to prevent any more 
more overwrite statements being 

read for this procedure. Exit to 

6. Control is transferred to the correct processing 

routine as specified by table A, B, C, D, E, 

F, or G for all other operands. 



"T" 

o 



TABLE A 



■^ 
■^ 



CONTROL 
(Stmt. 6) 



CONTROL 



PHASE 


SJOBCTLD 


Op<^iat ion 


Chart 


ASSGN 


08 


CLOSE 


09 



TABLE C 



PHASE 



$JOBCTLG 



Operation 

CANCEL 

EOJ-/&- 

EOP-/+- 

JOB 

OPTION 



Chart 

13 
13 
13 
13 
12 



TABLE E 



PHASE 


$JOBCTLK 


Operation 


Char^ 


RSTRT 


18 


LBLTYP 


17 


VOL 


17 


TPLAB 


17 


DLAB 


17 


XTENT 


17 


DLBL 


18 


EXTENT 


18 


TLBL 


18 



o 



TABLE B 



PHASE 


$JOBCTLF 


Operation 


Chart 


DVCDN 




DVCUP 




LISTIO 




MAP 




RESET 




UN BATCH 





TABLE D 1 


PHASE 


$JOBCTLJ 


Operation 


Chart 


ACTION 


15 


ENTRY 


15 


PHASE 


15 


INCLUDE 


16 


DATE 


16 


SET 


16 


UPSI 


16 


MTC 


16 


UCS 


15 


HOLD 


15 


CATALR 


16 


LOG 


14 


NOLOG 


14 


PAUSE 


14 


STOP 


14 


ALLOC 


14 


ALLOCR 


14 


ZONE 


16 



TABLE F 



PHASE 


$JOBCTLM 


Operation 
ROD 


Chart 
19 



^ 



TABLE G f 


PHASE 


$JOBCTLE 


Operation 
EXEC 


Chart 
10 
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chart 07. Job Control ($JCECTLE) Restart Processor 



RSTRT 




* Chart 18 
$JOBCTLK 



RSTRT STATEMENT PROCESSOR 



Charfs HA-HG 



Function : 

1 . Locate proper checkpoint records on specified device 
(tape, 2311, 2314, 2319, 3330/ 3333 or 3340). 

2. Restore communication region and PIB for checkpointed 
program. 

3. PFIX pages which were PFIXed when CHKPT was issued, 

4. Clear partition. (If a job to be restarted is running in 
virtual mode the page table entries are set so that a page 
is cleared when it is requested.) 



T 



Error exits: 

1 . Extents for SYSxxx (restart file) are not equal to those of 
checkpoint file. 



1 . Two consecutive tape marks found on checkpoint tape. 

2, No more free J IBs for restart. ' 

3. Invalid restart device. -------------------------------------- 



The following conditions cause a message to be issued by 

$JOBCTLB followed by an SVC 6 (CANCEL): 

1 . Incorrect location and/or size of restart partition. " ■ ™'— — — 

2. Checkpoint record not found on specified device. 

3. Incorrect location and/or size of real partition (for real- 
mode jobs or for virtual-mode jobs with PFIXed pages). 

4. No PFIX option in the supervisor of the restart system — 
(for virtual-mode jobs with PFIX records). 



I 



If there is no error, an SVC 58 is issued which resets the page 
table entries for the partition and sets the PSW to call the fetch 
routine for $$BRSTRT'*. 



f SVC 58 J 



/$$BRMSG1 ** issued 
^ Vpsg. and cancel y 



U^ 



$BRMSG2 * 
msg. and cane 



*issue\ 
icely 



-f CANCEL J 



See Lie '■'"'" Pi />,; \'ui 1 
r ,.-; 'i'\ .'V''^in^al'ion of 
$$BRSrRT, $$BRMSGi and $$BRMSG2. 
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Chart 08. Job Control ($JCECTLC) Stateirent Prccesscr (Fart 1 of 2) 



ASSGN 



? 



* Chart 06 
Table A 



INITIALIZE, SCAN AND CHECK STATEMENT Charts JA-JC 

1. Initializes fields and switches. 

2. Tests for statement or command and sets switch for tempo- 
rary or permanent assign. 

3. Checks and converts SYSxxx to the symbolic unit address, 
logical unit and class. 

• The unit may be SYSREC when RF=YES or HC=YES, and 
the recorder file is not yet open. The assign for SYSREC 
must b^ permanent. 

• The unit cannot be SYSRES, SYSVIS or SYSCAT. 

• Assignment of SYSCLB is only allowed if the supervisor 
supports PCIL. 

• Assignment of SYSLNK in the foreground is only 
allowed if PCIL is supported. 

• Assignment of SYSLOG is only allowed In the 
background. 

4. ASSGNO : 

• The unit cannot be SYSLOG if any foreground program 
is loaded, or if the Attention Routine is active. 

5. SCNOPRS: 

• The second and following operands are scanned, and 
information Is stored In INFOTAB. 

• HI and H2 are only valid for MFCM/MFCU devices. 

• MODE (X'ss') can only be specified for tapes. 

• SHR can only be specified for disks. 

• ALT can only be specified for tapes. 

• VOL = can only be specified for tapes and disks. 

• SYSyyy cannot be SYSOUT. 

• If SYSyyy is SYSIN, SYSlP'l and SYSkDk must oe 
assigned to the same device. 



ENDOPSCN 



PERFORM ADDITIONAL ERROR CHECKING ON 
SPECIFICATIONS Chart JD 



1. If the second operand is UA or IGN, no other operands 
except TEMP and PERM are allowed. 

2. Only programmer logical units can be assigned to a 2245 
printer. 

3. SYSRLB and SYSSLB can only be assigned to the same 
device type as SYSRES. 

4. SYSCLB and SYSREC can only be assigned to disk. 

5. If SYSRDR, SYSIPT or SYSIN is assigned, SYSLOG must 
be assigned to a 1052 or CRT device. 

6. If SYSLOG is assigned to a non 1052/CRT device, SYSRDR 
must be assigned. 

7. An assignment for SYSCLB or SYSOUT must be permanent. 

8. If a system 1/0 unit is assigned to disk, SYSFIL must.be 
supported and the assignment must be permanent. 

9. If a system I/O unit is assigned and the old assignment 
was to a disk, the system file must be closed. 

lO.lf an ALT assignment is made, the logical unit must already 

be assigned to tope. 
11. If an ALT assignment is made for SYSOUT, the system must 

be in SYSOUT mode (SYSLST and SYSPCH must be assigned 

to the same device). 
12.0f the system units only SYSPCH, SYSLST and SYSOUT can 

be assigned ALT. 
13.lf the ALT assignment is TEMP, the logical unit must be 

temporary assigned. 
14.lf the ALT assignment is PERM, the logical unit must be 

permanent assigned. 
15.lt is not allowed to give a TEMP assignment for SYSPCH 

or SYSLST if the system is in SYSOUT mode. 
16. For a TEMP assignment of SYSIN, two JlBs must be available. 



YES 



S^ssignmenr^^ i 

NO T 

09 

ASSGN20 
ASSGN9 ' ' 


VALID DEVICE TYPE VERIFICATION Charts JE-JH 


Checks for physical compatibility between the devices 
candidate for the assignment and the logical unit to which 
they are being assigned. 


DEVSCAN ' ' 



SELECT THE PUB THAT CAN BE ASSIGNED Chart JJ 



1. Checks the status of the candidate devices, the volume 
serial numbers and the ownership to find a device that 
can be assigned matching the specifications in the 
ASSIGN (CLO^E!* c^ofe^en^ 

2. Requests to mount a volume with the specified volume 
serial number, if it had not been mounted. 

3. Informs the operator of the cuu of the assigned device. 



BEGXCUU 



PREPARE THE ASSIGNMENT 



Chart JL 



The MODE byte and the the device type in the DTFs 
are initialized. 




YES 



ASSNALT 



AAAKE ALTERNATE ASSIGNMENT 




Chart JR 


Make an alternate assignment 
byte in the ownership table. 


in the JIB 


and se 


the ownership 


m^ 












EXIT ROUTINE 






Chart JR 


1. Inform the operator of the 

2. Give file protect message 
if necessary. 


device ass 
for system 


Igned. 
output 


units on tape 
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Chart 09. Job Control ($JCECTLE) Statement Prccesscr (Fart 2 of 2) 



ASSGN20 




ASSPERM 



NO 



PREPARE PERMANENT ASSIGNMENT 



Chart JM 



1. Complete the CLOSE for the file if one in progress before 
continuing. 

2. If SYSOUT is assigned and the assignment is for SYSLST, 
the JIB pointer in the SYSLST LUB is nulled. 

3. If SYSOUT is assigned and the assignment is for SYSPCH 
or SYSOUT, the JIB pointer in the SYSPCH LUB is nulled. 

4. ASSGN23A: Reset the LUB to permanent unassigned. 

5. If the new assignment is to UA or IGN, go to ASSGN24. 

6. If the new assignment is for MFCU/MFCM, the hopper 
Information is set in PUB+5. 

7. If the new assignment is for tape and a MODE was specified, 
the standard MODE in PUB+7 is changed. 

8. If fhe assignment is for SYSIPT or SYSRDR, reset the 80/81 
bytes indicators. 

9. ASSGN25: Update the SET MODE byte of the PUB (PUB+5). 



ASSGN24 



MAKE ACTUAL ASSIGNMENT 



Chart JN 



I.Make the actual assignment by moving the new LUB from the 
workarea to the LUB table. 

2. For multiprogramming and assignment of SYSREC, SYSREC is 
assigned for each partition. 

3. Set the open flag off in all DFBs using the device. 

4. If the assignment was for SYSIN, SYSIPT must also be assigned 

5. If the assignment was for SYSOUT, SYSLST must also be 
assigned. 

6., If SYSLST has been assigned, reset the line count to one. 




ASSTEMP 



PREPARE TEMPORARY ASSIGNMENT 



Chart JN 



1. Complete the CLOSE for the file if one In progress before 
continuing. 

2. ASSGN28: Attach a JIB to the new LUB in the workarea. 

3. Save permanent assignment in the JIB. 

4. If the assignment Is for SYSRDR or SYSIPT save and reset 
the 80/81 bytes indicators. 

5. If the assignment is to a MFCU/MFCM,set hopper 
specification. 

6. If the device is a tape and MODE was specified, update 
MODE in PUB+5. 



SYSCLB 

NO 



YES 



NO 



EXIT 




OPEN SYSCLB 



1. SYSCLB is opened. 

2. The FETCH table entry is filled in. 

3. The second level directory is build. 



ASSGN38 




OPEN SYSTEM I/O UNITS ON DISK/ TAPE Chart JP 



1. Set up the DTF for OPEN. 

2. Open the file. 

3. Initialize DIB entry if system file is on disk. 

4. Set the 80/81 bytes indicators (a record Is read to find 
out the record size) for SYSIPT/ SYSRDR. 



^ 



CLOSE 



Chart 06 
Table A 



CLOSE STATEMENT PROCESSOR 



Chart JS 



1. Close a logical unit. 

2. The unit may optionally be reassigned to another device, 
made UA, made IGN, or if tape it may be specified as an 
alternate (ALT). If the unit is a system unit, one of the 
optional operands must be specified. 

3. If an optional operand is not specified, the programmer 
logical unit is closed and the assignment remains unchanged. 

4. If an optional operand other than ALT is specified, the 
ASSGN statement processor is entered at label ASSGNO' 
to make the new assignment. 

5. An ALT assignment specifies that the logical unit is to be 
closed and an alternate unit is to be opened and used. 
The $$B-transient $$BCMT07 is fetched to open the 
alternate device. 

• The ALT operand is valid only for the system output 
units SYSPCH, SYSLST, or SYSOUT assigned to tape. 

• SYSRDR, SYSIPT, and SYSIN cannot be closed during 
procedure processing. 
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Chart 10. Job Control ($JCECTLE) Statement Processor 



EXEC 



£ 



Chart 06 
Table G 



SCAN AND CHECK FIRST OPERAND 



Charts LA-LH 



1 . If the EXEC statement (or command) is for a cataloged 
— prodecure, transfers control to the procedure processor 

2. Tests if a program name is present and checi<s it for correct 
length. 

3. Checks for the REAL and SIZE= parameters. If the REAL 
parameter is specified but there is no REAL partition, the 
job is canceled. If SIZE= is specified to be 0, the job 

is canceled. 

4. If job accounting is supported and if this statement 
(command) is not the first EXEC^after a JOB statement, 
transfers control to $JOBCTLN (after it has first been 
loaded by $JOBCTLA). 

5. If a phase name is present, preparations are made to execute 
the phase. If the phase name is LNKEDT, the linkarea 
descriptor entry will be build. If there is no phase name, 
the first linkedited phase will be fetched. 

6. If any procedure overwrite statements are present, they are 
saved in the procedure library for processing after the job 
step has executed. 

7. Saves PRCDFI into PRCDIB entry if extended procedure 
support is not available. 

8. Loads a fetch routine'for the phase to be loaded into registers 
9 thru 14. This routine will be called when the partition is 
next dispatched. 

9^ Issues SVC 58 to initialize the page and pageframe table 
entries. SVC 58 will modify the saved PSW to call the 
stored fetch routine when the partition is next dispatched." 




CALL 



READ PROCEDURE FROM 
PROCEDURE LIBRARY 



Chart LP 



1. If the procedure name starts with $$, the second $ will be 
replaced with a partition identifier. 

2. Gets and checks procedure name as well as additional 
operands, if any, 

3. Searches the procedure library for the desired procedure and 
checks the procedure for SYSIPT data. 

4. Initializes the system to read SYSRDR and possibly SYSIPT 
data from the procedure library. 



f SVC 58 J 



CONTROL 



* Chart 13 



FCHMAINT 



CHECK FOR NEW SUPERVISOR CATALOGED AND 
CHECK AUTOMATIC CONDENS LIMITS Charts LJ-LK 



1. Check for new supervisor cataloged. If yes, issue message 
1C90D 

2. Check the automatic condens limits: 

If a limit is reached, give control to MAI NT. 
Otherwise issue SVC 14. 



( SVC 14 ) 
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Chart 11. Job Control C$JCECTLF) Statement Processor 



^ 



Chart 06 
Table B 



DVCUP 



DVCUP COMMAND PROCESSOR 



Chart ML 



Makes a device available after It has been down. The 
procedure is to: 

1 . Compute the PUB address of the device specified by 
the operand X'cuu' . 

2. Set the job control flag in the PUB to indicate the 
device is up. 

3. If the device is tape, the standard mode is restored. 



MAP 



MAP COMA^ND PROCESSOR 



Chart MK 



Displays on SYSLOG the current allocation of each 
storage area (supervisor, background, and foreground 
partitions (real and virtual), and main the page pool). 
Included is the uppper limit of each area as well as 
the name of the program currently being executed. 
The partition priorities are also displayed. See 
map output in 'Logical Transients PLM'. 



LISTiO 



LISTIO STATEMENT (COMMAND) 
PROCESSOR 



Charts MA-ME 



Lists the I/O assignments of the system as specified by 

one of the following operands. 

. SYS 

. PROG 

. BG 

. Fl 

. F2 

. F3 

. F4 

. ALL 

. SYSxxx 

. UNITS 

. DOWN 

. UA 

X'cuu' 
. Fetches $$BLSTIO into transient area 
Refer to Appendix E for sample printouts. 



DVCDN 



DVCDN COMMAND PROCESSOR Charts MH and MJ 



Indicates that a device in the PUB table is no longer 
available to the system. The procedure is to: 

1 . Indicate in the PUB for that device that device is 
down. 

2. Unassign all standard or permanent assignments to 
the device in LUB and JIB. 

3. Unassign all temporary assignments to the device in 
LUB. 

4. Remove all alternate assignments to the device. 

5. Log all assignments that have been ottered. 



RESET 



RESET STATEMENT (COMMAND) 
PROCESSOR 



Charts MF and MG 



Reset logical unit assignments to permanent or standard 
as specified by one of the following operands: 
) . ALL-Resets all assignments in current partition. 

2. SYS-Resets all system logical unit assignments in 
current partition. 

3. PROG-Resets all programmer logical unit assignments 
in current partition. 

4. SYSxxx-Resets a single logical unit assignment, 
. SYSRDR, SYSIPT and SYSIN cannot be reset 

during procedure processing. 



UNBATCH 



UNBATCH COMMAND PROCESSOR 



Chart MM 



1 . UNBATCH is refused and a message is issued if 
SYSRDR, SYSIPT, SYSPCH, or SYSLST is left 
assigned to tape or disk, 

2. All assignments are reset to UA exept assignments 
for SYSLOG, SYSRES, SYSREC, SYSVIS, and 
SYSCAT. 

3. Detaches the foreground partition by inserting 
hex 80 in byte of PIB. 

4. Issues a WAIT to a nonexistent CCB, to prevent 
the partition from being selected by task selection. 
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Chart 12, Job Control C$JCECTIG) Stateir.ent Processor (Fart 1 of 2) 

r~71 * Chart 06 
V/ Table C 



OPTION 



OPTION STATEMENT PROCESSOR Chart NG 



Records the job control opHons requested 
by the programmer. The parameters of the 
OPTION statement are scanned, one at a 
time, and control is transferred to the 
correct processing routine as shown in 
Table 1 . 




Parometei 
^Processed*^ 

Tyes 
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Table #1 



PARAM ROUTINE LABEL 



DECK 

Set DECK option ON, COMREG458, bit 



NODECK 

Set DECK option OFF,'COMREG458, bit 



LIST 

Set LIST option ON, COMREG458, bit 1 



NOUST 

Set LIST option OFF, COMREG-t58, bit 1 



LISTX 

Set LISTX option ON, COMREG458. bit 2 



NLISTX 

Set LISTX option OFF, COMREG+58, bit 2 



SYM 

Set SYM option ON, COMREG458, bit 3 



NOSYM 

Set SYM option OFF, COMREG+58, bit 3 



XREF 

Set XREF option ON, COMREG458, bit 4 



NOXREF 

Set XREF option OFF, COMREG+58, bit 4 



ERRS 

Set ERRS option ON, COMREG458, bit 5 



NOERRS 

Set ERRS option OFF, COMREG+58, bit 5 



C48 

Set 48 character set option 

ON, COMREG+58, bit 6 



C60 

Set 60 character set option 



OPTLOG 

Set the SYSLST-LOG option ON, COMREG+59, 

bits 



OPTNLG 

Set the SYSLST-LOG option 

OFF, COMREG+59, bit 3 



NH 



USRLABEL USRLBL 

initialize job control 

label processing for USER LABEL processing NJ 



STDLABEL STDLBL 

Initialize job control label processing for 

STANDARD LABEL processing. Labels available 

to programs in ANY partition. NJ 



PARSTD PARSTD 

Initialize job control label processing for 
PARTITION STANDARD LABEL processing. Labels 
available to programs in only ONE partition. NJ 



DUMP DUMP 

Set job control dump option ON, 
COMREG+59, bit 1 



NODUMP NODUMP 

Set job control dump option OFF, COMREG+59, 

bit 1 NK 



LINK LINK 

Set LNKEDT control bits, COMREG+57, bits 0, 2 
Valid for BG only, unless SYSCLB assigned. NJ 



NOLINK NOLINK 
Set LINK option OFF, COMREG+57, bit 



NK 



CATAL CATAL 

Set LNKEDT control bits, COMREG+57, bits Q,2,3 
Valid for BG only, unless SYSCLB assigned. NJ 



SYSPARM SYSPRM 

Save character string 



NK 



ALIGN ALIGN 

Set ALIGN option ON, COMREG+141, bit 1 NH 



NOALIGN NOALIGN 
Set ALIGN option OFF, COMREG+14T, bit 1 



EDECK EDECK 

Set EDECK option ON, COMREG+T4T, bit NH 



NOEDECK NOEDECK 

Set EDECK option OFF, COMREG+14U bit NH 



ACANCEL Set ACANCEL option on COMREG+141, bit 7 



NOACANCEL 

Set ACANCEL option off COMREG+141, bit 7 
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Chart 13. Job Control ($JCECTLG) Statement Prccesscr (Fart 2 of 2) 



o 

L 



^ 



' Chart 06 
Table C 



CANCEL 



f 



CANCEL COMMAND PROCESSOR 



Chart NF 



This command is ignored if a job was not in process when it 
is encountered. 

1. Calls EOP processor if procedure is being executed. 

2. Displays the message "JOB - job name - CANCELED 
DUE TO OPERATOR INTERVENTION". 

3. Sets the cancel code in JCSW2. 

4. Sets the SYSRDR input switch on (also in the PIB). 

5. Resets all I/O assignments to permanent or standard. 

6. If a job is canceled and SYSRDR (or SYSIN) were 
temporaily assigned, step 5 is bypassed. 




EOJ 



/& STATEMENT P,ROCESSOR 



Charts ND-NF 



1 . Calls EOP precessor if procedure is being executed. 

2. If the CATAL bit is on transfer control to the EXEC 
processor ($JOBCTLE) to check for new supervisor 
cataloged and for the automatic condens limits. 

3* Clears user label cylinder. 

4. Restores permanent or standard I/O assignment, 

5. Insures that SYSIPT is at EOF. 

6. Resets job control options to standard. 

7. Sets job status bit OFF (see item 2). 

8. Displays EOJ message and logs the time and job duration 

9. Resets the job name field in the communications region 
to NO NAME. 

10. Lists all nonzero TEBs. 

n. Resets all bits in COMREG+57. 
12. Transfers control to the JOB statement processor at 
the label RSTCOM. 



^ 



FCHMAINT 



O 



JOB 



EOP 



JOB STATEMENT PROCESSOR 



Charts NA-NC 



1 . Resets all bits in COMREG-t57. 

2. Simulates a SYSRDR EOF if the /& statement has not 
been read. Fetches $JOBCTLN if job accounting active, 

3. Restores all LUB assignments to permanent or standard. 

4. Moves the job name to the communication region. 

5. Saves JOB start time in reg save area of the partition. 

6. Logs the JOB statement on SYSLST/SYSLOG. Logs the 
time on SYSLOG, if TOD is supported. 

7. Restores all options to standard. 

8. RSTCOM: Restores the communication region to 
standard. 

9. Resets the EOF indicators in all PUBs. 

10. Sets switches to initialize, check, or bypass the 
Recorder File. 

1 1 . If TOD is supported resets jobzone in communication 
region system zone. 




END-OF-PROCEDURE STATEMENT 
PROCESSOR 



Charts NP-NR 



The EOP-Processer re-initializes the system at the end 
of a procedure. It is also called if an /& statement or 
CANCEL command is issued while a procedure is being 
processed. Initialization includes: 

1 . Clearing of procedure area in communication region. 

2. Closing the following DFBs: PRCDFB, ORDRDFB, 
OLOGDFB (if procedure was called by the operator) 
and IPTDFB (if the procedure processed contained 
SYSIPT data). 

3. Dequeueing of procedure library. 
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Chart 14. Job Control ($JCECTIJ) Statement Processor (Fart 1 of 3) 



^ 



' Chart 06 
Table D 



NOLOG 



NOLOG STATEMENT (COMAMND) 
PROCESSOR 



Charts PB-PC 



If the NOLOG command is used, the !og-on-SYSLOG- 
switch (COMREG+56, bit 3) is set OFF. If the state- 
ment is used, the log-on-SYSLST-switch (COMREG+59, 
bit 3) is set OFF. 



$TQP 



STOP COMAAAND PROCESSOR 



Chart PD 



A WAIT macro pointing too dummy CCB is issued to 
force entry into the supervisor task selection routine. 
This removes the partition from the task selection 
mechanism. 



ALLOC 



ALLOC COMMAND PROCESSOR 



Charts PP-PQ 



This routine reallocates the virtual address area 
according to the number of 2K blocks specified for 
one or more virtual foreground partitions by the 
operand(s) at the ALLOC command. To reallocate 
the virtual address area, this routine: 
\ . Builds a table (ALLOC -table) containing the 
number of 2K blocks requested by the ALLOC- 
command and the number of 2K blocks already 
available in the system for a partition. Source 
Information is the ALLOC -command and the 
boundary box (a table in the supervisor containing 
size information for every partition). The program 
checks to insure that the size of a virtual partition 
is OK or equal or larger 64K . 

2. Updates the boundary box using the information 
from the ALLOC-table. 

3. Updates the part of the page table corresponding 
to the virtual address area according to the infor- 
mation in the ALLOC table. 



CONTROL 



LOG 



LOG STATEMENT (COMMAND) 
PROCESSOR 



Chart PL 



If the LOG command is used, the log-on-SYSLOG - 
switch (COMREG+56, bit 3) Is set ON. 
If the statement is used, the log-on-SYSLST-switch 
(COMREG+59, bit 3) is set ON. 



PAUSE 



PAUSE STATEMENT (COMMAND) 
PROCESSOR 



Chart PL 



If the command is used, the job-control-pause-switch 
(COMREG+56, bit 5) is set ON to cause a pause 
before the next job-step. If the statement is used, the 
job control input-on-SYSLOG-switch (COMREG+56, 
bit 2) is set ON. This forces a pause on the next job 
control read operation. 



CONTROL 



ALLOCR 



ALLOCR COMMAND PROCESSOR 



Charts PR-PS 



This routine reallocates the real address area according 
to the number of 2K blocks specified for one or more 
real partitions by the operand (s) of the ALLOCR 
command. To reallocate the real address area this routine: 
1 . Builds a table (ALLOC table) containing the number 
of 2K blocks requested by the ALLOCR command 
and the number of 2K blocks already available in 
the system for a partition. A separate table entry 
exists for the background and each foreground 
partition. Source information is from ALLOCR 
command and boundary box. 

2. Checks to insure that at least 16K of real storage 
is left for the main page pool (if PFIX Is per- 
mitted) or that the smallest real partition plus the 
main page pool equals or exceeds 16K (if PFIXing is 
not permitted). 

3. Updates the boundary box using the information 
from the ALLOC-table. The number of 2K blocks 
is converted into lower and upper limits for each 
partition and inserted into the real part of the 
correct boundary box entry. 

4. Updates the part of the page table corresponding to 
the real address area. 






CONTROL 
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Chart 15. Job Control ($JCECTIJ) Stateirent Prccesscr (Fart 2 of 3) 



^ 



Chart 06 
Table D 



UCS 



UCS COMMAND PROCESSOR 



Charts PB-PC 



The 240-characi-er Universal Character Set (UCS) array 
specified by the operand phasename is loaded into the 
buffer of the IBM 2821 Control Unit specified by the 
operand SYSxxx. The phase is loaded from the core 
image library. 

1 . The operand SYSxxx specifies a 1403 with the UCS 
feature. 

2. The operand 'phasename' specifies the core image 
library phase to be loaded. 

3. The operand FOLD (optional) specifies that the buffer 
is to be loaded with the folding operation code 
(X'F3')inthe3rdCCW. 

4. The operand BLOCK (optional) specifies that data 
checks are to be inhibited. The inhibit data check 
operation code, X'73' is set in the 2nd CCW. 

5. The operand NULMSG (optional) specifies that the 
80-character verification message is not to be 
printed. The chain bit is set off in the 3rd CCW. 



ENTRY 



ENTRY STATEMENT PROCESSOR 



Chart PD 



This statement is invalid if the link option (JCSW2, bit 0) 
is not ON. If valid the ENTRY statement is copied to 
SYSLNK. 



PHASE 



PHASE STATEMENT PROCESSOR 



Chart PD 



This statement is invalid if the link option (JCSW2, bit 0) 
Is not ON. If valid the ACTION statement is copied to 
SYSLNK. 



HOLD 



HOLD COMMAND PROCESSOR 



Chart PA 



1 . All I/O assignments for the foreground partitions 
specified are to stay in effect from job step to job 
step. 

2. The operands of the HOLD command, Fx, can 
appear in any sequence. 

3. The hold flag, bit 4 of PIB+12, is set ON(l). 



ACTION 



ACTION STATEMENT PROCESSOR 



Chart PD 



This statement is invalid if the link option (JCSW2, bit 0) 
is not ON . If valid the PHASE statement is copied to 
SYSLNK. 
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Chart 16, Jcb Control ($JCECTLJ) Statement Processor (Fart 3 of 3) 



^ 



UPSI 



UPSI STATEMENT PROCESSOR Chart PK 



TKe operand of this statement is converted 
to a single byte and stored in 
CQMREG+23. 

• A character 1 sets the bit ON . 

• A character sets the bit OFF. 

• A character X leaves the bit unchanged. 



SET 



SET COMMAND PROCESSOR Charts PG-PJ 



Provides the operator with the capability 
of changing the UPSI byte, the system date, 
the line count, the system time, and the 
remaining disk capacity of SYSLST or SYSPCH 
when they are assigned to disk. Permits the 
operator to define to the system the status of 
the recorder file on SYSREC, which is used 
by RMS functions to store information con- 
cerning I/O errors and hard copy files to 
store messages from the Model 125 video 
Display/Keyboard Console. 
Processing is as follows when the operand is: 
DATE =the M/vVDD/YY or DD/M^/YY 

parameter is converted to binary and 
stored in COMREG+79 through 84. 
The Julian day is computed, adjusted 
for leap year, converted to EBCDIC, 
and stored in COMREG+85 through 87. 
Date is stored in COMREG of each 
partition. This operand is invalid if 
TOD IS supported. 
LINECT = The parameter is converted to 

binary and stored in COMREG + 
78. The job control line count 
for the remaining lines on the 
current page Is adjusted. 
RF = After the specified parameter is checked 
for validity, the proper option bit is 
set in the RF table status flag byte 
(byte 1). 
CREATE - X'08' 
YES- X'04' 
NO -X'lO' 
HC = After the specified parameter is checked 
for validity, the proper option bit is set 
in the CRTSAV table status flog byte. 
CREATE - X'08' 
YES - X'OO' 
NO - X'04' 
UPSI = See UPSI Chart 
RCLST = The parameter of this operand is 
converted to binary and stored in 
the SYSLST DIB. 
RCPCH =The parameter of this operand is 
converted to binary and stored in 
the SYSPCH DIB. 
SVA = (nK,nK) 

Parameters are converted to hexadeci- 
mal, and the SYSCOM and the boundary 
box are updated. 
SDL = CREATE 

Building of the system directory list in 
the SVA is started and control cards will 
be read from the input device. 



ZONE 



Chart 06 
Table D 



CATALR 



CATALR STATEMENT PROCESSOR Chart PN 



This statement is invalid if the LINK option 
(JCSW2, bit 0) is ON. If valid, CATALI^ 
SYSPCH mode switch (JBCSW5, bit 0) is set 
for handling the PHASE statement. CATALR 
statement is validated for syntax. The version 
and modification number (S/.M.) is checked 
for valid characters. Valid statement is 
punched or written on SYSPCH. If statement 
is invalid, job is canceled. 



DATE 



DATE STATEMENT PROCESSOR 



Chart PH 



Moves the date from the operand of the state- 
ment to the communication region (byte 0). 
Sets Date bit in COMREG + 59. 



INCLUDE 



INCLUDE STATEMENT 
PROCESSOR 



Chart PD 



This statement is invalid if the LINK option 
(JCSW2, bit 0) in not ON. If the statement 
rontnins nn ooernnd, the complete statement 
is copied to SYSLNK. If the statement does 
not contain an operand, SYSIPT data is 
copied to SYSLNK until a/* statement is read 
on SYSIPT. INCLUDE and/* are not copied 
to SYSLNK. 



MTC 



MTC STATEMENT (COMMAND) 

PROCESSOR Charts PE, PF 



Permits initiation of tope operations on 
specified logical units or physical I/O devices. 
The routine checks the op code, computes or 
locates the PUB pointer, assigns it to the 
SYSUSE LUB, and executes the operation. 
It also opens the recorder file (for RMS and 
hard copy file). The third operand (duplication 
factor) determines the number of operations to 
be performed. If the third operand is left blank, 
a duplication factor of 1 is assumed. 



ZONE STATEMENT PROCESSOR Chart PH 



Checks vailidity of operands. Converts value 
to seconds and moves it into the communication 
region zone field. The statement is valid 
with TOD support only. 



■^-H^ 
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Chart 17, Job Control ($JCECTLK) Statement Processor (Fart 1 of 2) 



^ 



' Chart 06 
Table E 



TPLAB 



TPLAB STATEMENT PROCESSOR 



Chart QA 



The sequence of the TPLAB statement is checked. It 
must follow a VOL statement. If there is a continua- 
tion punch in column 72, a second statement is read 
into the input area contiguously with the first statement. 
There are 49 characters read from the first statement 
and an additional 20 characters from the second 
statement. If a continuation statement is not indicated, 
a default value of 0000000 DOS Version 5 is inserted 
at the end of the 49 character record In the input 
area. The label is moved from the Input area to the 
label output area. 



DLAB 



DLAB STATEMENT PROCESSOR 



Chart OF 



The sequence of the DLAB statement is checked. It 
must follow a VOL statement. A continuation 
statement Is required. It Is read into the input area 
contiguously with the first statement. The disk 
format 1 label is built In the label output area, one 
parameter at a time. 

Param 1 (51 bytes) make up fields 1, 2, and 3. 
Param 2 (4 bytes, max.) is the vol. seq. no. It is 

converted to 2 bytes binary and stored In 

field 4. 
Param 3 (5 bytes) Is converted to 3 bytes binary and 

stored in field 5. 
Param 4 (5 bytes) is converted to 3 bytes binary and 

stored in field 6. The creation and expiration 

dotes are tested for validity (fields 5 and 6 

respectively). 
Param 5 (13 bytes) is stored in field 8. 
Param 6 (optional) Is tested 

if blank or SD, set field 10 to an S. 

If DA, set field 10 to a D. 

if ISC, set field 10 too C. 

If ISE, set field 10 to an E. 

if VSAM set field 10 to A. 
A switch Is set on to indicate that a DLAB statement has 
been processed and only an XTENT statement can follow. 



LBLTYP 



LBLTYP STATEMENT PROCESSOR 



Chart QA 



1 . If the first operand Is TAPE, the size of the label 
area is set to 80 bytes. 

2. If the first operand is NSD, the second operand 
(nn) Is used to calculate the number of bytes 
requird to contain the specified number of extents. 
This computed value plus 84 bytes determines the 
size of the label area. 

3. The size of the label area is stored for subsequent 
use by LiOCS and the linkage editor. 



XTENT 



XTENT STATEMENT PROCESSOR 



Charts QG,QH 



The sequence of the XTENT statement Is checked. 
It must follow a DLAB statement or another XTENT 
statement. The parameters are processed one at a time 
(parameter 1-7). An XTENT statement Is required for 
each extent to be defined for a given set of VOL and 
DLAB statements. The extents are built in a label 
output area and are written In the SYSRES label 
cylinder Information area. 



VOL 



VOL STATEMENT PROCESSOR 



Chart QA 



The 1st parameter SYSxxx is tested, converted, and 
the symbolic unit address Is saved In the label save 
area. The 2nd parameter, filename. Is tested and 
moved to the label output area. A switch is set to 
Indicate that the VOL statement has been processed 
and that DLAB or TPLAB statements are to follow. 
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Chart 18. Jcb Control ($JCECTLK) Stateirent Processor (Part 2 of 2) 



^ 



* Chart 06 
Table E 



riBL 



TLBL STATEMENT PROCESSOR 



Chart QB 



Default values are inserted for all operands from the 
file ID through the expiration date. The file-name 
operand is tested and moved to the label output area. 
The file ID and date operands are checked, converted, 
and moved to the output area. The date operand may 
be omitted or may be a retention period or an absolute 
date "yy/ddd". All the remaining operands (file 
serial, volume sequence, file sequence, generation, 
and version numbers) are then checked and moved 
to the output area, in turn, overlaying the default 
values (the default values will remain for any missing 
operands). Default values are then inserted for file 
security^ block count,, and system code. A switch is 
set to indicate that no other required statements are 
to come and that neither TPLAB nor DLAB will be 
accepted. 



EXTENT 



EXTENT STATEMENT PROCESSOR 



Charts QS-QL 



The sequence of the EXTENT statement is checked 
and default values are set from the default table 
built by DLBL statement processor for vol. serial, 
extent type, seq. no., upper and lower extent 
limits, logical unit, and bin no. The operands are 
then processed and overlay the default values. If 
the operands are omitted, the default values remain. 
When extent processing is complete, the extents are 
written in the volume area on SYSRES. 



DLBL 



DLBL STATEMENT PROCESSOR 



Chart QE 



Default values are inserted for all operands from 
file ID through data security, A default table is 
built to be used when processing the EXTENT 
statement(s). The filename operand is tested and 
moved to output area. The file ID and date 
qaerands are checked, converted, and moved to 
the output area. The date operand may be omitted, 
or may be retention period or an absolute date 
"yy/ddd". If the file ID was omitted, the file name 
is Inserted as default value. The proper filetype 
code is inserted for SD, DA, or IS. If DSF Is 
specified, the data security indicator is set ON. 
A switch is set to indicate that only extent 
statement (s) may foSSow. 



RSTRT 



RSTRT STATEMENT PROCESSOR 



Chart QQ 



Computes the LUB and PUB pointer for SYSxxx and 
saves the checkpoint number. Insures that all 
label processing has been accomplished and 
closes the user label area. Causes SJOBCTLB to 
be loaded (by $JOBCTLA), 



^ 



$JOBCTLB 



^ 



CONTROL 
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Chart 19. Job Control C$JCECTLM) 



Chart 06 
Table F 



MAIN 00 



RECORDER FILE & HARD COPY 
FILE INITIALIZATION 



Chart RA 



Recorder file is initial Ized in accordance with the option 
specified in the SET command. For Models 1 15 and 125 
with no RMSR support, initilization is omitted. Exit is to 
create a hard-copy file. If open is not successful, message 
1 I84A is issued and system enters hard wait state. 

If RF=YES, an active recorder file exists. 

If RF=CREATE, the system creates a new recorder file. 
Hard-copy file is initialized in accordance with the 
option specified in the SET command. If open Is not 
successful and the display operator console (DOC) does 
not have a printer attached message 1 195A Is Issued and 
system enters a hard wait state. If open Is not successful 
but the DOC does have a printer, message 1 1971 is Issued 
and system does not enter the hard wait state. 

If HC=CREATE, the system creates a new hard-copy flU 

If HC=YES, an active hard-copy file exists. 



CREATE RECODER FILE 



Charts RA-RB 



Creates and formats recorder file. 

If irrecoverable I/O error during building or formatting, 

message n86A is issued, and system enters a hard wait. 



MAIN05 



CHECK RECORDER FILE 



Chart RA 



Build channel ID map. Reads SYSREC serial number for 
PUB2 table. Builds a load list for RMS. Reads and puts 
header address in RF table. 

If irrecoverable I/O error during reading of record, 
message 1 I86A Is Issued on SYSLOG, and system enters 
a hard wait. If RDE specified, builds and writes IPL/EOD 
record. Computes the percentage of filled space in the 
recorder file and printes the message, "RECORDER 
FILE I xxx% FULL". If the recorder file is more than 
90% full, "RUN EREP" is added to the end of that 
message . 



RODOO 



ROD COMMAND PROCESSOR 



Charts RC-RD 



Recorder file is Initialized. If SYSREC not assigned, 
message 150nD is Issued. Builds records according to 
device type; if 3330, 3333 or 3340, builds MDR record. 
If RDE specified builds device EOD record; and If end 
of day, writes EOD record. Computes the percentage 
of filled space In the recorder file and prints the message 
"RECORDER FILE IS xxx% FULL". If the recorder file Is 
more than 90% full, "RUN EREP" Is added to the end of 
the message. 



CREATE HARD COPY FILE 



Charts RA- 



Creates and formats hard-copy file. If the extent for the 
hard-copy file does not have a minimum of ten tracks, 
message 1 I99A Is issued and the system enter a hard 
wait state. After formatting, the message DOS/VS IPL 
SUCCESSFULLY COMPLETED will be written as first 
record to the hard-copy file and the current address 
will be updated (no statement issued before the first 
JOB statement, or the first JOB statement itself is 
written to the hard-copy file). If an irrecoverable I/O 
error during formatting or writing, message 1 I96A Is 
issued and system enters hard wait state. 



SCAN HARD COPY FILE 



Chart RB 



If an active hard-copy file exists. It Is read until the 
current and the wrap-around record have been found. 
The current address marks the location In the hard-copy 
file to which the next record from the DOC will be 
written. The wrap-around address marks the first 
location In the hard-copy file that has not yet been 
printed during the previous run of the PRINTLOG 
utility. When the current and the wrap-around address 
have been found, the message DOS/VS IPL 
SUCCESSFULLY COMPLETED, will be written to the 
hard-copy file and the current address will be updated 
(no statement Issued before the first JOB statement , or 
the first JOB statement itself Is written to the hard- 
copy file). If an irrecoverable I/O error occurs 
during the search for these two addresses, message 
1 I96A Is issued and the system enters a hard wait 
state. 



^ 
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Chart 20. Jcb Control ($JCECTLN) 



* Chart 10 
$JOBCTLE 



$JOBCTLN 



JOB ACCOUNTING INTERFACE 



Chart SA and SB 



1 , Store registers and set exits. 

2, If last user exit from job accounting was not normal, 
exit to ------- ---^-----— --—-—--—-----------— --i^---^— 



3, Other $JOBACCTs in progress? YES - Wait for their 
completion. NO - Post $JOBACCT active. 

4, Calculate and store final CPU time. 

5, Save base registers and initiaize user 

5. Save base registers and initialize user pointers. 



LOAD $JOBACCT 



Turn off Job Accounting Interface support 
switch in COMREG. Post cancel Job Accounting 
Interface to other partitions. In order to reactivate 
Job Accounting the Supervicor must be reloaded 
(IPL mode). 



RETURN 



JOB ACCOUNTING INTERFACE 



Chart SB 



1 . Restore base registers, turn off user in charge switch, 

2. Dequeue any waiting partitions. 

3. Re-initialize accounting table for next job step. 

4. Turn off $JOBCTLN active switch and label switch, - 

5. Restore job control registers. 

6. Return: 

. If entry was from EXEC, return to phase vector 
table in $JOBCTLA.. 



If entry was from EOJ, return to CONTROL in 
$JOBCTLA. 



If entry was from simulated EOJ (Job statement 

Processor), return to $JOBCTLG. 

Otherwise : ' 



/-EOJ \ 

V SVC 14 J 




TABLE G 



CONTROL 
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CHARTS 



Chart AA. $$A$IFL1 - IPL Ecctstrap 
Befer to Chart 01. 



06 00 00 18 60 00 00 

CCHl 

READ DISK INTO STORAGE LOCATION HEX 
18. t40~BYTES OF DATA, CHAINED CCW, 
AND SUPPRESSED WLR . ) 



SEEK THE DISK ADDRESS SPECIFIED BY 
FIRST 6-BYTES OF DATA IN THE SEEK 
ADDRESS LOCATED AT STORAGE LOCATION 
HEX 30. (CHAINED CCW AND SUPPRESSED 
WLR.) 



SEARCH FOR THE DISK RECORD SPECIFIED 
BY THE 5-BYTES OF DATA IN STORAGE 
LOCATION HEX 32 tSEEK ADDRESS PLUS 
2-BYTES). THE CCW IS CHAINED AND WLR 
IS SUPPRESSED. 



♦4>**B3**«4(***** 

* OPERATOR SET » 

* UNIT PRESS ♦ 

* LOAD KEY * 



CCWl 

READ 40 

♦ BYTES * 

(CYLINDER 00, 

* TRACK 00, ♦ 

RECORD 2) 



*«*D3#*««4c**4c4i*** 



«*«««4c#4c4t4e*:|c4<4t««c* 



* SEARCH USING 
CCW3 FOR 
* RECORD 5 * 



THE OPERATOR CAUSES THE MICROPROGRAM TO REA_ 
THE $$A$IPL RECORD FROM SYSRESICYL 0,TRK 0,REC II 
INTO REAL STORAGE LOCATIONS 0-l7(HEXA0EC IMAL» . 
THIS RECORD CONSISTS OF: 



.HEX LOC .0 
rCONTENfT'PSW* 



THE MICROPROGRAM INITIATES A SIO COMMAND 
SPECIFYING SYSRES AS THE UNIT AND CCWl (HEX 
LOC 8) AS THE FIRST CCW. THIS COMMAND CAUSES 
THE NEXT 40-BYTE RECORD TO BE READ FROM SYSRES 
INTO READ STORAGE LOCATIONS 18-3F(HEXA0ECr MAD 
THIS RECORD CONSISTS OF: 



.HEX 


LOC. 


18 


20--*- 


28-*: 


30 


37 


-•3f: 


.CONTENT. 


CCW3. 


CCW4. 


CCW5. 


SEEK 
ADDRESS 


UNUSED. 



. THE CCWS (1-5) ARE CHAINED TOGETHER. 

. THE SEEK ADDRESS (HEX LOC 30) CONTAINS THE 
SYSRES DISK ADDRESS OF THE $SA$IPL2 PRO- 
GRAM. THE FORMAT OF THE SEEK ADDRESS 
FIELD IS 

rHix^Lociio'iiriKsiri^'isriii 

ToEC iMAL r 61 " oT 61 * 61* 61 * i I * 5l 

• CONTENT . 

lMEANiNG''*B*'B'*c'*c"H*'H'*R* 

WHERE BB IS BIN NO. 

CC IS CYLINDER NO. 
HH IS TRACK NO. 
R IS RECORD NO. 

AT THE COMPLETION OF THIS BOOTSTRAP OPERATION, 
$$A$IPL2 HAS BEEN LOADED INTO REAL STORAGE AND 
THE MICROPROGRAM TRANSFERS CONTROL TO IT BY 
LOADING THE PSW REAL STORAGE LOCATION 0, 



TRANSFER IN CHANNEL (TIC) TO CCH3 UNTIL 
THE SEARCH ADDRESS SPECIFIED BY CCW3 
IS FOUND. (CHAINED CCW AND SUPPRESSED 
WLR. I 



READ DISK INTO STORAGE LOCATION HEX 
3000. (A096-BYTES Of DATA, SUPPRESSED 
WLR.) THIS CCW IS NOT CHAINED. 



♦**G3** ********** 

* READ 4096 * 
BYTES 
♦ $$A$1PL2 * 



«4t«*H34<* ***'«<**« 



THE PSW AT LOCATION CONTAINS 
THE ADRESS OF THE FIRST EXECUTABLE 
INSTRUCTION OF THE $$A$IPL2 PROGRAM. 



««*4c«*4c4c4t«4c««4c4: 
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Chart EA« $$A$IFL2 - Clear Storage and Load Si^per'viscr 
Refer to chart 01. 



♦ ♦ 

♦ $$A$1PL2 * 
4> * 

*4t*«*«*«4c ****** 



4<****Bl*«*4tiK***** 

* * 

* INTERCEPT * 

* PENDING * 

* TIMER ♦ 

* INTERRUPT * 
***4(************* 



.* *. 
♦ SYSTEM ♦. YES 
DAMAGE .♦,... 



***************** 



^ *♦** 

Cl EAR X 

*****[)X********** 

* * 

* CLEAR 256 ♦ 

* BYTES OF MAIN ♦ 

* STORAGE * 

* * 
***************** 



**** 

* * 

* A3 ♦ 

* ♦ 



* LOCATE * 

* DEVICE TABLE * 

* USING F4 * 

* LABEL * 
***************** 



*****B3********** 



***************** 



* BUILD * 

* LOW CORE * 

* MESSAGE * 

* * 
***************** 



****E2********* 

* ENTER * 

* HARD WAIT * 

* * 
*************** 



**** 

♦ * 

♦ 82 * 

♦ * 
**** 



Fl 



♦ , 



.*ADDRESSING *. YES * SAVE END * 

. EXCEPTION .* X* ADDRESS OF * 

*. .* * REAL CORE * 

*. .* * * 

♦, ,♦ ***************** 

* NO 



*****G I********** 

♦ * 

♦ UPDATE * 

♦ POINTER * 

♦ TO NEXT * 

♦ 256 BYTES * 
***************** 



*****G2 ********** 

* * 

* BUILD * 

* INFORMATION * 

* MESSAGE * 

* 0I04I * 
***************** 



*_*_*_*_*_*_*_*_* 

* READ * 

* VOLUME 1 * 

* LABEL * 
***************** 



*****J2 ********** 

* ♦ 

* GET VTOC * 

* ADDRESS FROM * 

* VOLl LABEL * 

* * 
***************** 



*****K2 ********** 
*IORTN BD * 

*_*_*_*_♦_*_*-*-* 

* READ * 

* FORMATS * 

* LABEL ♦ 
***************** 



lOINTI .*. 

D3 *. 
,* *, 

.* ATTENTION *. NO 



*****E3********** 

* * 

* SAVE * 

* DEVICE * 

* ADDRESS * 

* * 
***************** 



INDICATE 

NO DISK 

DEVICE 

* * 

*********** 



*_*_*_*_*_*_*_*_* 

* READ * 

* SUPERVISOR * 

* NAME * 
***************** 



..,.X. 

NXTDRCYL X 

*****A4********** 

* lORTN BD * 
*_*_*_*_*_*_*_*_* 

* SCAN DIRECT * 

* CYLINDER FOR * 

* SUPVP ENTPY * 
***************** 



*****B4********** 

* ♦ 

* SET DISK ♦ 
*AODRESS TO NEXT* 

* CYLINDER * 

* ♦ 
***************** 



C4 *. 
,♦ * 

.* END 

OF 
♦.CYLINDER 



* NO 



* SCAN DIRECT. * 

* BLOCK FOR * 

* SUPERVISOP * 

* ENTRY * 
***************** 



***************** 



**K3******* 

* * 
INDICATE 

DISK 
DEVICE 

* * 
*********** 



* CALCULATE * 

* SIZE OF * 

* SUPERVISOR * 

* * 
***************** 



BG PART 

AT LEAST 

I6K 



*****H4********«* 

* * 

* MOVE * 

* $$A$IPL2 * 

* TO BG PART * 

* + 12K * 
***************** 



*****j4********** 

* * 

* RELOCATE * 

* AOCONS IN ♦ 

* $$A$IPL2 * 

* * 
***************** 



***** 
*BB * 
* AI* 



* BUILD LOW ♦ 
X* CORE ♦ 

* MESSAGE ♦ 

* Or02A ♦ 
***************** 



****P5 ********* 

* ENTER * 

* HARD WAIT ♦ 

* * 
*************** 



BUILD * 

LOW CORE * 

MESSAGE ♦ 

OIOOA * 

*************** 



****H5 ********* 

* ENTER * 

* HAPQ WAIT * 

* * 
*************** 
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Chart EE. $$A$IPL2 - Initiate System (Part 1 cf 2) 
Refer to Chart 01, 



***** 

♦ BA ♦ 
* * 



* CONVERT * 

* TTR TO DISK * 

* ADDRESS ♦ 

* * 
*«**«««4c««*4c*«4(*4c 



SET STORAGE 

PROTECT KEY 

OF PP 

* AREA TO I * 

*********** 



* * 

* SWAP SUPVR'S ♦ 

* I/O AND EXT * 

* PSWS FOR OWN * 

* PSWS ♦ 
***************** 



♦_♦_♦_»_♦_*-*_♦ 

* READ 1 ♦ 

* TEXT * 

* BLOCK ♦ 

4c**************** 



*****B24>********* 

* * 

* SET CHANNEL * 

* STATUS ♦ 

* IN CHANNEL * 

* TABLE * 
***************** 



*****B3********** 



***************** 



SYSRDR 

NOT 

•ASSIGNED 



* 8UTLD * 
X* LOW CORE ♦ 

* MESSAGE * 

* OTOIA * 
***************** 



*****C 1********** 

* ♦ 

* UPDATE * 

* TTR AND * 

* DATA * 

* ADDRESS * 
***************** 



*****Q2****'**4'*4'* 

♦ ♦ 

♦ MOVE XFER * 

♦ ROUTINE * 

♦ TO COMM. * 

♦ AREA * 
***************** 



*****C4********** 

* * 

* LOAD ♦ 

* DEVICE * 

* ADDRESS * 

* FROM PUB * 
***************** 

**** I 



****C5 ********* 

* ENTER * 

* HARD * 

* WATT * 
*************** 



*****Q2 *««'*<****♦* 

* MOVE FOCL * 

* AND PUB * 

* TO COMM. * 

* AREA ♦ 
***************** 



* LOAD DEVICE * 

* ADDRESS * 

* FROM INT, * 

* CODE * 
***************** 



**** 
PRSYSRDR X 

«****Q4********** 

* * 

* SET 2501 * 

* AS DEVICE * 

* TYPE IN * 

* NEW PUB ♦ 
***************** 



*****£ 2********** 

* * 

* AND FIRST * 

* THREE PUBS * 

* * 
***************** 



E3 *. 

,* ♦, 

ATTENTION 



**♦* 

* * 

* G3 ♦ 

* * 
♦*** 



**g4******* 

* * 
INDICATE 

IN COMM 

* AREA ♦ 
*********** 



*****p X*'^***'t=*«** 



***************** 



**d******* 

* * 
INDICATE 

IPL IN 
PROGRESS 

* * 
*********** 



SYSTEM *. 
WITHOUT 
TEBS .♦ 



*****g2 ♦****♦***♦ 

* « 
» MOVE TEBS ♦ 

* TO COMM. * 

* AREA * 

* * 
***************** 



F3 ♦. 

.* *« 

D .♦ *. Y 

.*. DEVICE END .* . 

♦ , ,* 

*, ,* 

♦ . .* 

* 

**** 

* * 

* G3 *.,. 

* * 
**** 

PRSYSLOG X 

*****G3 ********** 

* ♦ 

* SET 1052 * 

* AS DEVICE * 

* TYPE IN * 

* NEW PUB * 
***************** 



♦ **» 

* * 

* 04 * 

* ♦ 
**♦* 



**f:4******* 

* ♦ 
INDICATE 
JCL INPUT 
ON SYSRDR 

* * 
*********** 



**H1******4 

* * 
MASK OFF 
ATTENTION 

ROUTINE 

* * 
*********** 



* MOVE FICL * 

* AND NICL AND * 

* LUB TO * 

* COMM. AREA * 
***************** 



**H3******* 

* * 
INDICATE 

SYSLOG 
IN COMM 

♦ AREA * 
*********** 



*****j X********** 

* * 

* USE END OF * 

* CORE ADDRESS * 

* AS END OF ♦ 

* PP AREA * 
***************** 



* UNASSIGN * 

* BG SYSTEM * 

* LUBS * 

* # 
***************** 



*****J3***«****** 

* * 

* SAVE * 

* DEVICE * 

* ADDRESS * 

* * 
***************** 



SET STORAGE 

PROTECT KEY 

OF SUPVR 

* AREA TO * 

*********** 



*****t<2 ********** 

* * 

* BUILD PUB * 

* AND LUB ♦ 

* FOR SYSRES * 

* * 
***************** 



* COMPLETE * 

* PUB FOR *. 

* SYSUSE AND * 

* BUILD LUB * 
***************** 



*****K4********** 

* RESTORE * 

* SUPERVISOR'S * 
.X*I/0 AND RETURN * 

* NEW PSW'S * 

* * 
***************** 



***** 
*BC « 

* Al* 
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Chart BC. $$A$IPI2 - initiate Systeir (Part 2 cf 2) 
Refer to Chart 01. 



***** 

*BB * 
* K4* 



♦♦♦♦♦A I********** 

* * 

* SEQUENCE ♦ 

* PUB AND LUB * 

* BUILD * 

* FOCL * 



ti****!^H^iti*******itt 

♦ * 

♦ PUT * 

♦ ADDRESS OF * 

♦ SYSRES PUB IN * 

♦ SYSCOM * 

*****itiilni(f*:t'******* 



,♦ 


NO MPS 


♦ . YES 




AND 


.*. ..* 


* 


. NO TP 
*. .* 


.* • 






^ NO 










**i 


)c*Ol********** 










BUILD 






CHANNEL 






BUCKET 




**i 


^ilfitt*********** , 






X.,. 





.♦ MESSAGE ♦. NO 
DEVICE .*... 

♦. PRESENT .* 



* * 
INDICATE 

NO DISK 
DEVICE 

* ♦ 



***^:ll,Ql*:ti**^^i**** 

♦lORTN BD* 
♦-*_*-*-♦-♦-♦-.♦-* 

* GIVE * 

* MESSAGE * 

* 0I04I * 

************:llt**** 



♦ * ENTER * ♦ 

♦ * PROBLEM * * 

♦ * STATE * * 

♦ * ♦ ♦ 

tt*****:Htt********* 



*****j I********** 

* * 

* * 

* LOAD $IPLRT2 * 

* ♦ 

* * 
*ilt*H^*i^it' ********** 



****K I********* 

♦ TRANSFER * 

♦ CONTROL TO * 

♦ $IPLRT2 ♦ 
*************** 
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Chart ED. $$A$IPL2 - Input/Cutput Subroutine 
Refer to Chart 01. 



♦*♦♦ 

* * 



* lORTN * 

* ♦ 



**B !**♦**♦♦ 

« « 

RESET 

I/O 

SWITCH 

« * 



* * 

* SAVE * 

* CSW AND * 

* CAM ♦ 

* ♦ 

*♦♦♦ I 

* ♦ . 

* B2 ♦.X. 

* ♦ . 
♦♦*♦ X 

SENSE .♦. 

B2 *. 

.* *. 

.* NUMBER OF ♦. Y 

*. RETRIES EQ .♦. 

*. 10 .♦ 

*. .♦ 

*, ** 



iHfjifim^i^^iti********* 



«*««i|i*4(*««4>«i|>*«4»|i 



JDEVl . - 

Dl *. 
.* 

NOT .* TEST 
...♦. DEVICE 
♦ , 
AVAILABLE. 



EI *. 
CHECK 



*. NOT 
.♦ OPER. 



♦ * 
.X* F2 * 



*♦♦♦ 

♦ * 

♦ H3 ♦ 

♦ * 



««:(t*4t4t ♦*#*««««« 



YES .* ERROR *. 
X..*. POSTED 

*. IN CSW .* 



.» END 

OF 
♦.CYLINDER 



24 

SENSE 
BYTES 



* ♦ 
INDICATE 

END OF 
CYLINDER 

* ♦ 



****B5****»**** 

* RETURN * 

* TO CALLER * 

* ♦ 



NO .♦ DATA *. 
♦. CORRECT .* 



4c 4c« *♦ F 44=4' « 4= *'i' * * * * 



♦ SET UP FOP * 




♦ ERROR * 




* CORRECTION * 




♦ * 




:4c4c4c!|c:|e«4[4c«;)c«4c*«**4< 




**** 




* ♦ , 




♦ G4 *.X. 




♦ * . 




**♦♦ X 




ECFLOOP .*. 


ECFLOOPl .*. 


G4 *. 


R5 *. 


.* *. 


.* *. 


.* ERROR *. YES 


.* EC *. YES 


*. WITHIN .* 


...X*. BYTE .*... 


*. SEGMENT .* 


*. ZERO .* 



♦*♦♦ 

♦ * 

♦ B2 * 

♦ * 
♦*♦♦ 



* * 
INDICATE 

COMMAND 
REJECT 

♦ * 



, 


CHKCSWl .*. 


X 


K2 


He)(l)|t*««*)(c4<Kc« 


.* 


RETURN ♦ 


.* 


TO CALLER * 


*. DISK 



«4t«**«4t*«*#4(4c*4^ 



♦*♦* 
ERRORO X 

* RESTORE * 

* CSW AND * 

* CAW * 

* * 



* BUILD * 

* LOW CORE * 

* MESSAGE * 

* X«07E6' * 

* ♦ 

4c 4E:t(4<#«*«* »««««**«: 



4c«4c«K34c«)(c«4c#««« 

* ENT ER * 

* HARD WAIT * 

* * 



* * 

* CORRECT * 

* BYTE IN * 

* ERROR * 

* * 

4c4t4c4c4c«*4c««#4i4c4c«4c« 



♦♦♦)(.J4**#*#*j(.s)c* 

* RETURN * 

* TO CALLER * 

* * 

4c4t>tc4c4e*:4c4'4c4c4c4c4c4c« 



ECFINCR .*. 






J5 *. 






.♦ * 






.* 


*, 


NO 


♦. FINISHED 




*. . .. 


*. < 


* 




*. .* 






*. .* 




X 


♦ YES 




* * 

* G4* 

* * 
***♦ 








4c« 4c* K5 ^'A^'tc^c^c 4c« « 


♦ RETURN 




* 


♦ TO CALLER 




* 



4i««*4c««4c«4c4c4c4c4'« 



**4c« 
« * 

♦ A4 * 
4c 4c 

4«*4c4c 
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chart CA. $IPLRT2 - Initializaticr Routine (Part 1 cf 2) 
Refer to Chart 02. 



** REFERENCES 
* TO CAA4S 

CBB4, CBC5 

CBD5, 

CBE4t 

CBK2, 



* * 

* $IPLRT2 * 

* * 



* ESTABLISH * 
♦ADDRESSABILITY * 
♦FOR THIS PHASE ♦ 

♦ * 



♦ ♦ 

♦RELOCATE ADCONS+ 

♦ LOAD THE ROOT ♦ 

♦ PHASE BASE ♦ 

♦ ♦ 



♦ FIND END ♦ 

♦ OF PARTITION. ♦ 

♦ DETERMINE ♦ 

♦ LENGTH OF ♦ 

♦ SUPERVISOR ♦ 



PPBEGOR .♦. 

B2 ♦. 
.♦ IS ♦. 
NO .*THERE ROOM ♦. 
...♦. FOR $IPLRT3 .♦ 
♦.+ $IPLRT4.+ 



.♦ ♦. 

.♦ IS THIS *. YES 
♦ .THE LAST PUB .♦... 



*. .* 



♦*C2 ♦♦♦♦*♦♦ 

♦ ♦ 
SET SWITCH 

TO LOAD 
$IPLRT4 

♦ ♦ 



Dl 



♦ , 



IS ♦. 
COMDEV 
. L06DEV .♦ 
♦ . ,♦ 
♦ . ,♦ 
♦ YES 



El ♦. 


E2 ♦. 


♦ ♦, 


.♦ ♦. 


IS DOC ♦. NO : 


.♦ ROOM FOR 


SUPPORTED ...... 


♦. $IPLRT5 


.* . 


♦ . 


*. ,♦ , 


♦ . •♦ 


♦ . .♦ 


♦ . .♦ 


♦ YES 


♦ YES 



-♦-♦-♦-♦_*_ 



4i*«*«««4c4c«««!(c:(c4c«« 



4[4c4c««H !♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ MODIFY ♦ 

♦ DEVICE TYPE ♦ 

♦ IN PUB ♦ 

♦ ♦ 



«***« J X «4c 4c *«4< :((:((«« 



:^:li^nf************* 



NOTCRT 

4c«*4c«K !♦♦*♦♦*♦♦♦♦ 
♦ALCRTN CJ+ 

♦-*-♦-*-*-*-*-♦-* 

♦ VALIDATE * 

♦ CORE * 

♦ ALLOCATION * 



♦ CALCULATE * 

♦ LENGTH FOR ♦ 

♦ $IPLRT5 ♦ 

♦ * 



**f2******* 



t^ztc^.^c**^*** 



NO .♦ DIRECT ♦. 
..♦.ACCESS DEVICE. ♦ 
♦. TYPE .♦ 



SEEK 

OVERLAP 

.SPECIFIED. 



««iti 4: :|tD3 ♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ INCREASE SEEK ♦ 

♦ ADDRESS BLOCK ♦ 

♦ (SAB) COUNT ♦ 

♦ BY 5 ♦ 
4(i(( 4c ♦♦♦♦♦♦.*♦♦♦♦♦♦♦ 



♦ INCREASE PUB ♦ 
♦COUNT BY LENGTHS 

♦ OF PUB (8) ♦ 

♦ ♦ 



READCD 

♦♦♦♦♦A4++^^^+^+^* 

♦ SAVE PROGRAM ♦ 
♦CHECK NEW PSW. ♦ 

♦ STORE ADDRESS ♦ 
♦OF RETURN POINTS 

♦ IN PSW * 

«>te4c4:«^«4c^4c^^^^^^^ 



♦ * 

♦PUT RETURN PSW ♦ 

♦ INTO PROGRAM ♦ 

♦ CHECK NEW PSW ♦ 

♦ * 
^^^^^♦♦♦♦^(♦♦♦♦♦♦^ 



♦ INDICATE ♦ 

♦ PRIVILEDGED ♦ 

♦ CODE ♦ 

♦ ♦ 
««♦♦*♦♦*♦♦♦♦♦♦♦♦♦ 



♦ ♦ 

♦ SAVE * 
♦OLD PSW STATUS ♦ 

♦ FOR RETURN ♦ 

♦ ♦ 



CBEl 

CBH2 
CBK4 , 



♦ RESTORE ♦ 

♦ MACHINE CHECK ♦ 

♦ NEW PSW ♦ 

♦ * 



♦♦♦♦* 

♦CC ♦ 
♦ Bl^ 

♦ ♦ 



« «# *« p 43|C4C« 4c «4( « ^'♦llc 



«4c4c4c4<^^^^^^^*^^^^ 



OLD ♦, 
MC PSW 
VALID .♦ 



«#«♦♦£ 5 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ SET HARD ♦ 
♦MACHINE CHECK. ♦ 

♦ ACTIVATE ♦ 

♦ $$RAST03 ♦ 
#«♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



«4c)ic4(4<F5 ♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ GET RASBLOCK. ♦ 

♦ ACTIVATE RAS. ♦ 

♦ CAUSE ♦ 

♦ TASK SELECT ♦ 
4t*4c*«^«4c« 4c 41 *♦♦♦♦♦ 



4c4c^*4tH 2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ TURN ON LINE ♦ 
♦MODE FLAGS AND ♦ 

♦ GET NUMBER ♦ 

♦ OF LINES ♦ 

4c%^««4'4c«4c4<4c4c4' %4<'«<« 



♦ALTER COUNT FOR^ 

♦ FOCL. STORE ♦ 

♦ SAB AND PUB ♦ 

♦ COUNTS ♦ 
4(4'^*^^«^^«^^«*^^^ 



MODEOK 

^^♦♦*64^^^^^^^^^^ 

♦ * 

♦ RESTORE PSW'S ♦ 

♦ GET EXTENDED ♦ 

♦ LOG AREA ♦ 

♦ ADDRESS ♦ 

4c*4c4c*^*4c*4t*4c4'4<4c«* 



^^♦♦♦H4^^^^^^^^^^ 



4t4t+^^ J2 ♦♦♦4'*^*^^^ 

♦ ♦ 

♦ INITIALIZE ♦ 

♦ PUB COUNTING ♦ 

♦ LOOP ♦ 

♦ * 

4e4c*^^^4E^^^^^^^^^4t 



,♦ ARE THERE ♦. NO 
♦ . TEB'S .♦... 
♦ , .♦ 
♦ . .♦ 
♦ . .♦ 
♦ YES 


♦FETCH $$BCCHHR ♦ 

♦ TO BUILD ♦ 

♦ LOAD LIST * 

♦ ♦ 

4c <>♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


X 

4c4c4c4<«J3^*^«^«^«^« 

♦ TURN ON ♦ 

♦ TEB FLAG AND ♦ 

♦ CALCULATE ♦ 

♦ NUMBER OF ♦ 


X I 
4t4(^^^J4^^^^^^^^^^ 

♦ SAVE MC PSW ♦ 

♦ AREADGORE ♦ 

♦ ADDRESS OF ♦ 

♦ MC ROUTINE ♦ 

♦ IN MC PSW ♦ 
4<4<4c^«^^^4c4<*^^^^^^ 


*x.. ........ 


*x...,......r 


X 
*♦**♦ 

♦ CB ♦ 

♦ A3^ 
* * 


CLEAR X 

4c 4c4c4c*K4^^^^ ♦♦♦♦♦♦ 

♦ CLEAR STORAGE ♦ 

♦ TO END ♦ 

♦ OF REAL CORE * 



4c4c4'*J5 ♦♦♦♦♦♦♦♦♦ 
♦RESTORE MC PSW,^ 

♦ PASS CONTROL ♦ 

♦ TO RAS ♦ 



«*♦♦«*:*♦«♦♦**♦**« 
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Chart CE. $IPLRT2 - Initialization Routine (Part 2 of 2) 
Refer to Chart 02, 



♦ CA ♦ 

♦ J3* 

♦ ♦ 



*A1 TEXT OF MESSAGES 

EAST 
0I30I DATE-../../..,CLOCK«../../..,ZONE»WEST/../ 

EAST 
0I31A DATE REQUIRED(tCLOCK REQUIREOi »ZONE=WEST/. 

0I32I TOD INOPERATIVE: NO TOD SUPPORT 



***4»ti A3 ***♦*♦«>*♦* 



*4(*i«*«**«4c***<f**« 



.*. 
B3 *. 
.* *. 
.* ERROR OR *. YES 
♦ .CLOCK NOT SET.*.... 



CLMOTSET 

♦INDICATE IN* 
* SET SWITCH * 
..X*' CLOCK NOT SET * 
*0R IN ERROR* * 

♦ * 



.* IS COMOEV *. N 
*. SYSLOG .*. 

*. .* 



*CA * 
* A4* 



CLNOTOP 

4ciKC 2 ******* 

*INDICATE IN* 

* SET SWITCH * 

* 'CLOCK NOT 

♦OPERATIONAL' * 

♦ * 



. X* 



«**«4c04********** 

* MOVE ZONE * 

* FROM TODCOMRG 

* INTO 

* MESSAGE 



«*4t*4cC5 ********** 
♦MSGRTN CH* 

ISSUE MESSAGE * 
*0!31A (WITHOUT * 
*ZONEr *A1* 

I **** 
- *CA * 

..X* ^^ * 



****REA0C1 

♦MSGRTN CH* 

* ..X* ISSUE MESSAGE * 

* * 0T31A (WITH * 

*ZONEJ *A1* 



El *. 






E2 *. 


.* ♦ . 






.* *. 


.* ^ igD^_ * 


• NO 


.* TOD ♦. NO 








e. ::L;rFaRT .-•-. 


'"♦. ^IN^^SV' .* 




'** 


♦ . IN SV .♦ 


*. .♦ 






*. .* 


♦ . .* 




X 


♦ . .♦ 


* YES 




***** 
♦CA ♦ 
* A4* 
* * 
* 
READCD 


* YES 


X 




LOGIPL X 


*4<*4>*p l*4<*4:4^««*4t4c 




*****P2^********* . 


* PUT MESSAGE 






* * 


♦NUMBER OF 'TOD 
* CLOCK INOPER- 






* SET TOD * 






* SUPPORT BIT * 


* ATIVE' INTO 






* OFF * . 


* LOW CORE 






* * . 


^m^^i^e************ 




4c:(i*******4c*****«i* , 
I X.. ..«.••.. I 


X 
***** 








*CH * 








* Dl* 






X 


* * 






**«**Q2 ********** 


* 






*MSGRTN CH* 


ABNCHK 






♦_*_*_ 5»-#_ :«,_*_*_* 



*****E3****«***** 

* CONVERT CLOCK * 

* VALUE INTO * 

* AND NUMBER * 

* OF SECONDS * 

#«4(4(*«*4<**4e***<i** 



*****^4«*****4ii|c*:(c 

*N0 CALCULATION * 

* OF DATE, CLOCK * 

* IPL^MESSAGE * 

* * 
*«***4t***#4e4t***** 



«*****« )|t****4c 4t4< ifi^c 

I **** 
. *CA * 
..X* A4 



****55 ««*i|c*4c*4<« 



^^c************* 



***** 

*CA * 
* A4* 



.X* 



****«(= 4* 4c*i|E«4e***« 

♦USE ZONE VALUE ♦ 
■ FROM TODCOMRG * 
TO ADJUST * 
TIME OF DAY * 



**4i**««*«**«****4e 



READCD 

DOCRTN X 

**4c**P5 **««#:!(«««* 

* ♦ 

* GET ADDRESS * 

* OF SCREEN * 

* ! MAGE * 

* * 
«*«*#*«*«******** 



ISSUE MESSAGE 

^ 0I32I ^ 

* *A1* 

4c**************** 



*««*«H2********** 
♦MSGRTN CH* 

*-*-*- *_♦_*_♦_*_♦ 

* ISSUE MESSAGE ♦ 

♦ 0I31A (WITH ♦ 
♦ZONE) ♦Al^ 



X 
***** 
*CA * 
♦ A4* 



**l|c4t*Q3*« ******** 

* CONVERT DAYS * 

* TO NUMBER OF * 

* YEARS. MONTHS, * 

* AND DAYS * 

* * 
***************** 



*4c**«H3 ♦**♦****♦♦ 

♦ CONVERT * 

* SECONDS TO * 
♦NUMBER OF HOURS* 

* MINUTES AND ♦ 

♦ SECONDS ♦ 

****4:*****«**4c*4c* 



**«**J3***«*****« 

* * 

* INSERT DATE ♦ 

* AND TIME * 

* INTO MESSAGE ♦ 

* * 
***********«««««* 



***«*(;5 ****** **«* 

* STORE ADDRESS ♦ 
♦OF SCREEN IMAGED 

* IN ♦ 

* DOCCCW * 

* * 
*«****«*«*******« 



*3|(**4eh5 ********** 

* * 

* ISSUE * 

* ERASE/WRITE * 

* COMMAND * 

* * 



****J5 *******♦♦ 

* * 

* RETURN * 

* * 
*************** 



*****K2 ********** 
*MSGRTN CH* 

*-♦_*- *_*-*_*_*_* 

* ISSUE MESSAGE *X. 

* 0I30I (WITH * 
♦ZONE J *A1* 
***************** 



*****K4********** 

♦MSGRTN CH* 

♦_*_*_♦_*_*_*_♦_* 

.X* ISSUE MESSAGE * 
♦ 0I30T (WITHOUT ♦ 
♦ZONE) ♦Al* 

***************** 



***** 
*CA ♦ 
♦ A4* 



***** 
*CA * 
* A4* 
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Chart CC« $IPIRT2 - Monitor ^ Read Control Card, and Operation Scan Routines 
Refer to Chart 02. 



♦***A2 ♦♦*♦♦♦*♦♦ 
* REAORT ♦ 



REFERENCES 


**♦♦* 




|r«4<***4'**«**«*4c 






♦ ♦ 








CABS, CHEl 


♦ «* 








0BE5, 00K4 


* « 




**** . 




ECK5, FBB3 


♦ 




♦CH * 

* E3 *.X. 








. .X. 




* ♦ 
♦»♦* X 














MONITOR 


X 




READRT .♦. 


L06STR .*. 




****n Bl*««******* 


B2 ♦. 


B3 . *. 




♦ REAIRT 


cc* 


.♦CONSOLE*. 


,* FIRST *. 




♦ -♦-3t 


-♦_*_♦_»_♦-♦ 


.* PRTR KYBD ♦. YES 


.*ENTRY FROM 




♦ 


READ 
CONTROL 


* 

* 


♦.COMMUNICATION.* 






♦. DEVICE .* 


*. KYBD 




♦ STATEMENT 


♦ 


*. .* 


*. .♦ 




«4(4c:tt4c«*««**«****« 


*. .* 


*, ,* 



««4t**C I********** 
♦OPRTN CC* 
♦-♦-*-♦-♦-♦-♦-♦-♦ 

* EVALUATE * 

* CONTROL * 

* STATEMENT * 

*«««#4())(*4(«4<**4<*«4e 



«****C2********** 

* GET DEVTYP * 

* FROM PUB * 

* FOR ♦ 

* SYSRDR * 

* ♦ 

«4i4>4:4<4<«*******««* 



DEVTYP ♦. 
FOR .* 
MFCU .* 



NO .♦ DEVTYP ♦. 
..,*. FOR .* 
*. MFCM .♦ 



4e#!):4:«C3******^*** 

♦MSGRTN CH* 

* _*_♦-♦_♦ -♦-♦_i»:_* 

* ISSUE ♦ 

* MESSAGE * 
*0I10A ♦K^* 



«*4c««03 ********** 

* * 

* TURN OFF * 

* FIRST ENTRY * 

* SWITCH * 

* ♦ 
4c4t4c4>*«4'*********4' 



READRT2A .*. 



LOGRED 


X 




4c«i|c««E34i4c>te*4>«*4c*4c 


* 




♦ 


♦ 


CLEAR 


* 


* 


INPUT 


* 


♦ 


BUFFER 


♦ 



4i4<««4<«4(*4<4t«***4c*4t 



» SET * 

* OPCODE * 

* FOR READ * 

* ♦ 



* SET OPCODE * 

* FOR * 

* READ HOPPER 2 * 

* * 

***:4t««*****4<*««*« 



READRT3 X 

4c#4c*«G2********** 

*!OHLD CH* 
*_♦_♦_♦_♦_*-♦_♦_♦ 
*READ STATEMENT * 

* FROM * 

* CARD READER * 



* i 

* H2 *.X 

* ^ 
***♦ 

«*4c4<H2 ********* 

* * 
X* RETURN * 

* * 



.* SET 

*. COMMAND 
*. GIVEN 



*****J2********** 
*MSGRTN CM* 

♦_♦_♦_*_♦_♦_♦_*_♦ 
X* ISSUE *. 

* MESSAGE * 

*0I5OA *K4* 

«:tc4c«««««4c4<4c4t4t*«4c* 



REREAD 


.*. 
F3 * 






* 


♦ 


.* 


IS 




*. 


COMDEV 




* 


DOC 






*. 


,♦ 




*. .* 






* YES 



«««*«G3********** 

* * 

* ALLOW * 

* ATTENTION * 

* INTERRUPT * 

* * 



4t*4E4e«K I********** 
*MSGRTN CH* 
♦-*-*-♦-*-♦-♦-*-♦ 

* ISSUE *. 

* MESSAGE * 
*0I18A *KA* 

«4t««4c***4t*«*«4e*«« 



* HI *X, 

* ♦ 
**♦♦ 



*READ STATEMENT * 

* FROM * 

* LOG DEVICE * 



* ♦ 

* SUPPRESS * 

* ATTENTION ♦ 

* INTERRUPT * 

* * 

teste :(<4<«3|c4(4t******«** 



NO .* OPERATOR *. 
. ..*. RESPONSE 

*. EXPECTED .* 



* ♦ 

* OPRTN * 

4i4e4<4t «4c ♦*«* 4e«3tc* 4t 



*«B4******* 

♦ ♦ 

TURN OFF 

ENO-OF-CARD 

SWITCH 

♦ ♦ 



♦TRANSLATE CARD * 
♦INTO INNER CODE* 

♦ AND TRANSLATE ♦ 

♦ AND TEST FOR ♦ 

♦ THE OP CODE ♦ 
^(♦^♦^'♦♦♦♦♦♦♦♦♦♦♦^ 



A,D, OR S 






4<4e4<4t«B'; ♦♦*♦♦♦♦*♦♦ 

* CALCULATE ♦ 

* LENGTH OF ♦ 

* OP CODE, MOVE ♦ 

* OP CODE TO ♦ 

* OF OP TABLE ♦ 



ilci>iif*iil^£S ********** 

♦TRTBPC CH* 

♦_:>_*_♦_♦_«_♦_♦_♦ 

* TEST FIRST ♦ 

* OPERAND FOR ♦ 

* VALID CHARACTERS 
«*)(c4i4:*4c««atc4e4ti|i3|e4t*!|t 



4e4e4c 41*95 4:«#4e ♦♦***♦ 

* * 

* STORE ♦ 

* ADDRESS OF ♦ 

* FIRST OPERAND ♦ 

* ♦ 
3|<i|c««4e«**4<4c«4>**4>«« 



^^e^^eXcE^^^^^****** 

♦ ALTER THE * 

♦ DELIMITER * 

♦ (COMMA IS ♦ 
♦AN ERROR STOP) ♦ 

♦ * 

4c ««*«** *4( 4e« «««<< 4e4< 



*ilt*^iiff if********** 

♦ TRANSLATE * 

♦ AND TEST * 

♦ FOR END OF ♦ 

♦ OP CODE ♦ 

♦ * 
^^fti************** 



♦_♦_*_♦_*-♦_♦-*- 

♦ TEST LAST ♦ 

♦ CHARACTER ♦ 

♦ FOR BLANK ♦ 
4:*4c*«**4c*4<4i4c*^^** 



4c««4e*H4^^^^^^^^^^ 

♦ RESTORE THE ♦ 

♦ DELIMITER ♦ 

♦ (COMMA IS ♦ 

♦ A VALID STOP) ♦ 

♦ * 

««4e3|c«« 4i«j(e4c« 4e4e^4:4ei|e 



CDSCH 

4e4i*4»tep5 4i««*4<4e4:*4>« 

♦ LOAD SEARCH ♦ 

♦ INCREMENT AND ♦ 

♦ SEARCH FOR ♦ 

♦ OP CODE IN ♦ 
♦OPERATION TABLED 

fc^e^t^c* «««**« «4e ♦«♦♦ 



.♦OP CODE^. 
= SEARCH ♦. NO 
TABLE .♦... 

ENTRY .♦ 



«4<#*^G5 ♦♦♦♦♦♦♦♦♦♦ 

♦ LOAD ADDRESS ♦ 

♦ OF ROUTINE ♦ 
♦FOUND IN TABLE, ♦ 

♦ BRANCH ♦ 

♦ TO IT ♦ 
4c4i4< 4(««4e 4c«4(4e4t4c4<*«« 



X 


♦. .♦ 


X 


*♦♦*♦ 


♦ NONE 


***** 


♦CD ♦ 




♦CD ♦ 


♦ A2^ 




♦ Al* 


♦ * 




* ♦ 


♦ 




* 


GETADD 


X 

.♦. 

J5 ♦. 


GET DEL 








.♦ ♦. 




SET 


♦ SET, ♦ 


CAT 


...♦, 


CAT, OR DPD 

♦ . .♦ 

♦ . .♦ 


.*. . .. 


X 


♦ . .♦ 


X 


***** 


♦ OPD 


***** 


♦CE * 




♦CO ♦ 


♦ Al^ 




♦ B4* 


♦ * 


X 


* ♦ 


* 


***** 


♦ 


GETSET 


*CD ♦ 

♦ Ct* 

* * 

GETDPD 


GETCAT 



*K4 TEXT OF MESSAGES 
OUOA GIVE IPL COMMANDS 
0I18A SET COMMAND NOT GIVEN 
0I50A DPD COMMAND NOT GIVEN 
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Chart CD. $IPLRT2 - Mcnitcr Storage Usage for ADD, DEI, CAT and DPD CciriraEds 
Refer to Chart 02, 



***** 

♦cc ♦ 

♦ H5* 



***** 
♦CC ♦ 
♦ H5* 



GETDEL X 


GETADD X 






^c^^^^A !*'•'** ****♦« 


*****A2 »♦*♦♦*♦♦*♦ 






♦ GET * 


* GET * 






* DISPLACEMENT ♦ 


* DISPLACEMENT * 






♦ TO DEL RTN ♦ 


* TO ADD RTN ♦ 






* IN $IPLRT3 ♦ 


* IN $IPLRT3 ♦ 






* * 


* * 


**** 


***** 


^E^C*************** 


4e«*4<4<4c«*4t4i*«4i4(*** 


* * 


*cc * 






♦ B3 * 


♦ J5* 






♦ * 


* ♦ 


• X •••••••• ••• 


r 


**** 


* 


X 




* 


GETDEL 1 .*. 




X 


GETCAT X 


Bl *. 


4e«*«*B2 **«**4<«*«* 


«*B3*****«* 


4e4E4<*«B4***^***4"«'* 


.* ♦. 


* * 


♦ INDICATE * 


* * 


.♦ADD OR DEL *. NO 


* POINT TO * 


*BOTH $IPLRT3 * 


♦SET SWITCH FOR ♦ 


*. GIVEN AFTER .♦.,.. 


....X* START * 


♦ AND $IPLRT4 ♦ 


♦ CAT ♦ 


♦. SET .* 


* OF $IPLRT3 ♦ 


♦ IN CORE * 


* COMMAND ♦ 


*. .* 


* * 


* * 


* * 


♦ . .* 


0*41************** 


«4>«)ti *««**«* 


4i4<««4>4i*4c«##*i|i4t4[4c* 


* YES 






«♦♦♦ ', 

♦ CC ♦ 

♦ J5 ♦.X. 

♦ ♦ , 




X 


X 


♦ ♦♦♦ X 


X 


.*. 


N0T4N0W .*. 


GETDPD .♦. 


*****C i********in* 


C2 *. 


C3 *. 


C4 ♦. 


* * 


.* *. 


,* *. 


.♦ ♦. 


* REJECT * 


.* 1ST ♦. NO 


.♦ IS ♦. YES 


.♦ SET ♦. NO 


♦ COMMAND * 


*. ADO OR .*.... 


....X*. $IPLRT3 IN .*... 


♦ . COMMAND .♦ ,, 


* * 


♦. DEL .♦ 


♦. CORE .* 


♦ . PROCESSED. ♦ 


* * 


♦ . .* 


*. «* 


♦ . .♦ 


^m*************** 


♦ . .♦ 


*. .♦ 


♦ . •♦ 


. 


♦ YES 


♦ NO 


♦ YES 



ILLCD ♦♦♦♦♦ 
*CH ♦ 
* Cl^ 



♦♦02 ♦♦*♦♦*♦ 

♦ ♦ 
INDICATE 

FIRST CARD 
READ 

♦ ♦ 



^*^2******* 

* * 
INDICATE 

NO PHASE 
IN CORE 

♦ ♦ 
^tUfif^^t****** 



F2 ♦. 

,♦ ROOM ♦. 

.♦IN CORE FOR^. 

. $IPLRT3 AND . 

♦. *IPLRT4 .♦ 

♦ , .♦ 



««>|c4c4cG2 ♦♦♦♦♦♦♦♦•♦ 

♦ ♦ 

♦ POINT TO ♦ 

♦ $IPLRT3 LOAD ♦ 

♦ POI NT ♦ 

♦ * 



4c4<#4>*H2 ♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ ADD LENGTH ♦ 

♦ $IPLRT3 TO ♦ 

♦ LOAD POINT ♦ 

♦ * 
iHlf*itt************* 



♦ POINT TO 

♦ $IPLRT3 LOAD 

♦ POINT 
♦ 

itL^:f ************* 



♦ LOAD * 

♦ $IPLRT3 AFTER ♦ 

♦ ROOT ♦ 

♦ ♦ 
««« 4c4< ««**«« 4< ♦♦4' « « 



♦♦G3+*^^^^^ 

« * 

INDICATE 

$IPLRT3 

IN CORE 

* ♦ 

^^^■♦♦♦♦♦♦«* 



##H3^^^^^^^ 

♦ INDICATE ♦ 

$IPLRT4 

NOT IN CORE 

AFTER 

♦ ROOT ♦ 
^^^^^(♦♦♦♦♦* 



04 *. 
.♦ ♦. 

ff ENOUGH ♦. NO 

STORAGE .♦... 
C. AVAILABLE. ♦ 



««4ci»«C5 **♦♦♦*♦♦♦* 
♦MSGRTN CH^ 

♦_♦_»_:»£_*_*_*_*_♦ 

X^ ISSUE MESSAGE ♦ 
♦0U8A:SET COM- ♦ 
♦MANO NOT GIVEN ♦ 

tt*i>iiH***iti********* 



***** 
♦CH ♦ 
♦ 01^ 



* ♦ 

* LOAD $IPLRT5 * 

* AFTER ♦ 

* $IPLRT4 ♦ 

* * 
4c K'^^'^^^^^^^^^^*** 



***«*E5 ♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ LOAD STPLRT5 * 

♦ IN OVERLAY ♦ 

♦ AFTER ♦ 

♦ ROOT PHASE ♦ 

^i:$fitt************** 



X 
***** 

♦FA ♦ 
♦ 82^ 



GET4 X 

^^♦♦♦J2^^*^^^^^^^ 
♦ ♦ 


..-"■*"••.. 




* LOAD $IPLRT3 ♦ 

* AND $IPLRT4 ♦ 

* CONSECUTIVELY ♦ 

* * 


DEL .♦ ADD ♦ 
...♦. OR 

♦, DEL .♦ 
• ♦. .♦ 


. ADO 
,♦.... 


4e**4'^^^^^«^^^^^^« 


X ♦, .♦ 


X 




^if*** * 


*♦*♦* 


X 


♦DC ♦ 

♦ Al^ 

♦ * 


♦ DA ♦ 

♦ Bl^ 
♦ ♦ 


**** 


* 


* 


* ♦ 


OELRTN 


ADORTN 
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Chart CE. $IPLRT2 ~ Mcnitcr Storage Usage for SET Coirirand 
Refer to Chart 02. 



***** 

♦cc * 

♦ J 5* 



SET *. YES 
ALREADY .*.... 
GIVEN .* 



itt4Htt:ttit:l^2********** 



:(c«)(i*:(c:(c44c4r4<**«««4<« 



:tc«4<:tc«B I't"i'4:*4<>^**4<* 

* * 

* GET ADDR * 

* AFTER END OF * 

* ROOT PHASE * 
« * 

««#««4:* *«**««**«* 



THIS SET 
THE FIRST 
. CARD 



***** 
*CH * 
* CI* 



**** 
.SETFIPST 

* * 

* INDICATE 

* $IPLRT3 NOT 

* IN CORE 

* * 

«*4c«4:****** 



♦*E1*#***** 

* * 

INDICATE 
FIRST SET 
CARD READ 

* * 
*********** 



* INDICATE * 
♦$IPLRT4 LOADED 

* AFTER ROOT * 
* * 

**4c******«* 



iHit'***Gl********** 



)(c4::|c**3|C3«c4:««3tc4,:(c4c««* 



4c**«*Hl********** 

* * 

* POINT TO * 

* ADDRESS * 
♦FOLLOWING ROOT * 

* * 
««*4t************* 



4c««*4cJ 14c4:!(e«««4::(c4:4c 



*«*«4'************ 



D2 ♦. 
.* IS *. 
.* $IPLRT4 *. NO 
.LOADED AFTER .*... 
*. $IPLRT3 .* 



* ADD LENGTH * 

* OF $IPLRT3 ♦ 

* TO ADDRESS * 

* FOLLOWING * 

* ROOT * 



.* $IPLRT4 *. NO 
♦.LOADED AFTER .*.,. 
*. ROOT .* 



* ♦ 

* Dl ♦ 

* * 
*♦** 



***** 
*EA * 
* Bl* 
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Chart CF, $IPIRT2 - Move Bcutine 
Refer to Chart 02. 



* * 

* SYSMVC * 

* * 



* * 

* RETURN * 

* * 



RIGHT To HIGH 
COREt LEFT TO 
LOM CORE. 



*. 



C2 *. 

.* MOVE * 

RIGHT 

OR LEFT 

*CI 

•• .* 

♦« .* 



♦**♦ 

* * . 

♦ 02 ♦.X. 

♦ * . 

OECRL X 

♦ * 

* DECREMENT ♦ 

* SHIFT COUNT * 

♦ BY 256 * 

* * 



SHIFT 

COUNT 





* * 

* MOVE 256 * 
X* BYTES TO * 

* NEW AREA * 

* ♦ 



* CALCULATE 
X* AMOUNT TO 

♦ BE SHIFTED 
* 



* i(c4c # 4c Q 4*# :t.4c i« tc « 4: ** 

* * 

* DETERMINE * 

* ADDRESS OF * 

* BLOCK TO * 

* BE MOVED * 

* * . 

* E4 ♦.X. 

* * . 
**** 

DECRR,_ _X 

*" "" " " -- '- ^^ 

* DECREMENT ♦ 

* SHIFT COUNT * 

* BY 256 ♦ 

* * 



* CALCULATE * 

♦ SIZE OF ♦ 

♦ LAST BLOCK * 

* * 



* * 

* UPDATE * 

* 'FROM' AND * 

* 'TO* POINTERS * 

* * 



* * 

* UPDATE * 
X* 'FROM' AND * 

* 'TO' POTNTERS * 

* * 



* UPDATE * 

* 'FROM' AND * 

* "TO* POINTERS * 

* * 



♦****G5 ********** 

* « 

* MOVE 256 * 

* BYTES TO * 

* NEW AREA * 
« * 

«3fc:|c:f:«««*3(c*4c****** 



* * 

* MOVE LAST * 

* BLOCK TO * 

* NEW AREA * 

* * 

:4c««4t******* ****** 



* * 

* F4 * 

* * 
**** 



**#:(( J4«««**4l*** 

* * 

* RETURN * 

* * 

****4t4c ********* 
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Chart CG« $IPIRT2 - Update tUE, Get Operand, and Ccnversicn Sufcrci^tines 
Refer to Chart 02, 



♦ * 

♦ LUURTN * 

♦ * 



LUURTN 

4c4c**«B 1********** 

* GET ADDRESS ♦ 

* OF UPDATE * 

* LUB ROUTINE * 

* 'UPLUP' * 

* ♦ 



«*4t«A2********* 

* ♦ 

* LUDRTN ♦ 
» * 



LUDRTN 

♦ GET AODR * 

♦ OF DOWN DATE * 

♦ LUB ROUTINE * 

♦ 'DOLUB* * 

♦ * 



****A4********* 

* * 

* FDSRTN * 

* * 



MLUUR 

4t*4<«4c(^X********** 

* GET LENGTH * 

* AND ENDING ♦ 

* ADDRESS OF * 
♦TABLE, ADDRESS * 

* OF FIRST LUB ♦ 



♦ ♦♦* 

* 

* Dl 



*.X 



♦♦** X 
LUBLPL .*. 

01 *. 
,* ♦. 

VES .* IS LUB * 
.*. UNASSIGNED 



.* IS PUB ♦ 
.IN MOVE AREA 
*. +02 .♦ 



Fl *. 

.* *. 
* UPDATE * 

OR DOWN DATE 
*. LUB .* 



*D2 
LUB WILL NOT 
BE UPDATED 
IF IN MOVE 
AREA, 



DDLUB .*. 

E2 ♦. 

.* IS *. 

.* THIS PUB *. 

..X**BELOW THE ONE. 

*. REMOVED .* 

*. .♦ 

♦. .* 



.* 
NO 



ifcicl'^^c 4**** ****** 

* GET START * 

* ADDRESS OF * 

* OPERAND AND * 
♦LENGTH TO SCAN * 

* * 



♦ TRANSLATE AND ♦ 

♦ TEST FOR END ♦ 

♦ OF OPERAND * 

♦ (BLANK OR ♦ 

♦ COMMA) ♦ 



NO 



«*4<4c«p2 *«««♦♦*♦♦« 

♦ * 

♦ UNASSIGN ♦ 

♦ JIB IN THIS ♦ 

♦ LUB ♦ 

♦ ♦ 



COMMA ,* FUNCTION 
..*. OF 
♦ . TRT 



* * 
TURN ON 

END-OF-CARD 
SWITCH 

* * 



♦ INCREASE ♦ 

♦ THE PUB ♦ 

♦ POINTER ♦ 

♦ ♦ 



♦ * 

♦ REDUCE THE ♦ 

♦ LUB POINTER ♦ 

♦ BY ONE ♦ 

♦ * 



♦ STORE ♦ 

♦ THE PUB ♦ 

♦ POINTER ♦ 

♦ ♦ 



END ♦. NO 
OF LUB .♦... 

TABLE ,♦ 



♦ STORE START * 

♦ ADDRESS OF * 

♦ OPERAND AND ♦ 

♦ CALCULATE ♦ 
♦LENGTH OF FIELDS 



FIELD 

LENGTH 

= 



«:4i«*A5 ********* 

* ♦ 

* DECRTN * 

* « 



DBCRTN X 

ilciti***B5 ********** 

* GET NUMBER ♦ 

* OF CHARACTERS * 

* TO CONVERT * 
*ANO GET ADDRESS* 
*0F END OF FIELD* 

4c*********«****«* 



* GET NEXT * 

* BYTE TO BE * 

* CONVERTED * 

* ♦ 
***************** 



***** 
*CH * 
* CI* 



***** 

*CH * 
* CI* 



♦***J4********* 

* * 

* RETURN * 

* * 

**4c«4c********** 



^Kc* «^f: 5 «4t:tc* ****** 

* REDUCE NUMBER * 

* OF CHARACTERS * 

* BY I AND * 

* PACK NUMBER * 

* * 
******«*******««# 



4c****G5***«***4i:tc* 

* PUT PLUS * 

* SIGN (X'OFM * 
*IN THE CONVERT * 

* FIELD * 

* * 

*«****4:*««4c*4c«4c;(t* 



««=«c«*H5 ********** 

* * 

* CONVERT * 

* THE FIELD * 

* TO BINARY ♦ 

* ♦ 

«:(c**«4c>ec*:»:4c******* 



4e**«J5««3(e«*«4i4c)K 

* * 

* RETURN ♦ 

* * 
4citc*«4c********** 



* Dl * 

♦ * 
♦♦** 



4(***K 1********* 

♦ * 

♦ RETURN ♦ 

♦ ♦ 
****«***«*««*«« 
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Chart CH. $IPLRT2 - I/O Subroutines 
Fefer to Chart 02. 



■ft * 

♦ lOHLD ♦ 

* * 



4c4t*«A44>*«4>4c4t4i*]|t 



«**>K4i*4c****#*4c4e 



FIELD DELIMITER TABLE OR 
THE TEST FOR NONBLANK 
TABLE. THE TRT FUNCTION 
CONTROLS THE RETURN 
ADDRESS. 













lOHLD X 


MSGRTN X 




















4c*«i|c4cB3**'t'******* 


*****B4********** 












4c«**g2 ********* 


* * 


* PUT MESSAGE 


* 


**4t*B5****«**** 










* * 


* GET CCB * 


* ADDRESS, 


OP 


* 


* J 










* I0HL2 * 


* ADDRESS * 


*CODEt AND 


COUNT* 


* TRTBRC 










* * 


* FOR READ * 


* IN CCW, 

* CCB ADDF 


GET 


* 


* *A5 1 




***** 






*#**4i****«**«4(* 


* * 


ESS 


* 


*ite*****4>4t««**«« 




* * 






, 


«4c« ************** 


**«*4i««*«*«***«*4c 






* ** 




REFERENCES 


• 


. 










* 




TO 
CDCl, 


CHCI: 
CEA2 


! 


I 










I 




CG05, 
DABlI 


CGH4 


.............xTx. ........... 














DAGl ............ 






TRTBRC .*. 




ILLCD X 




gg^Bl; 

OFCl, 
DFE5, 
EAD4, 

iPsi' 

FAD3, 


DBH2 
DFB3 
DFD4 
DGEl 

EBA3 ^**^* 

EFJ^ fS2* 

FAH3 *^"|* 


I0HL2 X 










iti*)ii**Cl********** 


«#«**(;3««******** 








C5 *. 




.•SiisiErEffiS? 


* 
* 


* * * * 

* * SVC * * 








.* *, 
YES .* CONDITION *. 




* 'PREVIOUS 


* 


* ♦ ISSUE ♦ * 








. ...*. CODE 




* COMMAND 


* 

* 


* ♦ I/O * ♦ 

* * COMMAND * ♦ 










*. •* 
*- .* 






4c«*«**«****«***** 










*. .* 
♦ NO 








FAH4 


FAK2 %' 
















* * *.xl 




FEBl 


FED2 * 


















FEDS, 


FEE3 
















**** X 




FEJ2 


* 


X 














ABNCHK .*. 






ABNEND X 


.* . 














Dl ♦. 






♦♦♦♦♦D2 ♦**♦****♦* 


D3 *. 










D5* '*. 


REFERtlNLti .# *. 






* SET MESSAGE * 


• * *. 










.* *. 


TO 


I-PRI- .* LOG IS * 


. NO 


* AND ACTION * 


.* *. YES 










YFS .* ILLFGAJ *- 


CBFlf 


CpC5*. COMMUNICATION 
gCH2 *. DEVICE .* 


.* 




..X* CODES IN Low * 


♦.UNRECOVERABLE.*. .. . > 










X...*. CHARACTER . 
. *. .* 


DA 02, 




* CORE, BYTES * 


*. I/O ERROR.* 






DEJ4f 


DFK2 *, ,* 






* 0-4 * 


*. .♦ 










*. .* 


9t^h 


iBA4 *. ,* 






**#************4<«; 


*. .* 










X *. .* 


EBG5t 


EDK5 <( YES 








* NO 










**** * NO 


EKK2, 


ESD3 






**** * 












♦ * 


ESH2, 


FAA4 * 






* * . 












* CI * • 


FAC4, 


F8D1 • 






* E2 *.X, 












* * . 


FBGl, 


F8H4 ! 






* * , 












**** , 


FBK2, 


FCD5 • 






*♦** 


X 












FFC4, 


FFE4 X 






lOSTOP X 


.*. 


lOHALT X 






* 




;(c**««E l*'(<4'*=t'*4'=l°** 




4t*««*g2 ********** 


63 *. 


*****E4********** 


X 




*MSGRTN CH* 




*MOVE HARD WAIT * 


.* *. 


* GET CHANNEL 


* 


4:«4c*E5 ********* 




*-*_♦_*_♦_*_♦_*- 


-* 




* PSW INTO * 


.* UNIT *. YES 


* AND UNIT 


AND 


* 


* VALID * 




♦PRINT SELECTED 


* 




* PROGRAM NEW * 


*. EXCEPTION .*.... 


* MESSAGE CODE 


* 


* RETURN *A5 < 




* MESSAGE 


* 




* PSW IN * 


*. .♦ . 


* INTO LOW 


CORE 


* 


* i 




* ON SYSLOG 


* 




* LOW CORE * 


*. .* 


* BYTES 0-3 


* 


*************** 




*;((***:)< 4i 4c********* 




#iti:4t***4c**«**«4<*** 


*. .* X 


******«*:( 


^*X 


**** 


** 







***** 
*cc * 

♦ 82* 



***** 
*CC * 
* Bl* 



****F2********* 

* WAIT FOR * 

* OPERATOR * 

* ACTION * 
*************** 



****P3**4c***i|i«« 



************** iK 
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Chart CJ, $IPLRT2 - Allocate Cere Routine 
Refer to Chart 02. 



* ♦ 

* ALCRTN ♦ 

* ♦ 



ALCRTN .♦. 

B2 ♦. 

.* *. 

.* RSIZE *. 

*. LT END OF . 

*.REAL CORE.* 



IS 
COMDEV 
SYSLOG 



♦. 



«<ti4ti|t*B4*«******4'* 
♦MSGRTN CH* 
*_♦- *_*_♦_♦_♦_♦_♦ 
X* ISSUE ♦ 

* MESSAGE 0I48I * 

* *K4* 



*#***C2********** 

♦ * 

♦ GET NPART * 

♦ FOR * 

♦ LOOPCTRL ♦ 

♦ * 



* STORE BEGIN * 

* AND END OF * 
♦REAL PARTITION * 

* IN BBOX * 



* 
STORE * 
PARTSIZE 

FOR * 
MINSIZE ♦ 



*X. 



YES .* PARTSIZE 
...... LT 

*. MINSIZE 



.♦ ALL *. NO 
*.BBOX ENTRIES .*... 
*. HANDLED .♦ 



* * 

* GET NUMBER * 

* OF PAGES IN ♦ 

* MINIMUM * 
*REAL PARTITION ♦ 



♦ * 

♦ ADD PAGES OF * 

♦ MINIMUM REAL *X. 

♦ PARTITION TO ♦ 

♦ PAGE POOL * 



.* ENOUGH 
*. PAGES 

♦.AVAILABLE. 



* CLEAR NUMBER * 

* OF PAGES FOR * 

* MINIMUM * 
♦REAL PARTITION * 



* SET PPBEGIN * 

* TO START AND * 

* END OF ALL * 

* PARTITIONS * 

* IN BBOX * 



.* ENOUGH *. NO 
PAGES **... 
♦.AVAILABLE.* 
*. .* 



IS 

COMDEV 
SYSLOG 



ALCERR2 

*««*«H4********** 
*MSGRTN CH* 

...X* ISSUE *. 

♦ MESSAGE OIOOI * 

♦ ♦KA* 



« )M< « 4: J 4«^ ♦♦ )ic«3|c* *« 

♦MSGRTN CH* 
*_*_«_*_♦_*_♦_*_* 

.X^ ISSUE ♦ 

♦ MESSAGE 0I47I ♦ 

* ♦K4^ 
«4c <<♦«*««*««*««♦♦« 



♦♦♦♦H5 ♦****♦♦** 

* ♦ 

* HARD WAIT * 

* ♦ 
^^^^^'♦♦♦♦♦♦♦♦♦^ 



i|c:(::tc«|(3««4c*4c*^«« 



*:((«*«««♦♦♦♦♦♦♦♦ 



♦K4 TEXT OF MESSAGES 
OIOOI LESS THAN 16K OF REAL CORE LEFT FOR 

PROBLEM PROGRAM EXECUTION 
0I47I INVALID ALLOCATION OF REAL PARTITIONS 

ALL REAL PARTITIONS REDUCED ^o OK 
0I48I REAL STORAGE GT R SI ZE. "EMAI NDER 

NOT USED 
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Chart DA. $IPIRT3 - ADD a Device 
Refer to Chart 03. 



(Part 1 of 2> 



* A4 * 

* * 
♦**♦ 



****A1********* 




* ♦ 




♦ $IPLRT3 * 




* * 




i^**^Lt***'t' ****** 




♦ *♦* 






♦CD * 






* J3 *.X 






* * 






IJBIPLAD X 




ADDRTN .♦. 




Bl *. 




.* *. 




.♦ END *. NO 


*. OF CARD ,*. 




*. .♦ 




*. .* 




*. .* 


X 


* YES 


***** 




♦CH * 






* CI* 



* SCAN PUB * 

* FIELD WITH * 

* PUB TO BE * 

* ADDED * 
«««««4(4c********** 



CI ♦. 

.* *. 

.* SPACE * 

.IN TABLE FOR 

♦. PUB .* 

*. .* 

*. .* 



4c4c4e**Dl********** 

* * 

* INITIALIZE * 

* THE TEMPORARY * 

* PUB AREA * 

* * 



* GET THE FIRST * 

* OPERAND FROM * 
*ADO CARP TMAJ^F * 



X 

.*. 

Fl *. 
TOO .♦ VALID *. 
SHORT .*OPERAND FOR*. 
..*. SWITCHABLE . 
*. DEVICE .♦ 



PUBEXD 

«)|e4i«*C 2 ********** 
*GET ADDRESS OF * 

* MESSAGE 0I13A * 
...X* 'CANNOT ADD- * 

* INSUFFICIENT * 

* TABLE SPACE* * 

4C^3||*************** 



«4<***02********** 
♦GET ADDRESS OF * 

* MESSAGE 0I15A " 

* 'PUB ALREADY 

* EXISTS* =p 

* * 

:(tKe**4e************ 



♦ X. 



B3 *. 


NOT. 


.* PUB *. 


LAST 


* ALREADY * 


. PUB. 


EXISTS OR IS 


♦ . . .. 


♦ .LAST PUB .* 




*. .* 




*. •♦ 




♦ LAST 




.PUB 





.* 



4c«**«p2********** 

* STORE * 

* REGISTER FOR ♦ 
.X* EVALUATION OF * 

* SWITCHABLE * 

* DEVICE KEY * 

«:!(****♦******♦«** 



*««4<4<C3********** 

*FOSRTN CG* 
♦_*-♦-♦-♦-♦_♦_*-♦ 

♦GET THE SECOND * 
* OPERAND FROM * 
♦ADD CARD IMAGE * 
*](i4>** ************ 



.*DEVICE CODE*. 
. MORE THAN . 
*. 6 BYTES .* 



4c****E3 ♦*****♦**♦ 

* * 

* CLEAR DEVICE ♦ 

* HOLD AREA AND * 

* MOVE IN THE ♦ 

* PPVTCF TYPF * 
m******** ******** 



4c«*«4ip3***««4<4>4c«« 
*FNDTYP OF* 

* ANALYSE THE ♦ 

* DEVICE TYPE * 

* * 

::lfH,*4f^f:tf*1f*:f ******* 



X 
***** 

*CH * 
♦ CI* 



♦♦♦♦♦ 
♦DB * 
* A2* 



THERE 
A THIRD 
OPERAND 



9|t****Hl ********** 

* * 
*GET CHANNEL AND* 

* UNIT ADDRESS * 

* AND * 

* LENGTH * 

«4:4c«4'*******^^^^^ 



itt4c4(*4<J X^^^^****«* 

*HEXRTN DG* 

*CONVERT CHANNEL* 

* AND UNIT TO * 

♦ HEXADECIMAL ♦ 
»««**♦♦♦***♦♦**♦♦ 



*****K I********** 

* ♦ 

* PUT CHANNEL ♦ 

* AND UNIT INTO * 

* TEMPORARY ♦ 

* PUB AREA * 



m * 

* A3 * 

♦ ♦ 
♦♦♦* 



LINE ♦. YES 

MODE FLAG .*.... 
SET .* 



OPERAND 
LENGTH 
5 BYTES 



^ii)i^Ai*Q£f^lif******** 

* * 

* SET MODE IN ♦ 

* TEMPORARY ♦ 

* PUB AREA ♦ 

* * 

^itiiHt^if^^Hti^f ******* 



IS 
DEVICE 

MICR 



i|i4i*^*A5 ♦♦*******♦ 

* ♦ 

* PUT LINE ♦ 
. X* MODE INTO * 

* TEMPORARY ♦ 

* MODE AREA * 

*:(<****♦♦**«****** 



***** 

*DR ♦ 
* C2^ 



IS 
MODE 
. VALID 

*- ♦F? 



X«0'r',X»08« 
X'lO'fAND X«20» 



KEYCHK2 .♦. 








F4 ♦. 








.* ♦ 




♦*♦♦ 




.♦ IS 


*. NO 


* ♦ 




*. COMM DEV 


.♦.. . 


. X* J4 * 




*. 3705 


.* 


* * 




*. .♦ 




***♦ 


♦*♦* 


*. ,* 






* 


* YES 






♦ G5 
* 
**♦* 



IS 

CHANNEL 

VALID 



* ♦ 

* PICK UP * 

* DEVICE ♦ 

* CLASS * 

* * 
^^^^^^^'♦♦♦♦♦♦♦♦♦* 



♦_♦_*_♦_♦_* _*_♦ _* 






NO 


e* 


IS 


*. 






NO .♦ IS *. 


♦ GET THE THIRD ♦ 




X. 


. .* 




MODE 


.* 




,.♦. DEVICE .* 


* OPERAND FROM * 










VALID .* 






*. TAPE .* 


♦ADD CARD IMAGE * 
««♦**********♦**♦ 






* 
* 
♦ 


* 
**** 

J4 


. .* 
*. .* 
* YES 

* ', 

*.X. 

* . 








*. . ♦ 
*. .* 
* YES 


X 








«!*** 


X 








X 


.♦« 




'. KEYCHK2B 


.*. 








.♦. 


J3 ♦. 










J4 *. 








J5 *. 


.* *. 








,* 


*. 






.* *. 


.* 5 TO 9 *. 








.* 


IS 


*, 






.* IS *. NO 


*. BYTES IN .♦ 


.X 




* 




DEVICE 


.* 


..X 




*. MODE .*♦... 


♦. OPERAND .♦ 








**. 


TCR 


* 






*. VALID .* 


*, ,♦ 








* 


. .* 








*. .* . 


*. .♦ 


X 






*. .* 




X 


*. .* X 


* YES 


***** 

*CH * 
* CI* 






* YES 




**♦♦* 
*0B * 
* C2* 


♦ YES ***** 
*CH * 
* CI* 




* * 






X 




* * 


« * 




» 






**** 




* 


* 




ILLCD 






* * 




KEYCHK 


ILLCD 


X 








* G5 * 






X 


4c4:^**K3 ♦******♦*♦ 








* * 






#«i$:«4cK5 ********** 


♦HEXRTN DG* 








**** 








*_♦_#_#_.*_*_«_* _* 














* COMPLETE * 


* CONVERT ♦ 














* SET * 


* OPERAND TO * 














* COMMAND * 


* HEXADECIMAL * 
















4:4:«««;»!:«c*^^*^*^*** 














:^:4: 4= ************** 

! KEYCHK 


X 














X 


*♦*♦ 














♦♦**♦ 


♦ * 














*0B * 


* A4 * 














* C2* 


* « 














* * 


**♦* 


















* 
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Chart DB, SIPIRT3 - AED a Device 
Refer to Chart 03. 



(Part 2 cf 2) 



***** 

♦DA * 

♦ G3* 

♦ ♦ 



KEYCHKl .♦. 
A2 
.* 



i)iit'***A3********** 

* MODE * 
X* WAS * 

* REQUIRED * 

* * 



***** 

*CH * 
* CI* 



PUBMKl X 

*****B5 ********** 

* LOAD ADDRESS * 

* OF PUB TABLE * 

* IN PARREG ♦ 

* TO BUILD PUB * 

* SUBROUTINE * 
*******i(t******«** 



* * *.x. REFERENCES 

* * •'^* TO DBC2I 
**** I DAA5, DAJ4 

KEYCHK X DAK 5 

*Ai**ittQ2********** 

* GET KEY * 

* REGISTERS FOR * 

* EVALUATION * 

* SWITCHABLE * 

* DEVICE * 
***************** 



*****C,5 ********** 

*BLDPUB DE* 
*_♦_*-♦_♦_*_*_♦_* 

* UPDATE THE * 

* FOOL TO SHOW * 

* THE PUB * 
***************** 



NO .* KEY *. 
..*. FIELD 

♦. PRESENT .* 



E2 *. 








.♦ KEY *. 








♦ FIELD *, 


YES 






LARGER THAN 


♦ . . .. 






*. 3 BYTES .* 








*. .* 








*. .* 


X 






* NO 


***** 
*CH * 

♦ 






X 


ILLCD 






.♦. 






.*. 


F2 *. 






F3 ♦. 


.* *. 






.* ♦. 


♦SWITCHABLE * 


YES 




* CHANNEL * 


DEVICE 


* 


.X* 


SWITCH 


*. .* 






♦.SUPPORTED.* 



*****05 ********** 
♦CHURTN OG* 

* -♦_*_D,_*_*_#_*_« 

* ADD A LOGICAL * 

* UNIT BLOCK * 

* FOR THE PUB * 
****«**«*****«i|t** 



*****E5 ********** 

*LUURTN CG* 
♦_♦_«_*_*_*_*_*_* 

* ADD A LOGICAL * 

* UNIT BLOCK * 

* FOR THE PUB * 
***>((*********4t«** 



***** 
*CC * 
* Bl* 



NUMCVT 

♦*#**G2 ********** 
*DECRTN CG* 
♦_*_*_*_*_*_*-*_♦ 

* CONVERT * 

* PRIORITY NO. * 

* TO DECIMAL * 

**«****«******4c** 



X 
***** 

*CH * 
* CI* 



H2 *. 




*«***H3********** 


.* *. 




* SET FLAG AND * 


.* PRIORITY *. YES 


* MAXIMUM KEY * 


*. KEY GT .*, 




* FOR * 


*. 255 .* 




* SWITCHABLE * 


*. .* 




* DEVICE * 


*. .* 


x 


«**«:«<************ 


* NO 


***** 
*CH * 


• 


xl 


* CI* 

* * 

* 

ILLCD 


', 


PUBMKE X 




X 


*:(e:«c**J2 ********** 




4t:tc 41**^3 ********** 


* LOAD ADDRESS * 




♦ LOAD ADDRESS * 


* OF 'SCHTST' * 




* OF 'SCHSCH* * 


* IN PARREG * 




* IN PARREG * 


* TO BUILD PUB * 




* TO BUILD PUB * 


* SUBROUTINE * 




* SUBROUTINE ♦ 


*************«:tc4c* 

Ix. ... .... 




***************** 


x 
»*** 
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Chart DC. $IPIRT3 - Delete a PUE 
Refer to Chart C3. 



(Part 1 of 2> 



♦ CO * 

* J 3* 



DELRTN X 

*FDSRTN CG* 

♦_♦_♦_♦_«_♦_♦_♦_♦ 

* GET FIRST ♦ 

* OPERAND FROM * 

* CARD IMAGE * 
^:^*^f ************ 



Bl ♦. 
.♦ *. 
OPERAND * 
LENGTH GT 
. 6 BYTES .* 
*. .* 



♦*♦* 

♦ * 

♦ A3 ♦ 

♦ ♦ 



CI 



CHANNEL ♦. YESX 

NUMBER .♦ 

GT 6 .* X 

♦, ,♦ ♦*♦♦♦ 

*. .* *CH ♦ 

* NO * CI* 

* * 



tit***Ol*******'^** 

♦ * 
♦INITIALIZE FOR * 

♦ CONVERSION TO * 

♦ HEXADECIMAL * 

♦ * 



*x. 



IS PUB ♦. NO 
ON THIS .♦... 
CHANNEL .♦ 
♦ . .* 



**if**C'i********** 



B4 ♦. 
.♦ WAS *. ♦♦♦♦ 

* THE SCAN ♦. NO ♦ 
SUCCESSFUL ,*.... X* H2 



4citiitc4c:(cC44c4<«**:tc4<*4<4c 



♦ HOLD * 

* PUB ADDRESS ♦ 

♦ * 

* * 
^^^^^'♦♦♦♦♦♦♦^♦♦♦^ 


* DETERMINE ♦ 
♦THE DEVICE TYPE* 

* * 

* * 

#««4E:4c4c*******it<*:((4c 

X 
.*« 

D4 *. 

.** DIRECT **. NO 

* .ACCESS DEVICE.*... 




SCNLOP X 

:ic«4c«* D3 ♦♦♦♦♦♦♦♦ ♦♦ 

* INCREASE ♦ 

♦ PUB ADDRESS * 




♦ TO NEXT PUB * 

♦ ♦ 


*. TYPE .* 
*. .* 
*. .* 
* YES 


X 

***** 

*DD * 

* Al* 

* * 




NOSODLZ 



♦_♦_*_*_♦_*_*_*_* 

♦ CONVERT ♦ 

♦ OPERAND TO * 

♦ HEXADECIMAL ♦ 

^Itt^r^c************* 



^^^^ilcplJtc***^'***** 

♦ * 

♦ GET CHANNEL ♦ 

* NUMBER AND * 
♦FOCL ENTRY FOR ♦ 

* THIS CHANNEL ♦ 
4c«#*4'+*********** 



.*. 
Gl *. 
* ANY * 
DEVICES 
ON THIS 
CHANNEL 



SEEK 

OVERLAP 

.SPECIFIED. 



it^'tiHc:iiiiff^********** 

* SAVE SAB * 

* POINTER FROM * 

* DELETED PUB * 

* DECREASE SAB * 

* COUNT BY 4 * 

i^**:t!*t'*********** 



*«4c*«Hl*****^^*** 

♦ * 
♦DETERMINE FIRST* 
♦PUB ON CHANNEL ♦ 

♦ OF DEVICE TO * 

♦ BE DELETED * 

4c4c*«4t*4c********** 



**** 

X 

*3)e**#H2 ♦******♦** 

*GET ADDRESS OF ♦ 

♦ MESSAGE 0I12A * 
♦•DEL COMMAND IS* 

♦ FOR NON-EXIS- * 

♦ TENT DEVICE* ♦ 



X 
***** 

♦CH * 
♦ Dl* 



* SET POINTER * 

* TO * 

* NEXT PUB * 

* * 

«4c***«*********** 



* IS IT 


* 


YESX 




THE LAST PUf 




*.. .. 




* . 


* 




X 


* . .* 






***** 


*. .* 






*D0 * 


* NO 






* A4* 








* * 








* 








NOSOOLl 



.* DIRECT *. 
.ACCESS DEVICE.* 
*. TYPE ,* 



«««#4cK4***^^^^^^* 

* * 
♦UPDATE THE SAB * 

* POINTERS FOP ♦ 

* THIS PUB AND * 

* THE NEXT PUB ♦ 

^CICC****^!********** 
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Chart DD. $IPLRT3 - Delete a FUE 
Refer to Chart 03. 



(Part 2 cf 2) 



*♦**♦ 

*DC * 
♦ 04* 



***** 
*DC * 
* H4* 



Bl *• 
.* *. 

.♦ LINE MODE ♦. NO 
•".TABLE PRESENT.*..) 



****«B4******<**** 

* * 

* GET NUMBER * 

* OF DEVICES ♦ 

* WITH TEB'S * 

* * 

«*4e«4c«****4i«*«*** 



***4c*C 1********** 

* ♦ 

* INITIALIZE * 

* FOR SCAN OF * 

* PUB TABLE ♦ 

* * 

«********4c>|c****** 



.♦. 

El ♦. 

.♦ 2703 *. 

NO .* WITH MODE ♦. 

,..♦. TABLE POINTER. 

♦TO BE DECR.* 

♦ . .* 



***4c*Fl***«*««*«4c 

♦ * 

♦ DECREMENT * 

♦ POINTER TO * 
♦LINE MODE TABLE* 

♦ * 

*4t*4c«****4c****«*4e 



*****(;!*********:«( 

♦ * 

♦ UPDATE LENGTH * 

♦ OF LINE MODE * 

♦ TABLE TO BE ♦ 

♦ MOVED * 

***4c************* 



*****H1******^*** 

♦ * 

♦ INCREASE PUB * 

♦ ADDRESS TO * 

♦ NEXT PUB ♦ 

♦ * 
#4c*************** 



* DECREMENT * 
♦NUMBER OF LINES* 

* IN USE * 

* * 

*:4i«3K***«4t«*4i**«4:3tc 



*****P2 ********** 

* * 

*GET ADDRESS OF * 
*LINE MODE TABLE* 

* ENTRY TO BE * 

* DELETED ♦ 
*«*******«***««(** 



*****G2********** 
*GET ADDRESS OF * 
♦LINE MODE TABLE* 

♦ ENTRY WHICH * 

♦ WILL OVERLAY ♦ 

♦ DELETED ENTRY ♦ 
4c4t*********«*«*«* 



*****H2****^^^^^^ 

♦ SYSMVC CF + 
♦_*_♦_,(<_♦_*_♦_♦_♦ 

♦ MOVE UP OTHER ♦ 

♦ ENTRIES TO ♦ 
♦DELETE THIS ONE^ 



♦ DETERMINE * 

♦ TE8 FOR * 

* THIS PUB * 

* * 
*«*************4c« 



IS THIS 
TEB TO BE 
. DELETED . 



*DELETE TEB FOR * 

* PUB TO BE ♦ 

* DELETED * 

* * 

**4c************** 



* GET ADDRESS * 

* AND LENGTH OF * 

* PUB TO BE * 

* DELETED ♦ 
4c*4c4'***********«* 



*****(; 4.**** *«**4c* 

* GET ADDRESS * 

* AND LENGTH OF ♦ 

* ENTRIES WHICH * 

* WILL OVERLAY * 

* DELETED PUB * 

4>4r*************** 



*4c*««H4******^^^* 

♦ SYSMVC CF* 
»_♦_♦_♦_♦_♦_*_#_* 

♦ MOVE UP OTHER * 

♦ ENTRIES TO * 
*DELETE THIS ONE* 

**«*4e*««*«:*«*«*** 



***4:)(cJ44<***4c***** 

♦CHURTN DG* 
♦_*_#_♦_*_*_*_♦_* 

*CHAN6E THE FOCL* 
♦ TO ELIMINATE ♦ 
♦THE DELETED PUB^ 
*«**«*4t*4c******** 



4c«4i*«K4*«4c* ****** 
♦LUDRTN CG* 

*-*_*-*-♦_*-*-*_♦ 
*NULL THE LUB'S ♦ 
♦WHICH POINT TO * 
♦THE DELETED PUB* 
**4c**««****«**4i«j(c 
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Chart DE, $IPLRT3 « Build FUB Tafcle Subroutine 
Refer to Chart 03, 



♦ A3 ♦ 



fr*** A 1*4>* ****** 

* * 

* BLDPUB * 

* * 
«*4c**4c4>*4c****** 



* GET CHANNEL * 

* NUMBER, FOCL ♦ 

* POINTER AND * 

* PUB ORIGIN * 
*«*#**4[«««******* 



**** 

* * 

* B2 * 

* * 
**** 

X 
««4<«4(B2********** 

* * 

* INCREASE PUB * 
♦SEARCH REGISTER* 

* TO NEXT * 

* ENTRY * 
*4> If ************** 



.* IS *. 
.* POSITION * 
*.PAST CHANNEL 
*. END .* 



* * 

* CALCULATE ♦ 

* CHANNEL END ♦ 

* DESIRED * 

* POSITION * 



CI *. 

.* *, **** 

.* THIS *. NO * * 
*. PUB ENTRY .*....X* B2 * 
♦.AVAILABLE.* * * 
*, ,* **** 

*. .* 
* YES 



,* ANY * , 
.*DEVICES ON *. NO 
*.THIS CHANNEL .*... 



«4i4i4c]|iQ2 ********** 

* CALCULATE * 

* DISPLACEMENT. * 
.X* STORE CHANNEL * 

* PUB ORIGIN * 

* IN FOCL * 

«**«««4c*«******** 



*4c««*E2********** 

* * 

* DETERMINE * 
X* LAST PUB * 

* ON CHANNEL * 

* # 
4c4c ««4t >|t «««4(iK4c* ***« 



#4e4c4>*D3 ********** 

* * 

* GET ADDRESS * 

* TO MOVE * 

* PUB * 

* * 
4c 4<*************** 



4c 4t***E3 ******** ** 
*SYSMVC CF* 

♦-♦-♦-*-*-♦_*_♦-* 

* MOVE PUBS TO * 

* MAKE ROOM FOR * 
*Ntw f*LiB *E^ 
«««************«* 



*E4 
ALL PUB ENTRIES BEYOND 
THE DESIRED LOCATION 
MUST BE MOVED UP ONE 
PUB LENGTH TO MAKE 
KOOi^ TOR I WE McW tHTi<f 



* GET FOCL * 

* OF NEXT * 

* CHANNEL * 

* * 

«4c4e4c************« 



YES .*SWITCHABLE 
.*. DEVICE 

*. *G2 



*G2 
BRANCH ADDRESS OF THIS 
INSTRUCTION HAS PLACED 
IN REGISTER 'PARREG* 
IN ADD ROUTINE. 



SEEK *. 

OVERLAP 
.SPECIFIED.* 



.*. 

HI *. 

«* *. 

NEXT *. YES 

FOCL USED .*.... 



* DETERMINE * 

* LAST PUB * 

* ON CHANNEL * 

* ♦ 

4c«****4c4c4c4'******* 



* GET LAST PUB ♦ 

* ON CHANNEL * 

* FROM FOCL * 

* * 
4c««*4c***4'******** 



«*4c**H3 ********** 

* GET SAB * 

* ADDRESS FROM ♦ 
*COMMUNICATIONS * 

* REGION. POINT * 

* TO NEXT SAB * 

4i«:4t**** ********** 



WILL 

NEW SAB 

FIT 



.X* 



♦**♦ 
ENFNO X 

4c****K 1********** 

* * 

* GET DESIRED * 

* POSITION * 

* FOR NEW PUB * 

* * 
4i4c*****4<********* 



«4i4c«*K3********** 

« ♦ 

* SAVE SAB * 

* POINTER AND * 

* INCREASE SAB * 

* COUNT BY 4 * 

itc^jtc*^'************ 



4c4c4c4c4<J4********** 
*GET ADDRESS OF * 
■ MESSAGE 0I24A * 
•CANNOT ADD * 
INSUFFICIENT * 
*SAB TABLE SPACE* 
***************** 



***** 
*CH * 
* Dl* 



*4<***D5 ********** 

* * 

* INITIALIZE * 
♦AND GET ADDRESS* 

* OF LINE MODE * 

* TABLE * 

4:4c«4<************* 



4c )|c*4c*E5 ********** 

* * 

* INCREMENT * 

* NUMBER OF * 

* BSC^^OR SJS * 

* Li WES US EG * 
4>4c**4t ************ 



4c4'***F5 ********** 

* * 

* CALCULATE * 

* ADDRESS OF * 
♦FREE LINE MODE * 

* TABLE ENTRY * 
4c 4(*************** 



4t****G5 ********** 

* MOVE MODE * 

♦ FROM * 
♦TEMPORARY AREA * 



* INSERT NEW * 
*SAB IN DESIRED * 

* LOCATION * 

* * 

4c 4c4e** ************ 



4c«4c4c4cJ5 *♦♦♦****** 
4c * 

* STORE PUB ♦ 

♦ ORIGIN AND * 

♦ DISPLACEMENT ♦ 

* * 
4c 4c* ************** 



^^^♦KS ********* 

* * 

♦ RETURN * 
» * 

*************** 
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Chart DF, $IPLRT3 - Device Type Ccnversion Subroutine 
Refer to Chart 03, 



♦ A4 * 

♦ * 



♦♦♦♦A I********* 

♦ FNDTYP ♦ 

* * 



FNDTYP X 

♦ GET START AND ♦ 

♦ END ADDRESSES ♦ 
♦OF DEVICE TABLE* 

♦ AND GET * 

♦ SCAN LENGTH * 



SCHLOP 
,♦* 



***** 

♦CH * 
♦ 01* 



«****A2********** 

* ♦ 

* SET MODE AS * 

* REQUIRED FOR * 

* 7-TRACK OR * 

* 9-TRACK TAPE * 
*********4iti****** 



ARE 
THERE 
TEB'S 



C2 *. 

,* *. 

* IS THERE *. 

SPACE FOR A . 

*. NEW TEB .* 

*. .* 

♦ . .* 

* YES 



.♦ DEVICE 

*. 3330 OR 

*. 3340 



NO .* DEVICE *. YES 

...*. TO BE ADDED .* ..X*. 

*. A TCR .* 



A5 ♦. 
.*IS THIS*. 

A TAPE * 
CARTRIDGE 
. READER .* 



**** 

* * 

* K4 * 

* * 
♦*** 



♦♦♦* 

* * 

* K2 * 

* ♦ 

♦*** 



***** 

♦ CH ♦ 

♦ CI* 
♦ * 



.♦ 

.♦ 
YES 



4t««4i*E 1 ********** 

* * 
*SET DEVICE TYPE* 

* AND CHANNEL * 

* SCHEDULER * 

* FLAGS ♦ 

**««4c«**4e4'*****^« 



,♦ ♦, 

NO .* BURST * 
. ..♦. ON MPX 



Gl *. 
,* * 
.♦ DEVICE 
.ON CHANNEL 



4c4c«««[)2 ********** 

* INCREASE * 

* 'TEB USED* * 

* NUMBER AND * 
*INITIALIZE FOR * 

* TEB SEARCH * 

*i)i**************:t: 



3330 

OR 
3340R 



4c4tD3******* 



4c4>«* «:***•** 



♦ GET TEB * 

* INCREMENT AND * 

* INCREASE TEB * 

♦ COUNT BY 1 * 

*^*:$i*********#^** 



****E3********* 
* 

♦ RETURN 

* 

it,^i****if***it'**** 



*^i4'************** 



4c«:t(4c«G2***^*^**** 

* * 

* STORE TEB * 

* NUMBER * 

* DESIGNATE TEB ♦ 

* MN USE' * 
ti*if**i************ 

**** l 



«]tt4c*«G3** ******** 

* INCREASE * 

* 'TEBV USED* * 

* NUMBER AND * 
*INITIALIZE FOR * 

* TEBV SEARCH * 



* INCREASE * 

* TEBV COUNT * 

* BY 1 * 

* * 

ifL*:iL*if^:itc**** ****** 



*LOAD ADDRESS OF* 

* REQUIRED * 
*DEVICE ROUTINE * 

* * 
***************** 



.* IS DEVICE * 
*. TO BE ADDED 
*. A TAPE .* 



* IS THERE 

SPACE FOR 

*.NEW TEBV 



* K2 ♦.X. 

* ♦ , 
**** 

TEBEXD X 

*****K_2********** 
*GET ADDRESS OF * 

* MESSAGE 0I14A * 
*«CANT ADD TEB- * 

* INSUFFICIENT * 

* TABLE SPACE* * 
***************** 



. ABNCHK 

X 

***** 

*CH * 

* 01* 

* * 



4c««**K3********** 

* * 

* SET TEBV * 

* POINTER * 
*DESI6NATE TEBV * 

* 'IN USE* * 
***************** 

I **** 

* * 
,.X* K4 * 

* * 
**** 



* DEVICE *. YES 

TO BE ADDED .*.... 
*. MICR .* 



C4 *. 
* 

TP 
DEVICE 



.* X 

4c NO ***♦ 

**** * * 

. * ** K4* 

..X* H2 ** * 

* * **** 

**** 



.X* K4 * 
* * 

*♦♦* 



04 *. 


05 *. 


* *. 


,♦ * 


TP *. NO 


.* RETAIN 


SUPPORTED ...... 


*. SUPPORT IN 


.* . 


*. SUPVR 


*. .* . 


♦ , .* 


*. .* X 


*. .* 


* YES ***** 


* YES 


*CH * 




* CI* 


. 



DEVICE *. 
2703 ON 
.CHANNEL 0.* 
*. .* 



.* LINE MODE *. 

TABLE 
*. PRESENT .* 



.* DEVICE 
Z^S*^ ON 
*.CHANNEL 0. 
*. .♦ 



***** 
♦CH * 
* CI* 



**** 

* * 

* K4 ♦ 

* * 
♦♦** 



*****Q£f********** 

* * 

* INDICATE BSC * 

* OR START/STOP * 

* TCA LINE * 

* * 
***************** 



*****{^i,.********** 

* * 

* SET ♦ 

* DEFAULT * 

* LINE MODE ♦ 

* ♦ 
***************** 



.♦THERE SPACED. NO 
*. IN THE LINE .*,.. 
*. MODE .* 
♦.TABLE.* 
*. .* 
* YES 
*♦** 

* * 

* K4 *.X 

* * 
**♦* 

♦***K 4.********* 

* * 

* RETURN * 

* * 
*************** 



MODEXD 

«*4c4<*K5 ********** 
*GET ADDRESS OF * 

* MESSAGE 0I60A * 
♦•CANT ADD-INSUF* 

* FICIENT LINE * 
♦MODE TAB SPACE** 
***************** 
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Chart DG. $IPLRT3 - Ccnversicn and Update FOCI Sukrcutires 
Refer to Chart 03. 



* * 

* HEXRTN ♦ 

* ♦ 



HEXRTN 

* GET NUMBER ♦ 

* OF CHARACTERS ♦ 

* TO CONVERT * 
«AND GET ADDRESS* 
*0F END OF FIELD* 



♦ GET NEXT ♦ 

♦ BYTE TO BE * 

♦ CONVERTED ♦ 

♦ *D2 ♦ 



*D2 
STARTING WITH 
END ADDRESS 
MINUS 1* EACH 
BYTE IN THE FIELD 
IS CHECKED IN 
THIS LOOP. 



♦ * 

♦ CHURTN ♦ 

♦ * 



CHURTN 

*4i4c4i*B4********** 
♦NULL FOCL LIST,* 

* ZERO PUB NO., ♦ 

♦ AND GET START * 

* ADDRESS OF * 

♦ I/O TABLE * 



* DECREASE ♦ 

* PUB NUMBER * 

* BY 1 TO * 

* FORCE BRANCH * 

* « 



* D4 *.X 

* * 
*♦** 

CHEXT X 

4!«#4c*D4********** 

* ADD ONE TO * 

* PUB NUMBER ♦ 

* AND UPDATE * 

* SCAN ADDRESS ♦ 

* *D5 * 



* E4 *.X 



♦05 
FIRST TIME 
THROUGH, PUB 
NUMBER IS 
RESTORED TO ZERO. 



***** 

*CH * 

* CI* 

* ♦ 



Fl 



♦ . 



NO .* END OF *. 
...♦. FIELD .* 

*. .* 

*. .♦ 
♦ . ,* 
♦ YES 



«*4c^«6 1********** 

♦ ♦ 

♦ PACK FIELD * 

♦ TO CONVERT * 

♦ HEXADECIMAL * 

♦ ♦ 
***************** 



****H1********* 

* * 

* RETURN * 

* ♦ 
*************** 



****f:^********* 



m***^t**ti*****^m 



F4 ♦. 
.* COMP ♦. 
HI .* CHAN. NO. * 
,..*. TO SEARCH 

♦. CHAN, .* 
♦ . .* 
♦ . .♦ 
♦ EQ 



**********ili*ifiHi^-i)t 



♦ * 

♦ DECREASE ♦ 

♦ CHANNEL ♦ 

♦ NUMBER * 

♦ BY 1 ♦ 
****tt************ 



JPD X 


.*. 


*****^/^**lt*tt***** 


H5 *i 


* * 


.♦ PUB *. 


♦ UPDATE THE ♦ 


.* CHANNEL ♦. f 


* CHANNEL ♦ 


♦.EQUALS SEARCH. ♦ 


♦ NUMBER ♦ 


♦. CHANNEL .* 


♦ ♦ 


♦ . .* 


4c*«*#*4c*4' ♦♦♦♦♦♦♦♦ 


*. .* 


. 


♦ YES 



*♦♦♦ 

♦ ♦ 

♦ E4 ♦ 

♦ ♦ 
♦♦♦♦ 



CHSLOP X 

4s**** j^********** 

♦ STORE FOCL ♦ 

♦ ENTRY AND ♦ 

♦ ADD 1 TO ♦ 
♦CHANNEL NUMBER * 

♦ TO RESTORE ♦ 



.X. . 

X 

♦♦*♦ 

* ♦ 

* D'^ * 

* ♦ 
♦♦♦* 
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Chart EA. $IPLRT4 - SET Stateirent Processor and Assign SYSLOG (Part 1 cf 2) 
Refer to Chart 03. 



****A1********* 

* * 

* *IPLRT4 ♦ 

* ♦ 

*itc * 4c « « «« ♦ « ^4< 4c « 41 



*♦♦* 




*CE * 




* Jl *.X 




* * 




*♦** 




SETRTN X 


**B1******* 


* 


♦ RESET 


* SET SWITCH 



*♦♦* 

* * 

* C4 * 

* ♦ 



4c 41 « « « C 1 '<' 't' 't' "<< '^ * <■ << 't' * 

♦ * 
♦INITIALIZE NEXT* 

♦ LOOP TO LOOP *. 

♦ THREE TIMES ♦ 
4t * 
:(cj(t*«*4c«:Cc4c4c4<4'4e«4<4c4c 



«:tc4(4<4c01*'^*'^***'<'** 

4'FDSPTN CG* 

* GET NEXT * 

* OPEPAND ♦ 



.ENDLOOP .*. 

CA *. 
.* CLOCK 4t. 
.*NOT SET OP * 
*. NOT 

♦OPERATIONAL* 



DATE AND 
CLOCK NOT 
. READ 



«^#«4c«>(c4:4'4<4< 



= ** 



***** 

*CH * 
* CI* 



4c4t***E2 ********** 



**E3****<c** 





* 


. YES 


* SAVE * 


*SET DATE BIT * 


DATE 




.*. .... 


..X* DATE *.... 


X* IN ♦ 




,♦ 




* SPECIFICATION * 


* SET SWITCH * 


.* 






* * 


* * 


*. .* 






«#«*4c**«********* 


«««******** 


* NO 










1* '*. 






««4::«c«p2 ********** 


««P34c4<***** \ 


* 






« * 


* * 




'* 


YES 


♦ SAVE * 


♦SET CLOCK BIT* 


CLOCK 




.*. .... 


..X* CLOCK *.... 


....X* IN *..X. 




,* 




* SPECIFICATION * 


* SET SWITCH * 


.* 






* ♦ 


* * 


*. .* 






««4c4(** *********** 


«:«<«4:]|c4c«)|c«4'* 


* NO 




















I *. 






♦♦4<**G2 *♦♦***♦*** 


«4c***G3 *♦♦****♦** 


* 






* * 


* SET ZONE IN * 




'* 


YES 


* VALIDATE AND * 


♦COMMUNICATIONS ♦ X 


ZONE 




,* 


..X* CONVERT ZONE *.... 


....X^ REGION AND ♦.... 




.* 




* SPECIFICATION * 


♦ COMREG ♦ 


.* 






* * 


* EXTENSIONS * 


*. .* 






***************** 


«4c*************4:* 


* NO 











_«_♦_♦_*_♦_ 



4:itc:((««4<*********** 



SETCLOCK 

* ♦***F4* **♦*♦•>«*** 

* SET CLOCK * 
♦(OPERATOR MUST * 

* SET TOD CLOCK * 

* SWITCH TO * 

* 'ENABLE SET') * 
4(4c*************** 



* MOVE DATE OF ♦ 

* SET COMMAND * 

* INTO COMREG * 

* * 

:tc4c*************** 



,* 
. .* 

* YES 



* TOD 

SUPPORT IN 
♦. SUPVR . 



* ISSUE GETIME * 

♦ MACRO IN * 

♦ TIMER UNITS * 

* * 

«4e*4c************* 



***** J5 ********** 
« * 

* CONVERT ♦ 

* TIME OF DAY * 
*T0 TIMER UNITS * 

* ♦ 
***************** 



***************** 



***** 

♦ EB * 

* A3* 
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Chart EE. $IPLR1U - SET Stateirent Processor and Assign 
Refer to Chart C3. 



SYSLOG (Part 2 of 2) 



*♦*♦♦ 

♦ EA ♦ 

* K4* 



♦♦*♦ 

* * 

* A5 ♦ 

* * 
♦♦♦♦ 



X 

*CH * 
* CI* 

♦ ♦ 

ILLCD 



A3 ♦. 
.* * 
* MORE 

OPERANDS 
*. IN SET 
*. .* 
*. .♦ 
* NO 



.♦UNASSIGNED *. YES 
♦.COMMUNICATION.*... 
♦. DEVICE .* 

*. LUB .* 



«*«4t*C34»(<******** 

* CALCULATE * 

* ADDR OF PUB * 

* FOR * 

* COMMUNICATION * 

* DEVICE * 



♦SET POINTER TO ♦ 

♦ COMMUNICATION ♦ 

♦ DEVICE PUB IN ♦ 

♦ LUB TABLE ♦ 



4c««;ii«E3 ♦♦♦♦♦♦♦♦♦♦ 
♦PBFRTN ££♦ 
*_♦_*_*_*_♦_♦_♦_* 

* PrwD puf^ FOR * 

* COMMUNICATION ♦ 

* DEVICE ♦ 



COMNFD X 

♦ GET ADDRESS ♦ 

♦ AND LENGTH OF ♦ 

♦ MESSAGE 0U7A ♦X. 

♦ »N0 PUB GIVEN * 

♦ FOR SYSLOG* ♦ 



***** 
♦CH ♦ 
♦ 01^ 



.♦. 

A5 *. 

.♦ TS ♦. 

.♦ PUB VALID ♦. 

.COMMUNICATION.* 

*. DEVICE .* 



*****B5 ********** 
♦MAKE PERMANENT ♦ 
♦LUB ASGNMT FOR ♦ 
♦ COMMUNICATION ♦ 
♦DEVTCE IN HIGH ♦ 
♦COPE T/0 TABLES^ 
***************** 



*****e5 ********** 
♦PBFRTN EE* 
*_*_*_♦_*_♦_*_*_♦ 

♦ PTND PUB ♦ 

♦ FOR SVSRES ♦ 

♦ DEVICE ♦ 
***************** 



***** 
*EE * 
* H3* 



.♦ VALID * 
♦ DEVICE 

AND PUB 
*. FOUND 



*_*_*_*_*_*_*_«_:«« 

* VALinATE PUB ♦ 

* FDp SYSrES * 

* DEVICE * 

***********4i****:^ 



.♦IS PUB ♦. 
♦ VALID FOR 

SYSPES 
*. DEVICE . 



PESNFO 

*****f,5 ********** 

* GET ADDRESS ♦ 

* AND LENGTH GF ♦ 
♦MESSAGES DI16A ♦ 

* 'NO PUB GIVEN * 

* FOP SYSRES" * 
***************** 



.♦. 

H3 *. 

.♦SYSLOG *. 

.* IS *. 

.COMMUNICATION. 

*. DEVICE .* 



*****J3 ********** 
♦INITIALIZE FOR ♦ 

* DEVICE CHECK. ♦ 

* SYSLOG IS * 

* COMMUNICATION * 

* DEVICE * 
***************** 



CHKCOM 

*****K3********** 
♦COMCHK EE* 
«_*_*_*_*_*_*_* _* 

* VALIDATE PUB * 
*FOR COMMUNICA- * 

* TION DEVICE * 
***************** 



RDRTST 

4c**** J 4********** 
♦INITIALIZE FOR * 

♦ DEVICE CHECK * 

♦ SYSRDR IS * 

♦ COMMUNICATION ♦ 

♦ DEVICE * 
***************** 



Charts 67 



Chart EC. $lPLRTa - Assign SYSPES and 
Refer to Chart 03. 



Move I/C Tables 



***** 

*EB * 
♦ F5* 



* A2 * 

♦ ♦ 
**** 



**** 

* * 

* A4 * 

* * 
*♦** 



* A5 * 

* ♦ 

*♦** 



*4c***A 1********** 
♦MAKE PERMANENT * 
♦LUB ASSIGNMENT ♦ 
♦ FOR SYSRES * 
♦DEVICE IN HIGH-* 
♦CORE I/O TABLES^ 
***************** 



.* DOES 
. SYSRES LUB 
*. HAVE A , 
♦. JIB .♦ 



*«***C I********** 

* * 

* SET STANDARD ♦ 

* JIB FLAG IN * 

* SYSRES LUB ♦ 

* * 

«*3(t4c********«**** 



***#*A2 ♦♦****♦*** 
*SYSMVC CF+ 
*_*_♦_*_*-*_*_*_* 

* MOVE THE ♦ 

* PUB TABLES ♦ 

* TO LOW CORE ♦ 
*«***««**4i**4c**** 



***i((*B2 ********** 
♦SYSMVC CF* 

a|t_*_*_j)t_*_j(,_#_*_:Jt 

♦ MOVE THE * 

♦ LUB TABLES ♦ 

♦ TO LOW CORE ♦ 

««***«***«:******« 



****«C2 ♦♦♦♦♦♦♦♦♦♦ 
♦CLDRTN EE* 
♦_♦_♦_*_*_*_♦_♦_♦ 

♦UPDATE CHANNEL ♦ 

♦ BUCKETS IN ♦ 

♦ MPS ♦ 
«********«***«**« 



*««4i*A3**«*«**#** 

♦REORGLC EM^ 
*_♦_*_*_*_♦_♦_*_* 

♦ CHECK LABEL * 

♦ CYLINDER ♦ 

♦ ORGANIZATION ♦ 
***************** 



***att«B3 ♦♦♦♦♦♦♦♦♦♦ 
♦CHKDOC EN* 

*_*_*_♦_*_*_♦_♦_♦ 

* CHECK IF * 

* COMM. DEVICE ♦ 

* IS DOC * 
«***«*******«**«« 



.*, 


CHKRAS .♦. 


C3 *. 


C4 *. 


.* *, 


.* IS 


IS *. YES 


.♦ NORAS 


COMM. DEVICE .* 


♦. MESSAGE 


DOC .* 


♦.REQUIRED 



YES .* IS 

...*. SYSLOG 
♦.ASSIGNED 



SYSLOGUA X 

*4c**4[B4****^*^*** 

♦ SET USE EOUAL * 

* TO LOG, AND * 
♦USESW EOUAL TO * 

♦ NOASLGt SYSLOG ♦ 

* NOT ASSIGNED) * 
***************** 



.* I/O *. 
.* ERROR IN ♦. 
. PREVIOUS 
*. ROUTINE .♦ 



CYLDP 

****4cpi4c********* 

♦CHSWRTN ET* 
*_«_*_*_*_*_♦_*_♦ 

♦ CHECK * 

♦ CHANNEL * 

♦ SWITCHING ♦ 

**«:«c*****«*3|<4{**:l|<4c 



***iK*El***«****** 
♦BMPXRTN ER+ 
*_♦_*_*_♦_♦_*_♦_♦ 

♦ CHECK BURST/ ♦ 

* MICR DEVICE ♦ 
♦ON MPX CHANNEL ♦ 

**«***««:****«**** 



*****FX^^^*^*^*^^ 
♦OPNRTN ED* 

♦_*_♦_*_♦_♦_♦_:(,_♦ 

♦UNASSTGN SYSTEM* 

♦ INPUT/OUTPUT ♦ 

♦ TAPES ♦ 

***««**4c********* 



***«*6 !**«**«**«* 

*ASNRTN EH* 
♦_♦-*_♦-*_*_*-*_♦ 

* VALIDATE THE ♦ 
♦ASSIGN FLAGS IN* 

* THE PUB TABLE * 

*****««««*«*«**:(<« 



«****Hl********** 
♦DSDRTN ED+ 

♦ CHECK DISK ♦ 

♦ CHANNEL ♦ 

♦ ASSIGNMENTS * 

*****«4c*****«**:(c4c 



***«4cJ I********** 
♦FPRTN EJ* 
♦_♦_*_♦_♦_*_♦_*_♦ 

♦ CHECK ♦ 
♦FLOATING POINT ♦ 

♦ OPTION ♦ 

«**3tC************* 



*****Kl********** 

* * 

* MASK OFF ♦ 

* ALL CHANNEL ♦ 

* AND EXTERNAL ♦ 

* INTERRUPTS * 
4c%%A************* 



NO .* ARE 
. .*. THERE 
*. TEB'S 



4:****E2 ♦♦♦♦♦♦**♦* 

♦SYSMVC CF+ 

*_*_*_*_ ♦_*_*_!{(_* 

♦ MOVE THE ♦ 

♦ TEBS ♦ 

♦ TO LOW CORE * 



♦RESTORE PROGRAM* 

♦ MASK TO * 

♦ REACTIVATE ♦ 

♦ INTERRUPTS * 

«*4c************** 



♦RESTORE SYSTEM ♦ 

* PSW AND CLEAR ♦ 

* PROGRAM CHECK ♦ 

* OLD PSW * 

*«*«:« :|(**«*4c*«#*«* 



♦***!CtH2 ********** 
♦I0HL2 CH* 

*_♦_*_*_♦_*_*_*_* 

♦ READ * 

♦ SYSTEM ♦ 

♦ DIRECTORY ♦ 

4c************«*«:(c 



*«**4cJ2 ********** 

* * 
♦INSERT ADDRESS ♦ 

* OF LABEL ♦ 

* CYLINDER IN * 

* COMREG+60 * 

««««4c««:te********* 



*4c***K2 ***♦♦**♦** 

*CPYSLB EG* 

*_*_♦_♦_♦_♦_*_*_* 

* COPY SYSRES, * 

* SYSREC, SYSLOG * 

* LUB'S INTO FG * 

**4c««*«««**«4c«««* 



*SEARCH PUB FOR * 

* COMM. DEVICE: * 
*32I0, 3215, ETC. * 

* * 
***************** 



j|t *:K** E3 *« :(c* « *«« *« 

♦PUBSCANW ED * 

*_:jc_#_:4t _*_*_*_*_♦ 

* SEARCH FOR ♦ 

* 3340 * 

* * 

«*«3(t*****4c******* 



*«***04**«******* 

♦MSGRTN CH* 
*_♦_*_*_*_♦_*_*_* 

* ISSUE MESSAGE * 
♦•NO RMS SUPPORT* 
♦FOR THIS MODEL'* 
***************** 



END 

OF 

PUB 



.♦ PUB FOR * 
.♦. COMM. DEVICE 
*. FOUND .♦ 



**:)e*«H3^^**^^^*^^ 

* * 
♦SET SYSUSE LUB ♦ 

* EQUAL TO * 

* SYSLOG LUB * 

* * 

*)|<*;(c*****«**«**]«c4e 



.* IPL COMM. *. NO 
*. DEVICE CARD .*.., 
*. READER .* 



♦SET SYSUSE LUB * 

* EQUAL TO *. 

* SYSRDR LUB * 

* * 

4c*****4c**:«c**«**** 



YESLOGl 

*****E4********** 

* BLDP2T00 EK* 
*_*_*_*_♦_*_♦_♦_* 

* BUILD PUB2 * 

* TABLE IF ♦ 

* NEEDED * 

3tC******i(C****«««** 



*-*-*-♦-*- 



^ ******'('* ******** 



t****(^it********** 
♦T125CH EP* 
*_♦_♦_*_*_*-*_*_* 

* 125 PAS * 
*SUPPORT ROUTINE* 

♦ * 



4c****H4********** 

♦DVCDNOO EL* 

* CHECK FOP * 
*NON-OPERATIONAL* 

* DASD * 

**4c«4e*****«**«**« 



«*3(c«4<J44i4c*«««««:4<)tc 

♦MODERTN EO* 

*_*_♦_*_*_*_♦_*_* 

* SET ♦ 

* LINE MODE * 

* * 

:tc«3«c«3te«««««#**4E*** 

I **** 

* * 

..X* A5 * 

* * 
**** 

*«**4:K4*********:4: 



♦ ISSUE MESSAGE ♦ 

♦ •I/O ERROR DUR-+ 

♦ ING LN MOD I NIT* 

*****:«(*******«**« 



*** **C5 ********** 
♦PUBSCAN ED^ 

*_*_♦_*_♦_*_*_♦_* 

* SEARCH *. 

* FOR 3211 * 

* * 
***«*«*«****«***« 



♦*** . 
NOLOG X 

*«***05#4c** ****** 

♦ * 
♦SET USESW EQUAL* 

♦ TO NOCNLG * 

♦ (NO CONSOLE ♦ 

♦ WRITER FOUND) ♦ 
***************** 



*****E5 *:((«*«**«*« 

♦BLDP2T00 EK* 

*_*-*_♦_«_*_«-*-♦ 

* BUILD * 

* pub:? TABLE * 

* ♦ 

:(<:tc**************« 



*****P5 lOi********* 
♦MODERTN EQ* 

*_♦-*_*-♦_*_♦_*_♦ 

* SET ♦ 

* LINE MODE ♦ 

* * 

4:********** ***#«« 



♦ ♦♦**f;S ********** 

♦ T125CH EP^ 
*_♦_*-*-*-*-*-♦-* 

♦ 125 RAS ♦ 
♦SUPPORT ROUTINE* 

♦ * 



*SET USESW EQUAL* 
X* TO SYSLGA * 

* (SYSLOG * 

* ASSIGNED) * 
***************** 



**4c:(t* J5 ««1c)^««;(c««:«c 

* * 

* HOLD READER * 



4c******«********* 



* INDICATE THAT ♦ 

* THE SET * 

* COMMAND HAS * 

* BEEN HANDLED * 

««««:((«*««#* «««4:i(c* 



* A2 * 

* * 
**** 



***** 
*CC * 
♦ Bl* 
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Chart ED. $IPLRT'* - I/O and Check Device Type Subroutines 
Refer to Chart 03 • 



♦ * 

* OPNRTN * 



* * 

♦ PUBSCANH ♦ 



OPNRTN X 


SRCH3340 


««itt«*B l't"i'***4<**** 




* GET ADDR OF * 


.♦ 


♦ LUB AND PUB * 


YES .* 


* TABLES FOR ♦ 


...*. 


* PARTITIONS ♦ 


*. 


♦ ♦ 


♦ 


4c**««**4c:^««***](>«* 




♦ ♦♦♦ I 




♦ * . 




* CI *.x. 




♦ ♦ 




**♦♦ 




OPNLOP X 




:(c4'*«4cC l*4t4< 4c *«##«:»: 




* * 


.* 


* GET SYSTEM ♦ 


.* 


* LIST LUB * 


♦ . 


♦ ADDRESS ♦ 


*. 



4c***#«*««««««*««« 



X 

X 
NEXTSYS .*. 

01 ♦. 
,* IS *. 
.* THERE A *. NO 
*.PUB FOR THIS .*. .. 
*. LUB .♦ 



* * 

* CALC PUB * 

* ADDR FROM PUB * 

* PTR IN LUB * 

* * 



.♦ DEV A *. 
.*TAPE, DISK,*. NO 
► .DATA CELL.OR .*.,. 
*. DISKETTE .* 



OPNUSN X 

TURN OFF JOB* 

CONTROL. ASSIGN* 

*FLAG OWNERSHIP * 

BIT. STORE OWNER 

♦-SHIP FLAGS* 

««««*«**:*(«« 



«3|C«««H1********** 

* * 

* * 

* UNASSIGN LUB * 

* * 

* * 

4c 4c 4c ^c************* 



END 

OF PUB 

TABLE 



****A4********* 

* ♦ 

* DSDRTN * 

* * 
4c4(4[4<*********** 



.♦ DASD *. NO 
.FILE PROTECT .*... 
*. OPTION .* 
*. .* 



4c4<***C3********** 

* » 

* INCREMENT * 
X* POINTER TO ♦ 

* NEXT PUB * 
41 * 
4(«4<***4(********** 



»*♦♦ 
DSDPl X 

4c4c4c**C4********** 

* ♦ 

* INCREASE PUB * 

* ADDRESS TO * 

* NEXT PUB * 

* ENTRY * 

4c4c4c4>*****4c4i*4c**** 



*C5 

COMMUNICATIONS 
REGION DISPLACEMENT 
92 IS THE CHECK POINT 
AREA, BUT IS USED TO 
KEEP TRACK OF THE DASD 
DEVICES THAT ARE FILE 
PROTECTED DURING THE 
I PL PROGRAM. IT IS 
RESET TO ZERO BEFORE 
THIS ROUTINE IS EXECUTED. 



4(4t***D2 ********** 

* * 

* FETCH * 

* SfBCARTR * 

* FOR CARTRIDGE * 

* RECOGNITION * 
4i4c***********4(*** 



4i4c4<4'E 2 ********* 

♦ RETURN * 

♦ TO CALLER * 

♦ * 
4c4E****«******** 



****F2 ********* 

* * 

* PUBSCAN ♦ 

* * 
4c*4c************ 



04 *. 


*4e***n5 4>*******«* 


*. 


* ZERO THE * 


LAST *. YES 


* BYTE AT ♦ 


PUB IN .*,.., 


...X* COMREi 


; + 92 * 

:•) * 


TABLE .* 


* *( 


. .* 


* * 


*. .* 


4c 4c 4( ************** 


* NO 






♦*** 






* 4c 






* E5 *.X 






4C 4c 




X 


***4c 




.*. 


DSDRET 





YES .* 2311 
...». OR 

*. 2314 



4c4c4c4iE5 ********* 

* * 

* RETURN * 

* * 

4c4c4c4c*********** 



2321 

.♦* 

*, ,* 
* YES 



YES .* END 

.,..*, OF PUB 
*. TABLE 



4c4c4<**G3 ********** 

* * 

* INCREMENT * 

* POINTER TO ♦ 

* NEXT PUB * 

* ♦ 
4c 4c4>******** ****** 



5203, 
5203U OR 
. 3203 



3330/3340 

SUPVR. 

. SUPPORT . 



* H4 *.X. 

* * , 
**** 

DSDP3 X 

4c4c4c**H4********** 

* GET CHANNEL * 
*NUMBER, CHANNEL* 

* MASK ADDRESS, * 

* AND CHANNEL * 

* SUPPORT FLAG * 

4c4c4c4c4c4:4c4c4c4c4e4E4c**4e4: 



* C4* 

4« * 

**♦♦ 



**** 

* * 

* H4* 

* ♦ 
**** 



4c 4c*«J2 ********* 

* FETCH * 

* $$BUFLDR * 

4c 4c 

4i4(********4'**** 



.*DEV1CE *. 
SUPPORTED *. NO 
ON THIS .*... 
. CHANNEL .* 



* ALL *. YES 

PARTITIONS .♦..., 
*. HANDLED .* 
*, .* 



*«**K2 ********* 

* RETURN * 
,X* TO * 

* CALLER * 
4c4c4c« *********** 



ER1121 

4c 4c 4c 4e*K5 ********** 

♦GET ADDRESS OF * 

* MESSAGE 0I23A * 

* 'DASD ON NON- * 
♦FILE-PROTECTED * 

* CHANNEL' * 

4c4c4c******4c4c**«*** 



♦ CI * 

* * 
**** 



***** 
*CH ♦ 
* 01* 



Charts 



Chart EE. $IPIRTU - Find FUE and I/O Subrcvitines 
Refer to Chart 03. 



♦Al 
SYSRES LUB POINTER 
TIMES 8 PLUS THE PUB 
TABLE ADDRESS. 



•4(4t*A24'4'*>K««4>4t* 

♦ ♦ 

♦ COMCHK * 

♦ ♦ 



♦ CLDRTN * 

♦ ♦ 



♦ LOAD REGISTER * 

* WITH LENGTH * 

* OF ENTRY ON * 

♦ DEVICE LIST * 



****C3 ****♦*♦♦♦ 

♦ NORMAL RETURN ♦ 

♦ VIA LINK * 

♦ REGISTER+4 * 



* PBFRTN ♦ 



♦ CALCULATE ♦ 

♦ PUB ADDRESS * 

♦ FROM LUB PUB ♦ 

♦ POINTER * 



* INCREMENT * 

* TO NEXT * 

* PUB TABLE ♦ 

* ENTRY * 



GI *. 
.♦ *. 

.♦ C/U IN 
. SYSTEM PUB 
♦. SAME AS . 
*. IPL .♦ 
♦ , .* 
* NO 



LAST 

PUB IN 
TABLE 



♦ RETURN TO * 

♦ LINK ADDRESS ♦ 

♦ I ERROR) * 



****E2********* 

* ERROR RETURN * 

* VIA LINK * 

* REGISTER * 



VALID 

DEVICE 

TYPE 



* RETURN TO * 

* LINK ADDRESS * 

* PLUS 4 * 



***** 
*EB * 
* G3* 



* CALCULATE * 
X* PUB NUMBER * 

* AND TRUE * 

* ADDRESS * 
***************** 



* CALC ADDR OF * 
*PUB TABLE ENTRY* 

* FOR SYSRES ♦ 

* *A1 * 
«*#«4i«4c********** 



*«*«*C4********** 

♦ * 

♦ STORE PUB * 

♦ ADDRESS * 

♦ FOR SYSRES * 

♦ * 
4<*4[4'************* 



4t*4(*«[)4*«4t4:***4:«« 

* * 

* GET FOCL AND * 
♦CHANNEL BUCKET * 

* ADDRESSES ♦ 

* # 
4(«4t4c*#*********** 



* POINT CLDWKl ♦ 

* TO NEXT FDCL, * 

* CLDWK4 TO NEXT * 

* CHAN BUCKET * 

4c****#4c**:(t**«*«** 



* ANY 

DEVICES ON 
*. CHANNEL . 



***4t*G 4* ***♦♦'•''<'** 

* ♦ 

* CALCULATE * 

* ADDRESS OF * 

* FIRST PUB ON * 

* THIS CHANNEL * 

«#««*««>((« J^^C****** 



4c*4e**H4********** 

* * 

* STORE ADDRESS * 
*0F FIRST PUB ON* 

* CHANNEL IN * 
♦CHANNEL BUCKET * 

:|c«:(c:(>*4c*********** 



, 


CLDLP2 


.* . 


X 




J4 * 


«:(c4c«J34c«******* 




* 


RETURN TO * 


.* 


LAST 


LINK ADDRESS * 


* • 


FOCL 


PLUS 8 * 


* 


ENTRY 


*««*«*3|c««:(c***4c4: 




*. 



«**«K4*******4<* 

* * 

* RETURN * 

* * 

«:(c:(c«4t«3«(«******* 
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Chart EF. $IPLRTU - Date and Tiire Subroutines 
Refer to Chart 03, 



* DATIMERT ♦ 

• * 



* * 

♦ B2 ♦ 



*DATE FIELD ♦ 


. NO 




.♦YEAR EQUALS*. YES 


13 BYTES 


...... 


♦. 1900 .♦... 


*. LONG .* 






♦ . .* 


*. .♦ 






*. •* 


*. .* 






*. .♦ 


♦ YES 






* NO 


X 






X 


.♦. 






.♦. 


CI *. 






C2 ♦. 


.♦ IS ♦. 






.♦ *. 


* YEAR ♦ 


. yes' 




.♦ *. NO 


GREATER THAN 


.*..x 




*. LEAP YEAR .♦... 


*. 99 .* 






♦ . .* 


♦ . .* 






*. .* 


*. .* 


X 


*• .* 


♦ NO 


***** 


♦ YES 




♦CH * 






* CI* 






* * 






♦ 






ILLCO 


, 


X 


l"l> 


X 

***1f*Q2********** 






* * 


SET UP TO 




* SET VALUE ♦ 


CHECK MONTH 




* OF FEBRUARY * 


FIRST 






♦ TO 29 ♦ 



4c*««*4t«s(c«*4>**4i#4>« 



*4t***El********** 

♦ ADREST EF* 

♦GET MONTH FIELD* 

♦ ADDRESS AND * 

♦ LENGTH * 

*«i*4c«#4i«*4:*4>***** 



4i4i4t**F I ********** 
*OECRTN CG* 

♦ CONVERT * 

♦ MONTH FIELD * 

♦ TO DECIMAL * 
***************** 



♦ IS 

MONTH OR 
*. GT 12 . 

*. .* 



3tc«4c4<4'HI********** 

* * 

* SET INITIAL * 

* VALUE OF 28 * 

* FOR FEBRUARY * 

* * 



#4<4i«* ««*«******** 



MONTH 

«* 
.* 
NO 



*4>***F 2 ********** 



* MONTHS TO GET * 

* SYSTEM DATE * 
^*if ************** 



ENDMdNTH 

4<«4i**G 2 ********** 

* * 
*CALCULATE TOTAL* 
*NUMBER OF DAYS * 

* SINCE 1900 * 

* * 
iit*m************** 



3^4c*««H 2 ********** 

* * 

* CONVERT DAYS * 

* TO * 

* SECONDS * 

* * 
itt**************** 



«4c««A3 ********* 

* * 

* ADREST * 

* ♦ 

4i**4'*«**«*4'*4>*>l< 



.* IS *. NO 
*. DAY FIRST .*... 
*DATE FIELD-* 



*m***C3********** 

* * 

* CALCULATE * 

* ADDRESS OF ♦ 

* SECOND FIELD * 

* * 
Utitt*************** 



*4i*«A4********* 

* * 

* TIMERT * 

* * 



SKPINC 

««**4tD3 *!•>****** ** 
*CALCULATE FIRST* 

* FIELD ADDRESS * 

* AND GET * 

* SUBFIELD * 

* LENGTH * 

*iliei^1tttt************ 



4c«**E3********* 

* RETURN ♦ 

* * 



*. 



TIMERT .*. 
B4 

.* 
.* TIME 
♦. FIELD IS 
♦,14 BYTES 
*. .* 



* YES 



4i4e***C4********** 

* * 

* GET HOUR * 

* FIELD ADDRESS * 

* AND LENGTH ♦ 

* * 
m**************** 



«4c***04********** 
*DECPTN CG* 

* CONVERT * 

* HOUR FIELD * 

* TO DECIMAL * 

i|e«4c******4t******« 



***** 
*CH * 
♦ CI* 



***♦ 

* ♦ 

* B5 * 

* * 
**** 

X 

«4c«**B5 ««««)ti4c**«* 

* * 

* GET SECONDS * 

* FIELD ADDRESS * 

* AND LENGTH * 

* * 
4t** ******** «*«*** 



#4i4c4i*C5 *****♦**♦♦ 
*OECRTN CG* 

♦-.♦_*_*_♦_♦_♦_*-♦ 

* CONVERT * 

* SECONDS * 

* TO DECIMAL * 
*)|t«*«******i|t4t4i**« 



YES .* PESULT *. 
....*. TS GT 60 .* 

♦ . .* 



«4c***E5 *«*****♦♦♦ 

* ♦ 

* ADD SECONDS * 

* TO TOTAL * 

* IN TIMREG * 

* * 
ilf*iiiiliitiits:f ********** 



)||i#4!4<*F4********** 

* CONVERT HOURS * 

* TO SECONDS * 

* AND STORE * 

* IN TIMREG * 

* * 
*«*4i*«*««4(******* 



«:(t«*4cG4********** 

* * 

* GET MINUTE * 

* FIELD ADDRESS * 

* AND LENGTH * 

* * 

«3|t4E4c************* 



:«c##*:;eH4********** 

*DECRTN CG* 
♦_»_♦_*_*_*_*-.♦-♦ 

* CONVERT * 

* MINUTE FIELD * 

* TO DECIMAL * 
*#4(************** 



#4>* **G5 ********** 

* * 

* TRANSFORM « 
♦TIME (SECONDS^ * 

♦ DUE TO ZONE ♦ 

♦ VALUE ♦ 

4ii(t**««*««««4c***** 



.♦ PESULT ♦, YES 


♦ . IS GT 60 .* 




♦ , .♦ 




♦ • •* 




♦ . .♦ 


X 


* NO 


***** 




♦CH * 




* CI* 




* * 




« 




ILLCD 


X 




4c«««4'K4**^*^^**** 




* CONVERT * 




♦ MINUTES TO * 




* SECONDS AND * 




♦ ADD TO TOTAL * 




♦ IN TIMPFG ♦ 




«i(c4c************** 





^4i4c**H5 ♦**♦♦♦♦♦♦♦ 

* * 

* CONVERT TIME ♦ 

* TO OBTAIN ♦ 

* TIMER UNITS ♦ 

* * 



♦***J5 *♦♦♦♦**** 

* * 

* RETURN * 

* * 

4c«**«****««**«* 
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Chart EG, $IPtRTa - Ccpy Subrcutire 
Kefer to Chart 03, 



* * 

* CPYSLB * 

* * 



* * 

* CPYSRT ♦ 

* * 



CPYSLB 


.*. 


CPYSRT X 




B3 *. 


^*^*4'Bit********** 




* ♦, 


* GET ADDRESS * 


NO .* 


MPS *. 


♦ OF SYSTEM * 


.. .*. 


FEATURE .* 


♦ LUB INDEX ♦ 


* 


PRESENT .* 


* FROM PIB * 




*. .♦ 


* * 



* GET ADDRESS ♦ 

* OF LUB TABLE * 

* AND OF 2ND ♦ 

* HALF OF PIB ♦ 

* TABLE * 



♦ ♦ 
♦GET ADDRESS OF * 

♦ FOREGRCXJND ♦ 

♦ PIB * 

♦ ♦ 



4(«4c :» * £3 4i# :(c4c * ««« «# 

♦CPYSRT EG+ 

♦ _♦_»_:«_♦_♦ _♦_♦ _* 

♦ COPY LUBS ♦ 

♦ FOR ♦ 

♦ FOREGROUND ♦ 



««««)«p34c«««««i«c*)«c« 



4c«:4i«««4t4c4c4i4t**«4<** 



♦ CALCULATE ♦ 

♦ ADDRESS OF ♦ 

♦ FIRST SYSTEM ♦ 

♦ LUB FOR FG ♦ 

♦ * 



4e « « « « 04i(( 4> 4c« « « 4ci|(4c« 

♦ COPY SYSLOG ♦ 

♦ SYSRES AND ♦ 

* SYSREC LUBS ♦ 
♦FROM LUB TABLE ♦ 

* ♦ 



♦GET ADDRESS OF ♦ 

♦ FOREGROUND ♦ 
♦COMMUNICATIONS ♦ 

♦ REGION ♦ 

♦ ♦ 

:(( «:♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



««4c;|c«p4«4[««:f««*4i« 



♦ GET ADDf 

♦ FOREGf 

♦ 

X 


lESS OF ♦ 
^OUND ♦ 
[B ♦ 
♦ 
^^♦♦♦♦♦♦« 


♦ COPY ♦ 

♦ SYSTEM DATE ♦ 

♦ USER'S DATE ♦ 

♦ MOVE ZONE ♦ 


♦♦♦♦G3^^ 
♦ 

♦ RETl 
♦ 


( 

JRN ♦ 
♦ 


X 

♦ ♦ 

♦ COPY * 

♦ CYLINDER ♦ 

♦ ADDRESS ♦ 
^^^(♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



♦ ♦ 

♦ RETURN * 

♦ ♦ 
^^(^•(♦♦^■♦♦♦♦♦♦♦♦^ 
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Chart EH. $IPLRT4 - Set Job Ccntrcl Flags Subroutine 
Refer to Chart 03. 



♦♦♦♦A I********* 

* * 

♦ ASNRTN ♦ 



ASNRTN 

*««4i4'B I********** 

♦ LOAD NUMBER * 
♦OF PARTITIONS. ♦ 

♦ LOAD REGISTER ♦ 

♦ FOR LOOP * 

♦ CONTROL ♦ 



Ifti*************** 



.* IS 


CLASS 


*. ASSIGNED 


♦ . 




♦ . 




*. .* 




* NO 


***♦ 




♦ * 




♦ EI * 


X. 


« * 




*♦** 


X 


ASNEND 


.* m 



♦ ♦ 

♦ GET FIRST * 

♦ LUB ADDRESS ♦ 

♦ AND * 

♦ NICL ENTRY ♦ 



♦ IS THIS A * 

FOREGROUND 
♦.PARTITION.* 



D2 *. 

.* *. 

MPS 

FEATURE 

. PRESENT . 

♦ , .* 

*. .♦ 

♦ YES 



>X 

:(c«4t««E2 ♦*♦♦♦♦♦♦♦♦ 

* INDICATE FG * 

* PARTITION * 
♦AND ADJUST FOR ♦ 

* SYSTEM UNITS * 
^^^^♦♦♦♦♦^♦♦♦♦♦♦4'« 



♦ BITS TO SWI. _.. 
♦ON APPROPRIATE ♦ 

♦ OWNERSHIP BITS ♦ 

:tc*«4> If «♦♦♦♦*♦♦**«* 



« « :|c « :(( 03 « * # :«[ « « 4c >{( « ^ 

♦ ♦ 

♦ LOAD ♦ 

♦ BACKGROUND ♦ 

♦ FLAG ♦ 

♦ ♦ 



«**«:«< £?♦♦♦♦♦♦♦♦♦♦ 



#if:ti*iti**Mf********^ 



♦ * 

♦ SET MASK ♦ 

♦ TO RESET ♦ 

♦ * 



4c*«*F !♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ RETURN ♦ 

♦ ♦ 

*4ci|< ♦*♦*♦♦**♦♦*« 



*««#*i(t*4c4(««<c:(c3«c«#« 



♦ * 

♦ STORE * 

♦ OWNERSHIP ♦ 

♦ FLAGS ♦ 

♦ * 



♦ IS THIS A ♦. 
FOREGROUND .= 
♦. PARTITION. ♦ 



♦****H2 *♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ ADD NUMBER ♦ 

♦ OF SYS LU8S ♦ 
♦FOR FOREGROUND ♦ 

♦ ♦ 
4t <<«*««♦♦««♦*♦#««« 



*****G3^^**++**++ 



***#***♦♦♦♦♦**♦♦* 



*♦♦* 

* * 
.X^ G3 ♦ 

* * 



**** 

* ♦ 

* El ♦ 

* * 
♦♦♦* 



♦ * 

♦ GET PUB/LUB ♦ 

♦ ADDRESS AND * 

♦ ADDRESS OF ♦ 
♦OWNERSHIP FIELDS 

:((«*♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦** 

* ♦ 

* A3 ♦ 

* * 
♦**♦ 
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Chart EJ. $IPIRT«» - Reorder MPX Channel LUEs and FUEs 
Refer to Chart 03. 



♦***A I********* 

♦ FPRTN ♦ 

♦ ♦ 



REFERENCES 
TO EJB25 
ER05f ESE3 



NO .♦ FLOATING ♦. 
,..♦. POINT .* 
*. FEATURE .* 



* * 

* HOLD ♦ 

* NEW * 

* PSW ♦ 

* * 



* * 
TURN OFF 
FLOATING 

POINT 

♦ SWITCH ♦ 



**E1******* 

* * 
SET 

FLOATING PT 
BYTE ON IN 

* COMM. REG * 



4i4c«**F l«4<4c«4<*«4c4<4< 



4[4'*«*****««)|ti«<4>*«4t 



^fHi^i^Ql^** ****** 

* * 

* RETURN * 

* * 
***if*********^im 



♦ZERO BURST DEV.* 

♦ ADDRESS FLAG ♦ 
♦CALCULATE FIRSTS 

♦ PUB NUMBER ♦ 
*****^*********** 



♦♦♦* 
MPXLOP X 

*****Q2********** 

* * 

* GET NEW ♦ 

* PUB NUMBER ♦ 

* AND ADDRESS ♦ 

* * 
,lf^*********ti***** 



.♦ DEVICE ♦. NO 
*.0N MULTIPLEX .*... 
♦. CHANNEL .♦ 



E2 ♦. 

,♦ CAN ♦. 

.* DEVICE BE ♦. 

*. OPERATED IN . 

♦BURST MODE.^ 



^,**:i^it,Q^*:tc:tt******* 

* * 

* LOAD MPX * 

* ENDING ♦ 

* ADDRESS ♦ 

* * 

:^*>ii#4'************ 



♦ * 

♦ SCAN LUB * 

♦ TABLE AND * 

♦ CHECK FOR * 

♦ ASSIGNED LUB * 
^^^'^^♦♦♦♦♦♦♦♦«*««^ 



.♦. 

F2 ♦. 

.♦ ♦. 

.♦ BURST ♦. 

ORIGIN 

♦ESTABLISHED^ 



t****Q2'*'********* 

* * 

* TURN ON BURST ♦ 

* DEVICE FLAG ♦ 

* AND STORE ♦ 

* ORIGIN OF PUB ♦ 

^********iti*:t^:t'**** 



E3 ♦. 
,* ♦, 
.♦ BURST ♦. 
.X+. ORIGIN 

♦ ESTABLISHED^ 
♦ , .* 
♦ . .♦ 
♦ YES 



*****f^4'********* 
♦SYSMVC CF* 
♦_♦_*-♦-♦-♦_*_*-« 

♦ MOVE PUBS TO ♦ 

♦ MAKE SPACE * 

♦ FOR NEW PUB ♦ 
***iff^*if ********** 



^f***it'G3********** 

♦ INSERT NEW ♦ 

♦ PUB AND * 

♦ CALCULATE ♦ 

♦ NEW BURST ♦ 

♦ ORIGIN * 
*itt**A'************ 



E4 



♦ . 



♦ . 



END 

OF LUB 

TABLE . 

♦ . ,♦ 

♦ . .♦ 

♦ NO 



* RESTORE ♦ 

* CHANNEL ♦ 

* QUEUE ♦ 

* POINTER ♦ 



***** 

♦E" ♦ 

♦ FI + 

* * 



♦ SCAN PUB ♦ 

♦ TABLE TO FIND ♦ 

♦ PUB ASSIGNED ♦ 

♦ TO LUB ♦ 

4c ^^[♦^♦♦♦♦♦♦♦♦♦Xc:*!* 



^,^fiti^*Jlff********* 



^f**************** 
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Chart EK. $IPLRT4 - Build EUB2 Table Subrcutire 

Kefer to Chart 03. 



♦ * 

♦ BLDP2TO0 * 
» * 



«««4>:(e«4i «««*:((«*« 4e4< 



*****D1 **♦***♦*** 



iltf****t'********** 



.♦ RMSR *. NO 

.GENERATED^FOR.*. .> 



* * 

* POINT TO * 

* FIRST PUB2 * 

* ENTRY ♦ 

* * 



«**««G I********** 


* 


GET LENGTH 


* 


* 


OF TOTAL 


♦ 


♦ 


AREA AND 


♦ 


^ 


ADDRESS OF 


* 


♦ 


1ST PUB 


* 


4[:|ci(c4c^4<**4c4'4:i*^3«'«4c«i(> 


**** 






« 


* 






* 


HI *.X 






* 


* 






♦ *♦* X 




LDP2T05 .*. 






HI *. 






• * *. 






* END OF * 


. YES 


* 


PUB ^ 


FABLE 


,*. .. 



♦♦**C 2 ♦*♦♦♦**** 

♦ RETURN * 

♦ TO * 

♦ CALLER ♦ 



«*** 








* * 






* A3 * 






* * 






*♦** 






X 






• ♦. 






A3 *. 






.* ♦. 






.♦UNSUPPORTED*. YES 




*. DEVICE .♦ 






*. CODE .* 






♦ . .* 






*. .♦ 


X 




* NO 


♦♦♦* 

♦ ♦ 

♦ D4 ♦ 

♦ ♦ 
♦ *♦* 




BLDP2TI0 X 






itc^^^^B?********** 




4c«*4>4>B4*******««* 


♦ ♦ 




♦ ♦ 


* PO NT TO * 




♦ POINT TO NEXT ♦ 


* DEV CE CODE * 




X* DEV CODE ♦ 


♦ TABLE * 






* IN TABLE ♦ 


* * 






* ♦ 


)(i«!((*««4t4c««««4c4E««« 






4c«4t«4i4ti(c4t*««**^*^* 


**** * 








♦ * . 








♦ C3 *.X. 








♦ * . 








***♦ X 






X 


BLDP2T12 .*. 






.♦. 


C3 ♦. 






C4 ♦. 


.* ♦. 






.* END ♦. 


.♦ DEV *. NO 




.♦ OF ♦. NO 


♦ .TYPE MATCHES .♦ 






*. DEV CODE ...... 


♦ . CODE .* 




♦. TABLE .♦ 


♦ . .♦ 




♦ . .* 


♦ , ,♦ 




♦ . .♦ X 


♦ YES 




* YES ♦**♦ 
♦*♦♦ , ♦ 

♦ ♦ . ♦ C3 

♦ D4 *.X. * 

♦ ♦ , ♦♦♦* 
***♦ . 


BLDP2T2a X 




X 


4<4(*«*D3^**^*^^«*^ 




4c«*4c*D4^^^*^^*«^^ 


* ♦ 




♦ * 


♦ POINT TO ♦ 




♦ BUILD ♦ 


♦ PUB2 DEV ♦ 




♦ MINIMUM ♦ 


* INFORMATION ♦ 






* PUB2 ♦ 



^^^(♦♦♦♦♦♦♦♦♦♦♦♦♦* 

**♦* 

♦ ♦ 

♦ E3 ♦ 

♦ * 
*♦** 

BLOP2T25 

* ♦ 
♦ SET UP 

♦ INITIAL 

♦ ♦ 



.♦ IS 

♦. NAME FIELD 
♦. USED 



«4c«««G3^*^**«^*»^ 



**4c4>:tc*«««*«^#^«^« 



♦ POINT TO * 

♦ NEXT PUB2 * 

♦ ENTRY ♦ 

♦ * 
^^(^•(^'♦♦♦♦♦♦♦♦♦♦♦♦^ 



«**#«* *«4C%^*#9(c4t^^ 



.* END OF 
PUB2 
*. TABLE 



♦ ♦ 

♦ UPDATE ♦ 

♦ NEXT PUB ♦ 

♦ ENTRY ♦ 

♦ ♦ 

4cj(c4< «'«=#:(c4c4c :(c4c 4c4= ♦* 4< ♦ 



*4c«*«K !♦♦♦♦♦♦♦♦♦♦ 

* ♦ 

* COPY * 

* ADDR OF * 

* THIS PUB2 ♦ 

* * 

*^iit:iHiH*it' ********** 



♦ POINT TO * 

♦ MSG ♦ 

♦ 0I29I * 

♦ * 
*^,*************** 



**** 

♦ ♦ 

♦ HI ♦ 

♦ ♦ 
♦♦♦♦ 



***** 
♦CH ♦ 
♦ 01 + 
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Chart EL, $IPIRT4 - Test for Net Operational EASE Devices 
Refer to Chart 03, 



****A l********« 



^t***^'********** 



* SET UP PSW ♦ 

* TO SWAP ♦ 

* PSW'S * 

* ♦ 



♦ GET NUMBER OF * 

♦ PARTITION. ♦ 

♦ CALCULATE * 

♦ NUMBER * 

♦ OF LUBS * 



:IHti*^c:t'Dl********** 



*«««««««:«*:««« «4<4<4e 



* GET PUB TABLE ♦ 

* ADDRESS ♦ 

* SAVE PROGRAM * 

* CHECK ♦ 

* NEW PSW * 



* F2 * 

♦ ♦ 



*4c**4:F I********** 


itt^ni:tii^f2********** 


* * 


* * 


* SWAP * 


♦ UNASSIGN ♦ 


* PSW'S ♦ 


* LUBS ♦ 


* ♦ 


^ * 


* * 


* * 




])<:|c««3((3(e4«*4<«««4>««« 


♦*♦* * 




* * . 




♦ Gl *.X. 




* * , 




♦**♦ X 




DVCDNIO .*. 


DVCDN25 X 


Gl *. 


*««*«G2*«=C**«««*=C 



.* DASD *. NO 
*. DEVICE OR *♦... 
♦.DISKETTE .* 



* UPDATE * 
X* TC NEXT * 

* PUB * 

* * 



.* *. 

.♦ END OF *. NO 
*. PUBTABLE .*... 



* * 
X* Gl ♦ 

♦ ♦ 



* * 

* DEVICE * 

* DOWN * 

* THE PUB * 

* * 



***♦ 

* * 

* F2 * 

* ♦ 



DVCDN30 

♦SWAP BACK PSW'S* 
♦RESTORE PROGRAM* 

♦ CHECK NEW PSW * 

♦ ZERO PROGRAM * 

♦ CHECK OLD PSW * 
«*4t^«^ ♦*«««♦♦**♦<( 
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Chart EM. $IPLRTti - Check Label Cylinder Orgarizaticn 
Refer to chart 03, 



♦ A2 ♦ 

* « 



****A I********* 



4i4<«4t«*4c4c**4'«4>«* 



REORGLC 

* RELOCATE ♦ 

* CCW ADDRESSES * 

* ALLOW WRITE ♦ 

* ON SYSRES * 

* ♦ 



4c«*4c«C I********** 
♦RDWRDESC EN* 

♦ READ LAB.CYL * 

♦ DESCRIPT CYL * 

♦ TRLK 1 REC 4 ♦ 



Dl *. 

•♦ ♦• 

.* PART » ♦ 

*, IN SV MATCH 

*.PART# IN .♦ 

LAB.CYL.* 

♦ . .* 

♦ NO 



Hf (^pTTE fHAf^f^EP * 

* LAB.CYL. * 

* DESCRIPT. * 
4<«4i«**«******4(**« 



.* IS *. 

*. LABEL 

*. VALID .* 



.♦FIRST TIME *. NO 
*. SWITCH .*... 

*. ON .* 

*. .* 



VALIDLAB .*. 

C2 *. 
.* *. 
.♦FIRST TIME *. NO 
♦. SWITCH .*... 
*. ON . * 



**** 

♦ ♦ 

♦ G4 * 

♦ * 
*♦♦* 



♦♦C3******* 

* SET OFF * 

* FIRST TIME 
* SWITCH 

* DECREMENT 

♦ TRACK* ♦ 





PART# 


« 


. YES 




IN 


LjB.crt 


.♦ 


.*. .. 


X 



*4i#4(*E2********** 
*MSGRTN CH * 

♦_*_♦-♦-♦-♦-♦-♦-* 

♦ ST^NOARP » A&E' '?* 

♦ DESTROYED * 

♦ MSG 0I19I * 
**««****«**4c4t4i4i** 



♦. NOSHIFT 



♦ INITIALIZE * 

* RECORD * 

♦ COUNT * 

* * 
«*4>************** 



♦*♦* 

* * 

* B4 * 

* * 

***♦ 



**4>4e*A4********** 

* READ STARTS * 

* AT LOWEST FG * 

* PARTITION TO * 

* COMPRESS LAB * 

* * 



UP/LOW *. 

LIMIT 
REACHED .* 



♦-*_♦-*_*_♦_♦_*_* 



3|(«*«:*4<«*«4>4t4<4i***4' 



* UPDATE * 

* READ/WRITE * 

* TRACK# * 

* * 
)ti«4<*4<*4i******4c*4<« 



END 

OF 

TRACK 



.♦ AREA *. 

TO BE 

♦.EXPANDED .* 



.*. 

D5 *. 

.♦EHF TO *. 

.♦ALL ADDIT. ♦ 

PARTIT 

♦LAB TRACKS. ♦ 

*. .♦ 



* NO 



* F5 *Xr 



♦ »** , 

MOREPART X 

♦ READ STARTS ♦ 

♦ AT THE END ♦ 

♦ OF CYL TO ♦ 

♦ EXPAND THE ♦ 

♦ LABEL AREA ♦ 



♦♦Jl*****^* 



.♦ FIRST ♦. NO 
♦LABEL ON TRACK. ♦... 
♦. VALID .♦ 
*, .♦ 



♦ G4 *.X. 

♦ ♦ . 
♦*♦* 

X 
4c***4cG4^^^^ ♦♦♦♦♦♦ 
♦WRITELAB EN^ 
♦^*_ ♦_*-♦_*_*-♦-« 

♦ WRITE ♦ 

♦ VALID LABEL ♦ 

♦ BACK ♦ 



♦**♦ 

♦ ♦ 

♦ B4 ♦ 

♦ * 
*♦♦♦ 



♦ F5 ♦.X. 

♦ * 
**** 

.WRITEEOF X 

♦WRTTELAB EN* 
♦_*-*-♦-*-♦-«-*-* 

♦ WRITE * 

♦ EOF REC ♦ 

♦ ♦ 

« «:(( 3|c* ^c^c 4t4t«* *« *« ♦ « 



* ♦ 

* A5 ♦ 

* ♦ 



, ♦ 

♦ . .♦ 

* YES 

Ix... . 

X 

♦*** 

* * 

♦ J3 ♦ 

* * 



SET FIRST 

TIME SWITCH 

ON 

* * 



* * 

* J3 ♦.X. 

* * 
*♦*♦ 

♦♦♦*J3^^^^^^^*^ 

* * 

* RETURN ♦ 

* * 
««4<«««****!|t«4<4t4t 



*****K I********** 
♦READLAB EN* 

♦READ ONE LABEL * 



i|ci|c««4c««*«}^:4c«««^1:4: 
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Chart EN. $IPIRTa - Make a FUE Search for a DCC Device 
Refer to Chart 03. 



* * 

* READLAB * 

* * 



♦ * 

♦ HRITELAB ♦ 

♦ * 



*♦ ♦♦AS ♦*♦♦*♦♦*♦ 

♦ ♦ 

♦ RDWPOESC ♦ 

♦ * 
♦^(^(♦♦♦♦♦♦♦♦♦♦♦^ 



♦♦♦♦Cl^+^^++^^+ 

♦ ♦ 

♦ CHCKDOC * 

♦ ♦ 



♦ LOAD ADDRESS ♦ 

♦ ♦ 

♦ OF READCCB ♦ 

♦ * 
^(♦♦♦^^^'♦♦♦♦♦♦♦♦♦« 



:t,:t'***C3 ********** 

* INSERT * 

* TRACK AND * 

* RECORD NUMBER * 

* INTO SEEK * 

* ADDRESS * 
^(^^'♦♦♦♦♦♦♦♦♦♦♦♦♦« 



♦ LOAD ADDRESS ♦ 

♦ ♦ 

* OF WRITE CCB ♦ 

* * 



* INCREMENT REC- * 

* ORD COUNT UP- ♦ 
♦DATE LAB COUNT ♦ 
♦INSERT TRACK N0+ 
♦AND DATA COUNT ♦ 

^iii:ti^4'***iX******** 



♦ LOAD AODR ♦ 

♦ ♦ 

♦ OF WRITE CCB ♦ 

♦ ♦ 

♦ ^^c «* 4c« 3(|C* ** ** 4t4c ♦♦ 



.♦ IS ♦ 

.CRTTAB ( DOC) 
♦.GENERATED.^ 



♦ SEARCH * 

♦ PUB ♦ 

♦ FOR DOC DEV. ♦ 

♦ ♦ 
^^^((♦♦^^(♦♦♦♦♦♦♦♦♦^ 



♦ 125D 

DOC DEVICE 
♦. FOUND . 



^^^^'♦H !♦♦♦♦♦♦♦♦♦♦ 



^:t'************^** 



««^*4cD2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ SET RETURN ♦ 
X* FOR NO DOC ♦ 

♦ GENERATED ♦ 

♦ ♦ 
^'^•^^♦♦♦♦♦♦♦^♦♦♦♦♦^ 



:(<«4<«E 2 ♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ RETURN ♦ 

♦ ♦ 
^^(♦♦♦♦♦♦♦♦♦♦♦♦^ 



♦♦♦♦♦G2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ ASSIGN ♦ 

♦ SYSUSE ♦ 

♦ TO DOCPUB ♦ 

♦ ♦ 
♦♦♦♦*♦♦♦♦**♦♦♦*** 



♦ ♦ ♦ ♦ 

♦ ♦ EXECUTE * ♦ 

♦ ♦ * ♦ 

♦ ♦ CHAN PROG ♦ ♦ 

♦ ♦ ♦ ♦ 



♦ ♦ 

♦ RETURN * 

♦ ♦ 
^♦♦^^^(^'♦♦♦♦♦♦♦^ 



^(^♦♦♦H3 ♦♦♦♦♦♦♦♦♦♦ 

♦DOCRTN CB+ 

*_♦_*_♦ -*-* -*-♦ -♦ 

X+ ISSUE ♦ 

♦ ERASE/WRITE ♦ 

* FOR TEST ♦ 

:4c«iic4c^^^ ♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦K !♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ RETURN ♦ 

♦ ♦ 

4c ^'♦♦♦♦♦♦♦♦♦♦♦♦^ 



* LOAD ♦ 

* TRANSIENT ♦ 

* $$BOCRTA ♦ 

* ♦ 

:«c 4c Ic^'*^ ♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦K2 ♦♦♦♦♦*♦**♦ 

* ♦ 

* SET RETURN ♦ 
. * DOC IS ♦ 

* COMM.DEV ♦ 
« ♦ 
^^'♦♦♦^ ♦♦♦♦♦♦♦♦♦♦♦ 
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Chart EP. $IPIRT4 - Model 115/125 RMS SupFCrt 
Refer to Chart 03. 













♦♦♦♦ 






**** 














♦ ♦ 






* * 














♦ A3 * 






♦ A4 ♦ 














* * 






* * 














**** 






**** 














T125SCA .♦. 






T125RT X 














A3 ♦. 






4c***4iA^«i(c4<it<*4c4i*4<* 














,* * 






* * 




* * 










,* RMSR 


* 


. NO 


* POINT TO * 




* T125CH ♦ 










♦ . GENERATED 




.*.... 


* NEXT * 




* * 










*. 


* 




* PUBENTRY * 




^ti^^^f^if ********* 










♦ , .* 

♦ . .* 
* YES 

X 






I........ ..xl 




T125CH X 


T125N0R .♦. 




«4i*«4tB14<4<«4<«*4(*** 










*4c«*«B3«***«««**« 


B4 *. 




* * 










* 






.* *, 


♦♦*♦ 


* SET TO * 










* CALCULATE 






.♦ END *. YES 


* 


♦ SUPERVISOR ♦ 










* 






♦. OF .*.... 


X* C2 


♦ STATE ♦ 










* PUB2 ADDR 






*. PUBTAB .* 


* 


* * 




♦*♦♦ 










*. .* 


**** 


4c4c4ti|(««4i«4<***««4e** 




* 


* 




*itc«4i«4c*4c>l<**4»|c4<4>«* 


*. •♦ 




, 




♦ C2 


* 










♦ NO 








* 


* 




**** * 










* 




**** 




♦ ♦ 














, 






* C3 *.X. 




















♦ ♦ . 










X 




, 






*♦*♦ X 










.»« 


TI25EXT X 






T125B6 .*. 










CI *. 


ifilf**ifC2********** 


C3 *. 






C4 ♦. 




.♦ *. 


* 






♦ 


.♦ * 






.♦ *. 




.♦ RMS = YES *. YES 


* 


RESET 


TO 


* 


YES .♦ END 


'* 




.* TAPE ♦. YES 




♦. IN SUPVR ...... 


...X* 


PROBLEM 


STATE 


*X., 


*. OB 




.* 


♦. DEVICE ...... 




♦. MACRO .♦ 


♦ 






♦ 


*. PUBTAB 


.* 




*. ,* . 





]|t4t*4c«4e«*4>«*4<*4c«4<4c 



***Hc*Ql*m***^c:t,*** 

* * 

* STORE * 

* * 

* CPU ID * 

* ♦ 
**ifiif***lfitt* ******* 



,♦ ♦, **** 

.♦ MODEL *, YES * * 

•». 115/125 .*....X* A3 * 



.* CHAN *. 

OR 

*MCH SUPPORT* 



ilt*^i^*Ql********** 

* * 

* STORE HW * 

* CODE IN * 

* LOW CORE * 

* * 

********!tf:******ili:ti 



T125HW 

X 

**if*\M********* 

* * 

* HARD WAIT * 

* * 

******1fif****iti*:ti 



* NO **** 

♦ * 

♦ Gl ♦ 

♦ * 



:ill***Q2********* 

* * 

* RETURN * 

* * 

********ilHc*:1Ht,** 



T125N0C 

:tf*4,*^Qjm********* 

* SET PU82 FLAG * 



*4t««4:*«*<e«««***t«c 



* POINT TO * 

* NEXT PUB * 

* ENTRY * 

* * 

*^*Hi***:ti:tf**:ti***** 



* * 

* CALCULATE * 

* NEXT PUB2 * 

* TABLE ENTRY * 

* * 

^^**itc************* 

* **** 

. * * 

..X* C3 * 



.X* A4 * 
♦ ♦ 

***♦ 



E4 *. 

,♦ *, **** 

.* DEVICE *. YES * ♦ 

ADDR .*....X* A4 * 

*. LT X40 ,* * * 

♦, .* *♦** 



* NO 



* * 

.X* Gl * 
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Chart EQ. $IPLRTU - Set Line Mode 
Befer to Chart 03. 



• ISSUE * 
SET LINE MODE 
♦ I/O OPERAT. * 

mm****iif ********** 



♦***A2********* 

* * 

* MCDERTN * 

* * 

^:(lit!************ 



Bl *. 
.* 

UNRECOV. 



.* 115/125 ♦. NO 
♦PLUS LINE MODE.*... 
♦TABLE PRE-.^ 
♦.SENT .♦ 



**«*B3«*«****** 



«3(cKc4>:(c)(E4c4t«*4c«4c3(<i(c 



ili:*Cl:ti****** 

* SET FLAG ♦ 

♦ TO INDICATE ♦ 
* UNRECOVERABLE 

♦ I/O ERROR ♦ 

* ♦ 



**** 

* * 

* Dl ♦.X 



♦♦*♦ 
LMODOG X 

«4t«*«D !♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ POINT TO ♦ 

♦ ♦ 

♦ NEXT PUB ♦ 

♦ ♦ 



:tf****C 2 ********** 

* * 

* MOVE MODE ♦ 
♦TABLE COUNTERS ♦ 

♦ TO MODE TABLE ♦ 

♦ ♦ 
#«*«*« ^'^♦♦♦♦♦♦♦♦'tt 



*it:ili^:^£)2********** 

♦ * 

♦ SET UP ♦ 

♦ FOR ISSUING ♦ 

♦ SET LINE MODE ♦ 

♦ ♦ 
t**************** 



♦ RESTORE ♦ 

♦ SYSUSE ♦ 

♦ LUB ♦ 

♦ * 

:^:i)i4'************** 



.♦. 

F2 ♦. 

* *. 
DEVICE ♦, 

IS 2703 ,♦' 

♦ , .♦ 

*, .♦ 
♦ YES 



♦ Dl ♦ 

♦ ♦ 



.♦ S/S LINE ♦ 
♦. AND NEW LOW 
♦. LINE* .* 



BSC 
LINE 



♦ * 

♦ SET UP ♦ 

♦ TO TRANSFER ♦ 

♦ ONE MODE BYTE ♦ 

♦ * 



4c ^^♦♦♦JB^*^*:****^* 

♦ * 

♦ SET UP TO ♦ 
♦TRANSFER THREE ♦ 

♦ MODE BYTES ♦ 

♦ ♦ 

4t*:********:lfit:***** 
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Chart ER. $IPLRT«» - Check Burst and MICR Device en Mi3ltiplex Channel (Fart 1 cf 2) 
Refer to Chart 03. 



♦ ♦ 

♦ BMPXRTN * 

♦ ♦ 



♦ GET ADDRESS ♦ 

♦ OF * 

♦ CHANNEL TABLE * 

♦ * 



♦*D1******* 

♦ ♦ 
SET MICR 

SUPPORT 
SWITCH 

♦ * 



♦ ♦ 

♦ A3 * 

♦ * 



YES .♦ BYTE 
...*. MULTIPLEX 
». CHANNEL . 



BURST 

MODE 

SUPPORT 



♦♦** 

* ♦ 

* C3 *.X 



BMPXNBT X 

**C3******* 

♦ SET SWITCH * 
♦TO RESET BURST 

♦ MODE FLAG ♦ 
* 4e 



♦ LOAD ♦ 
♦CHANNEL NUMBER ♦ 

♦ PICK UP ♦ 

♦ FOCL ENTRY ♦ 
***************** 



♦ INITIALIZE ♦ 

* P.^CIZ'^E'^-Z FOR * 
♦CHANNEL NUMBER+^ 
♦CHANNEL ADDRESS^ 
***************** 







♦•** 


BMPXPT 


X 

.♦• 

A5 ♦. 

♦ 


NO 
.*.♦ 


.♦ 

'♦. 


BURST 

MODE 

SUPPORT 



NO .♦ BYTE 
X..^. MULTIPLEX 
♦, CHANNEL . 



*****C^********** 

* * 
♦COPY BURST MODE^ 

♦ SWITCH INTO ♦ 

♦ CHANNEL TABLE ♦ 

* * 
***************** 



♦ BURST ♦ 

SUPPORT FOR 
♦. CHANNEL .♦ 



♦♦♦♦♦ 
♦EJ ♦ 
♦ B2* 

* * 



**** 

♦ EJ ♦ 

♦ F5 ♦.X 



**** 



**** 
8MPXZER 

**fl******* 

* * 
♦ZERO SWITCHES^ 

♦ 'MICR FOUND* ♦ 
♦•BURST FOUND«+ 

♦ ♦ 
*********** 



♦ Gl ♦.X 



*♦*♦ 
BMPXNXT X 

**Ql******* 

♦SET SWITCH ♦ 

♦ FOR BURST ♦ 
♦ CHECK. RESET 

♦ SWITCH FOR ♦ 
♦MPX CHANNEL^ 

*********** 



*****^ I*** ******* 

♦ * 

♦ INCREMENT ♦ 

♦ CHANNEL ♦ 

♦ NUMBER * 

♦ * 
***************** 



Jl ♦. 

.♦ ♦. 

.♦ LAST ♦ 

CHANNEL 
♦. CHECKED .♦ 



*****fj,********** 

♦ * 

♦ GET FIRST PUB ♦ 

♦ IN CHANNEL ♦ 

♦ DISPLACEMENT * 

♦ * 
***************** 



**f^******* 

* * 

♦ SET MPX ♦ 
♦CHANNEL SWITCH ♦ 

♦ ON ♦ 

* ♦ 
*********** 



REFERENCES 
TO ERG3: 
ESF5, ESG2 



X,.+ G3 ♦ 



**** 
BMPXLP X 

*****Q-^********** 

* * 

* INCREMENT ♦ 

* PUB ♦ 

* ADDRESS ♦ 

* * 
***************** 



.♦ ♦. 
» PUB ON ♦. YES 
CHANNEL ...... 



♦ . 



****\(^l********* 

♦ ♦ 

♦ RETURN ♦ 

♦ ♦ 
*************** 



**** 

* * 

* A3 ♦ 

* * 
**** 



BMPXSWl ,♦. 




J3 ♦. 




.♦ ♦ . 




.♦ BURST ♦. 




♦.CHECK SWITCH .♦.. 




♦. ON .* 


X 


♦ . .♦ 


***** 


♦ . .♦ 


♦ ES ♦ 


♦ NO 


♦ 82^ 



**\i-i******* 

* * 
RESET 

BURST MODE 
FLAG 

* ♦ 
*********** 
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Chart ES. $IPIRT'» - Check Eurst and MICR Device en Multiplex Channel (Part 2 cf 2) 
Refer to Chart 03. 



♦♦*♦* 

♦ER ♦ 
♦ J3* 



.* DEVICE ♦ 
. UNSUPPORTED 
*. OR 327? .* 



3277 

.* 
*. .* 
* YES 



♦ .NO .* *. NO 

.* X*. UNSUPPOPTED .*... 

,* *. DEVICE .* 



.♦ TAPE ♦. 
. CARTRIDGE .* 
*. READER .* 



4c«4c« itcD3 4t4< )K*«*4t4c«::(c 

♦GET ADDRESS OF * 
♦MESSAGE 0I33A: ♦ 
K* X'CUU'BURST ♦. 
♦MODE DEVICE ON * 
♦BYTE MPX CHANNL+ 



***** 
*CH * 
* 01^ 



BMPXMCR .♦. 








E2 ♦. 


**E3«****** 




.♦ ♦. 


* 


* 




.♦ MICR ♦. NO 


♦ SET 


SWITCH ♦ 




*. SUPPORT .* 


.. .X* 


FOR * 




♦ . .♦ 


♦ BURST MODE ♦ 




*, ,* 


* 


* 




*, « ♦ 


********«*# 


X 


* YES 






***** 

♦ EJ ♦ 

♦ B2* 

♦ MPXRTN 

* 


X 
**P2******* 








* * 








♦ SET SWITCH ♦ 








♦ 'BURST FOUND' ♦ 








♦SAVE CHANNEL/^ 








♦ UNIT ♦ 








****«****«« 









♦*♦** 

*ER ♦ 

♦ G3+ 

* ♦ 



MICR 

DEVICE 

FOUND 



MSGMICR 

**«**H2 *♦♦***♦♦** 
♦GET ADDRESS OF ♦ 
♦MESSAGE 0I34D: ♦ 

♦ X'CUt* BURST ♦ 
♦MODE AND X*CUU'+ 

♦ MICR CONFLICT ♦ 
***************** 



**P5#**#*«* 

* ♦ 
♦ SET SWITCH ♦ 

* 'MTCR FOUND' * 
♦SAVE CHANNEL/^ 

* UNIT ♦ 

4i:)c*****«<<*i(c 





X 


NO 

. .♦ 


* 
*. 


BURST 
DEVICE 


X 
***** 
*ER ♦ 
♦ G3^ 






FOUND 
♦ . 

♦ . .* 
♦ Y 



***** 
♦CH ♦ 
♦ Dl^ 



82 DOS/VS IPL and Job Control 



Chart ET. $IPLRT4 - Channel Switching Routine 
Refer to Chart 03. 



♦ « 

♦ CHSWRTN * 

♦ * 



* ♦ 

* A3 » 



♦ INCREMENT ♦ 

* PUB * 

* ADDRESS * 

♦ * 



CHSWRTN .♦. 
Bl 
.♦ 



♦ . 
CHANNEL *. 
SWITCHING . 
SUPPORTED.* 
♦ . .* 
♦ . .» 
* NO 



♦ * 

* INITIALIZE ♦ 
.X* CHANNEL * 

♦ NUMBER * 

* * 



♦*♦* 

* * 

* C3 *.X. 



«##«01*4<******* 

♦ ♦ 

♦ RETURN ♦ 

♦ * 



* * 

* INCREMENT ♦ 

* CHANNEL ♦ 

* NUMBER * 

* * 



.♦ *. 

YES .♦ LAST *. 
...... CHANNEL 

♦.PROCESSED.* 



**D3 ******* 
« * 

RESET FLAG 
FOR 

SWITCHABLE 
* * 



MPX 

SWITCH 
*. OFF , 



• C2 * 

• * 
**** 



* * 
RESET 

MULTIPLEX 
CHANNEL 

* SWITCH * 

«!|c«:«4'**«*«« 



E2 *. 

.* *. 

* BYTE *. 

CHANNEL .* 



*. 



*. 



* * 
SET 

MULTIPLEX 
CHANNEL 

* SWITCH * 

4c«4<****««*:4t 



E3 *. 
.* IS * 
.* COMM.DEV 



*MSGRTN CH* 

♦_♦_*_♦_♦_♦ _♦_* _* 

* ISSUE MESSAGE * 

* 0I35I * 

* *F4* 
4c#4<4c ♦♦^t^'*** «««« *<( 



«*«4:«G2********** 

* GET CHANNEL * 

* NUMBER * 

* FOCL ENTRY * 

* * 



s(c#«4c«4(it(** *«#*«* ** 



♦F4 MESSAGE 0I35I! 
SWITCHABLE DEVICE REDEFINED 
NON-SWITCHABLE 



**** 

* * 

* C2 * 

* * 
**** 



* * 

* SAVE FOCL. * 

* GET FIRST PUB * 

* IN CHANNEL * 

* * 



* * 

* INCREMENT * 

* PUB NUMBER * 

* IN FOCL * 

* * 

3(t*««««#4c4c***#9(C««4: 



.* 
. .* 

* YES 



* SET * 

* CHANNEL EMPTY * 

* IN FOCL * 

* * 



9tC#«l(C«H5 ***«****»* 



««4e««««#«4eitc«««4i*« 



«iOc4t4t«K4********** 



««i|t4c4c*«4c«:(c«4e9tt3|c4c4t!»c 
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Chart FA. 



$IPLRT5 - CAT and DPD Processor 
Refer to Chart 04. 



NO .♦ PUB *. 
, ..*FOR CONSOLE WR.* 
*. FOUND .* 



* * 

* ASSIGN * 

* SYSUSE * 

* TO PUB * 

* * 



FOR EACH OPERAND 
EXIST ONE SUBROUT 
FORMR - TYPE 
UNITR - UNIT 
ZYLR - CYL 
VOLIDR - VOL ID 
SEE CHART FE 



* $IPLRT5 * 

* * 



♦*** 


*♦♦* 


*CD * 


* * 


* E4 *.X. 


* 83 *... 


* ♦ 


* * . 


***« X 


♦*** 




SVIFO X 


82' **. 


«#:tc*«g3 ««4(i«e#4i4i4c« 


.* *. 


♦ 


.* CAT *. YES 


* SAVE INITIAL 


*. COMMAND .*.... 


♦ SV INFORM 


♦ . .* . 


* OF DPD MACRO 



* * 

* GIVE MESSAGE * 

* 0I41A FOR ♦ 
♦INVALID DEVICE ♦ 

* TYPE * 

* 3((4c4c 4i >(< * * « ^c * * 4c 4t * * * 



♦CH * 
* 01* 



«««:(<4c3!(itc«4c*«4>*4i«*4: 



*♦*♦ 

* * 

* C4 *.. 



«*4<4c4tC4********** 





.* 


CAT 


* 


. NO 


* 


GIVE MESSAGE 




*, 


COMMAND 




.*.... 


* 


0I40A FOR 




* 


**. .* 


* 




* 


DEVICE NOT 
DEFINED 






* . .♦ 




X 








* YES 




**** 














* ♦ 

* G3 * 

* * 




X 










♦ ♦** 




♦ ♦*♦• 






X 








*CH * 






.* . 








* DI* 






03 *. 








* * 






* * 








* 




.* 


UNIT PARM 


* 


. NO 




ABNCHK 




*. 


AVAILABLE 




*;,,,,,.,, 






; 


♦ 


*, ,♦ 


* 


X 
**♦ 


(t* 




X 




♦ , .♦ 




*CH 


* 




**♦♦ 




* YES 




♦ ^Cl* 




* 














G2 * 








* 






♦ 








ILLCD 




**** 




I 











♦****E2 ********** 

* * 

* MAKE * 

* SYSUSE EQUAL * 

* SYSLOG * 

* * 

«*:((«« «***!«<«*«***« 



*SAVE UNIT OPRND* 
*1N PACKED FORM * 

* ocuu * 

* * 

«>tc««4<:(e«!tc4e***««:4'«4' 

*, ,X* E5 * 

* * 



* * 

* SAVE VOLTD * 

* AND INDICATE * 

* VOLTD CHECK * 

* * 

**** 



*♦** 
UPLIOK X 

* * 

* SAVE DAY OF * 

* VE/\R FOR * 

* CREATION DATE * 

* * 

« 3(e « « 4; :(t i«c « « * « :«c 4: « « 4t « 



LOGUSE X 
















X 


♦♦♦♦♦F2********** 














«>(:])( «4eP 5 4t:«(#)«c«4c«««* 


* SET CCW * 














♦CHECKCU FF* 


* TO READ * 














*_*_*_♦_♦_♦_♦_»_:<( 


* FROM * 














* CHECK AND * 


* LOG.DEV. ♦ 














* ASSIGN ROUT * 


♦ * 














* * 


«>|c:«c«4c «:(! 4< :«:**«« «««* 














*«********«:«<*4c*** 


**** l 






**** 










* * . 






* * 










* G2 ♦.X. 






* G3 *... 










* * 






* * . 










**♦« 






**** X 








X 


NOLOGAV X 




DPDCODE .*. 






.* . 


. *. 


#:)c«««G2********** 






G3 *. 






G4 *. 


G-J *. 


* RELOCATE * 






.* * . 






,* *, 


.* *. 


* CCB.CCW ADDRS * 
*DUE TO LOADPNT * 






.* WAS *. NO 




.* WAS *. YES 


.* INVALID *. YES 






*. UNIT OPRND .* 






. .X*. CYL OPRND .*.... 


*. DEVTCF TYPE .*.... 


*0F PHASE IPLRT5* 






*. IN .* 






*.IN COMND .* 




*. .* 


♦ * 






*COMMND.* 






*. .* 




*. , * , 


4c:|c*;(c«4':(i««««4'***** 






*. .* 
* YES 






*. .* 
* NO 




*. .* X 
* NO **♦* 


**** * 
















* * 


♦ * . 
















* A4* 


* H2 *.X. 
















* * 


* * . 
















**** 


**** X 






X 






X 






TECARD .*. 






.* . 






JNZYSV .*. 






H2 *. 






H3 *. 






H4 *. 




H5* **. 


.* *. 






.* *. 






.* *. 




. * *. 


,* NO MORE *. YES 




.* WAS *. NO 




.* NO *. YES 




.* NO PUB *. YES 


*. OPERANDS .*. 






*. CYL OPRND .* 






*. SV INFORM. .*..X 




*. FOUND FOR .*.... 


*. .* 






*. IN CMND .* 






*.FOR UNIT .* 




*. SYSVIS .* 


*, ,* 






*. .* 






*. CYL .* 




*. .* 


*. .* 


X 




*, ,* 




X 


*. .* X 


*. .* X 


* NO 


***♦ 


* YES 


***** 


# NO ***** 


« NO **** 




* 


* 




*CH * 


*CH * 


* * 




* B3 


* 




* 


CI* 


* CI* 


* C4* 




* 


« 




* * 


* * 


X * * 




*♦** 






* 


• * 


***** **** 










ILLCD 


ILLCD 


*FB * 


X 




UNZYCO X 






X 


* B?* 


♦**«*J2*#******** 






4c:tc«««J3«4c:(e«:4c«:tc4c«:(c 






;^ 4c<c4c4:j44ciK!|t4'****** 


* * 


* FIND NEXT * 






* * 






* * 


* 


* OPERAND AND * 






* GET UNIT CUU * 






* GET UNIT CUU * 




* BRANCH TO * 






* AND START CYL * 






* AND STAPT CYL * 




* CORRESPONDING * 






* FROM DPD CMND * 






* FROM SV IFORM * 




♦ OPER. ROUTINE * 






* * 






* * 




« ««:tc4: 4c :(i4c« «4:* * * *** 






Xc«««4c4<:(c«4t4'**«««*:9c 






^««:((«4c*********** 







*****\(^ I********** 
*OPRTN CC* 

*-*-*-*-*-*-♦-*-* 
.* *X 

* SYNTAX CHECK * 

* OF OPERAND * 
***************** 



OPERAND 

NOT IN 

TABLE 



***** 
*CH * 
♦ CI* 
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Chart FB. $IPLRT5 - DFD Prccesscr Open 
Refer to Chart 04. 



***** 

♦FA * 

♦ H5* 

♦ ♦ 



♦ ♦** 

♦ * 

♦ 84 ♦ 

♦ * 

♦ *♦♦ 



CAT ♦. YES 
COMMAND ...... 



.X* 



♦ READ ♦ 
VOL 1 LABEL 
* FOR SYSVIS ♦ 

***************** 



*****B3 ********** 

* RESET ♦ 
CAT SWITCH * 
GO TO READ * 

* NEXT COMMAND * 

* ♦ 
***************** 



***** 

*CC * 

* Bl* 

* * 



* SEARCH * 

* VTDC FOR * 

* PDS LABEL * 

* * 
***************** 



NO RECORD *. YES 
FOUND OP .*.... 
. CYL ENO .* 



* GIVE MESSAGE * 
*0I44A VOL 1 NOT*X. 
» FOUND * 

♦ * 
***************** 



***** 
*CH * 
♦ DIO 



.* COMMON * 
. EXTENT WITH 
♦OLD EXTENT.* 



.* VOL ID 
*. MATCHING 

*. 



YES .♦ VOLID * 

.♦..*CHECK INDICAT. 

*. IN .♦ 

*. DPD .* 



SAVE VQLIO 



***53 *********«:** 
* DELETE * 
* PDS LABEL * 
***************** 



♦ D5 * 

* * 
**** 



*****54********** 

* * 

* INDICATE * 

* PAPTIAL * 

* FORMATTING * 

* ♦ 
***************** 



X 


**** 


.*. 


NEXTLBL 


F4 *. 




* NEW *. 


* 


EXTENT IN *. 


* SET 


LIMITS OF ,* 


♦ 


OLD .* 


♦FOP NE 



*****G x****"*!***** 

* * 

* GIVE MESSAGE ♦ 

* 0I46A WRONG ♦ 

* VOLID ♦ 

* * 
***************** 



***** 
*CH * 
♦ D1 + 



***************** 



***G2 *♦*♦***♦*♦*♦ 
* READ ♦ 
* F4 LABEL ♦ 
***************** 



***** 
*FC ♦ 
* E4+ 



*****j I********** 

* * 

* GIVE MESSAGE ♦ 

* 0I45A F4 NOT ♦ 

* FOUND ♦ 

* * 
***************** 



J2 *. 
.* *. *♦** 

PDS *. NO * ♦ 

OVERLAPS ......X* B4 * 

. VTOC .♦ * ♦ 

♦, .* **** 

*. .♦ 
♦ YES 



*****K2********** 

* * 

* MESSAGE 0I38A * 

* OVERLAP * 

* ONVTOC ♦ 

* * 
***************** 



*****H4********** 

* * 

* MESSAGE 0I49A * 

* NO RECORD *X 

* FOUND ♦ 

* * 
***************** 



***** 
♦CM * 
* 01^ 



* INDICATE ♦ 

* FHPMATTTNG * 

* MU^T RE DONE ♦ 

* ♦ 
***************** 

***** * REFERENCES 

* * *.xl TO FBE5: 

* * . FCD3, FCGl 
**** 

MOVEPrwi X 

*****Ft^ ********** 

* * 
♦TNTT CCW CHAIN * 

* * 
♦FOR LAREL READ * 

* * 
***************** 



******** 
* 
ODR * 

* 
LABEL * 
* 
***************** 



***G5 *♦♦*♦♦ ♦♦♦*♦♦ 

* READ * 

VTOC 
* LABEL * 

***************** 



***** 
♦CH ♦ 
* Dl* 



**** 


* Y 


* * 




* F5 * 




* * 


X 


**** 


***** 




*FC * 




♦ B2* 




* * 



***** 

*FC ♦ 

♦ C4* 

* * 
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Chart FC. $IPLRT5 - Check CFD Cverlap 
Refer to Chart 04. 



*FB ♦ 
* K4* 



* * 

* SET POINTER * 

* TO FIRST ♦ 

* EXTENT * 

* * 

♦♦♦♦ * 

* * . 

* C2 ♦.X. 

* ♦ , 
**** X 

.♦. 
C2 ♦. 



INVRESPM 

4c 4c * 4t 4i A 4** ■t' 't' * * ')"(' * >«< 

*MSGRTN CH * 

*_♦_*_♦_♦_*-*-*-♦ 

..X* INVALID * 

* RESPONSE MSG * 

* 0I39A ♦ 

* **♦* 

* * 

. .X* K2 ♦ 

* * 



.* ANSWER *. NO 


^ 


*. DELETE .*.... 


. I 


*. .* 




*. .* 


***** 


*. ,* 


*FB * 


♦ YES 


* K5* 


♦♦** 


* * 


* * , 


* 


* C3 *.X. 




* * 




*♦** 




DELETION X 


SEARCH X 


««*C34<**4<'«**4<***4c 


««*C4*«*4'**««'»<««* 


* DELETE * 


* SEARCH * 




VTOC FOR 


* LABEL * 


* FREE SPACE * 


«««««:««4'*«4<*4t*4c4:* 


*****i****itt******* 



MORE 
LABEL IN 
. CHAIN 



♦♦»* 

* * 

* Gl ♦ 

* * 
♦♦*♦ 



*♦♦♦♦ 
*FB * 
* E5* 



READ BACK 

FIRST LABEL 

OF CHAIN 



***************** 


***************** 


', **** 


• 


. ♦ ♦ 




..X* C2 ♦ 




* * 




**** 


X 




EXPIRED .♦. 




F2 *. 




.* *. 




.* DATE *. YES 




*. EXPIRED .*.... 




*. .* . 




*. .♦ 




♦. .* X 




* NO ♦♦♦* 


**** 


* * 


* 


* C3 * 


01 *... 


, * * 


* . 


, **** 


♦♦*♦ X 




.*. 


X 


Gl ♦. 


4c 4i«4c«62 ♦♦♦♦♦♦♦♦♦* 


,♦ *, 


♦ * 


.♦ FURTHER *. 


♦ INSERT UNIT ♦ 


LABEL .* 


♦ VOLID INTO ♦ 


♦ .IN CHAIN .♦ 


* MESSAGE 0I37A * 



:ti**E^************ 

♦ READ * 

♦ LABEL * 

4c4i4c4<*4t4<*4(««4t4<«4c4< 4< 

X 

4<*4!* 

4: * 

* C3 * 

* * 
**** 



**** 
PDSWRITE 

***:it*£^^t*:i^ift***** 

* * 

* UPDATE * 

* * 

* PDS LABEL * 

* 4- 
4c4!4<4e4<4'4c4<4<4<«4<4'4(4c4c« 



4c4<4<:F4**^*4<***«<<*^ 
* WRITE * 

* LABEL * 

4c 4: 4c « 4c 4c 4c * 4( 4< 4< 4i 4'4< 4c « 4t 



4( 4c4c 4< 4c n IS ♦♦ 4c4c ♦« «♦ * >(c 

* * 

* MESSAGE 0I51A * 
X* NO SPACE * 

* FOUND * 
4c 4c 
4t 4c 4c 4c 4: 4^ 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



4c 4c 4c 4c 4c 
*CH * 
* 01* 



4c4c4c4c4c 

♦ FB ♦ 

* E5* 



4<4c4c4c4<4c*4<4c4'4c4c4c4c4c4c4c 



4c4c4cHl************ 
* READ ♦ 

* LABEL * 

4c 4c 4c4c 4: 4c 4c 4c 4c 4c 4c 4c 4c4c 4c 4c 4c 



4c4c4c4c4c 
*CH * 
* 02* 







Jl *. 




4c 4c 4c 4c 4c J2********** 






.* * 




♦MSGRTN CH* 


NO 


4c 




*. 


4c_4c-4c- 4C-4C-4C-4C-4C-4C 


. . .* 




F3 LABEL 


,4c 


♦ OVERLAP ON ♦ 


I 


'4c 


*4c. ,4c 


4c 


♦UNEXPIRED FILE ♦ 
4c 4c 


X 




*. .♦ 




4: 4< 4c 4c 4c 4< 4< 4< 4c 4< 4> 4< 4c 4c 4c 4< 4c 


4C4C4C4C 




* YES 






4c 4c 








♦ 4c4c4c * 


* Gl ♦ 








♦ 4c , 


♦ * 




X 




♦ K2 ♦.X. 


4c«c4c4c 




4c 4c 4c 4c 
4c 4c 
* B2 * 
4c 4c 

4c 4c 4c 4c 




♦ ♦ . 
4C4C4C* 

GETRSP X 

4c 4c 4cK2 ♦♦♦♦♦♦♦♦♦♦♦♦ 

♦ READ ♦ 
OPERATOR 

♦ RESPONSE ♦ 



.♦FORMATTING *. 
!«. WANTED 
♦. IN DPO .♦ 



4c 4c 4c 4c 4c 
*FD * 
♦ E3* 



4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c4c 4c 4c 4c 



* A3 * 

4c 4c 

4c 4c 4c 4c 
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Chart FD. $IPIRT5 - DFD Processing Formatting 
Refer to Chart Qi\. 



♦♦♦♦♦ 

♦FC * 
* H4* 



♦ * 

♦ PFORMAT * 

♦ * 



.* PARTIAL 
. FORMATTING 
*. 



itiitint If itiC 2 ********** 

* ♦ 

* SET NEW * 

* EXTENT LIMITS * 

* FOR START * 

* ♦ 



:l>i:i)(*1t:*£f2********** 

♦PFORMAT FD* 
♦-♦-*_*-♦-♦_«-*-* 

* * 

* FORMATTING * 

* * 



♦♦♦♦♦C3 ♦*♦****♦♦* 

* » 

* SET LOWER * 

* AND UPPER * 

* LIMIT * 

* * 

itt^^if^cii:*:f ********** 



*^fi(:i»,ilfQ-^*if ******** 

♦PFORMAT FD* 
♦_♦_♦_*_*_♦_♦_♦_* 

* ^ 

* FORMATTING * 

* * 
itt**************** 



B4 ♦. 
.♦ ♦. 

3330/3333 



* * 

* INIT FOR ♦ 

* THREE RECORDS * 

* PER TRACK ♦ 

* * 

* * 

* 04 *.X. 

* * 
♦**♦ 

X 

***[)l^7llt******ilt**4t* 

* WRITE * 

* RECORDS ♦ 



♦♦♦♦♦C5 ********** 

♦ * 

♦ INIT FOR ♦ 

♦ SIX RECORDS ♦ 

♦ PER TRACK * 

♦ ♦ 



*](c«*«E5 ♦♦♦♦♦♦♦♦♦♦ 



♦ PARTIAL 

FORMATTING 
♦, AT END . 



*****f2********** 

* * 

* SET NEW ♦ 

* EXTENT LIMITS * 

* FOR END * 

* * 
**imif*itt*********** 



*****Q2********** 

♦PFORMAT FD* 

♦_♦_*_ ♦_*_«_*-*_* 

♦ * 

♦ FORMATTING ♦ 

♦ ♦ 

******^L****1^*))l*J^* 



* MSGRTN CH * 

* IPL COMPLETE * 

* MSG 01201 * 

* * 



milc*ii*i^m********** 

* ♦♦** 

* ♦ 
..X* D4 * 

* * 
♦ *♦* 

* * 
♦UPDATE CYLINDERS 

.X^ NUMBER ♦ 

♦RESET TRACKCNT * 

♦ * 

I *♦*♦ 

. ♦ * 

..X* D4 * 

* ♦ 
*♦♦♦ 



sv 

WITH DOC 
. SUPPORT 



*****ii-i********** 

* RESET * 

* INDICATOR * 

* FOR DOC * 
♦IPL IN PROCESS * 

* ♦ 
**iit*itiit^,)ii)i^f***lf**ii/i 



««]t!4(Q44c««4c*4c4c«« 



«4c*4c4ciK«4c4i«*««:«c* 



♦ ♦ 

♦ ALLOW * 

♦ ATTENTION ♦ 

♦ INTERRUPT * 

♦ * 

***3t,*ilt**i(f****ti*** 



♦ * 

♦ RESET * 

♦ *, 
♦IPL IN PROCESS ♦ 

♦ * 



****K4*^+*^+^^^ 

* SVC 14 ♦ 

* EOJ GO TO ♦ 

* JOB CONTROL * 

****1fi)i*lttitt****iH* 
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Chart FE. $IPLRT5 - DFD Prccessirg cf Operands 
Refer to Chart Oa. 



****Ai******'*'** 



4i«4t4c«4<4c4c#*:|t4i4c*4t 



FORMR 
NO 



OPERAND ♦. 
♦.ALREADY FOUND.* 
OR .* 

♦.ERROR.* 



**♦*♦ 

♦CH ♦ 

* CI* 

* * 



«*** A3 ********* 

* * 

* UNITR * 

* * 
4<4(4t4c)ti«9(i*#4i4(*** * 



.♦ OPERAND 

ALREADY 

*. HANDLED 



♦♦**A5********* 

♦ ♦ 

* ZYLR ♦ 

*4t4>«!t(****4<**4i4<4< 



.* CAT *. YES 

♦ . CO^INO .*.. 



CI *. 

* 

TYPE=F 



«*««*() 1********** 

* INDICATE ♦ 

* FORMATTING * 

* WANTED * 



#«««#*#4t4e*««***4c* 





*. 


NO 




,♦ 


HEX 


TYPE N 


** 


*. • • . 


* 


'* 


REPRESENT 


.* 










*. .♦ 


♦. .* 




X 






♦ . .♦ 


* YES 




***♦♦ 

*CH * 

* CI* 

* * 






* YES 



**♦*♦ 

♦CH * 
* Cl^ 



OPRND 

EQ 
CYL# 



OPRND 

ALREADY 

AVAIL 



* ♦ 

* INDICATE * 

* OPERAND * 

* AVAILABLE * 

* * 



* ♦ 

* RETURN ♦ 

* * 
«4i««**4t««****«« 



*ia(4(*F2 *♦♦*****♦ 

* * 

* VCLIOR * 

* * 
iilf*'* *********** 



VOLIDR 


.* 








G2 


♦ 






♦ 




NO 


.* 


OP 




...* 




EQ 






*. 


VOL] 


D 



OP 

ALREADY 

AVAIL 



OPERAND ♦. 
CORRECT 
LENGTH .♦ 



X 
***** 
*CH * 
♦ C1+ 



* * 

* SAVE OPERND * 

* INDICATE * 

* OP. AVAIL. * 

* * 

:ti:f *************** 



«««4(G3********* 

* * 

* RETURN * 

* * 

*4:*^**«***4c**«* 



* ♦ 

* SAVE OPRND * 

* TNDTCATE * 

* OP. AVAIL ♦ 

* * 



*4c:4c*F5 ♦**♦***** 

* * 

* RETURN * 

* * 

*•#:************* 



***** 

*CH * 
* CI* 



](t«:(t««K2 ********** 

* TRANSLATE * 

* BACK TO BCD * 

* CODE INDICATE *. 



*«««K3** ******* 

* * 
.X* RETURN * 

* * 

imitt*nftrtL******** 
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Chart FF, $IPLBT5 - DFD Unit Check and Assign 
Refer to Chart 04. 



* * 

* ERR RETURN * 

* * 



♦***A2********* 




* m 




* CHECKCU * 




* * 




4i:(c««4<4''ti4i*4>4'«4i«« 


♦*♦♦ 




♦ ♦ 




» B3 ♦ 




♦ ♦ 




♦*** 


CHECKCU .*. 


LLNOUPDT X 


B2 *. 


4i««««Q3«#it[«#4c4c4:«=» 


.* *. 


* CONVERT * 


NO .* CHAN ♦, 


♦ CYLINDER * 


.......... SUPPORTED .* 


* ADDRESS INTO * 


*. .* 


♦RELATIVE TRACK * 


♦ . .* 


* ADDRESS * 


*. .* 


**«*««4c««4<:***4(«*4: 



itiJtiilt^tifQ_2********** 



* OF CHANNEL * 

♦ * 



♦ * 

♦ GET DEVICE * 

♦ CHARACTERIST. * 

♦ BY DEV TYPE ♦ 



♦ * 

♦ ERR RETURN * 

♦ * 



NO .* IS 
.,.*. DEVICE 
*. VALID 



* * 

* ERR RETURN * 

* * 



««4t«4tC44'*'('*'*"l'^'l'*>(< 



.* cylinder * 
number greater 

**"no 


YES 


* MESSAGE 0142A * 
«.X* 'ILLEGAL * 

* CYLINDER * 

* NUMBER' * 


X 




X 
***** 
*CH * 
* Dl* 



♦♦***C5 ♦**♦*♦♦*** 

* ♦ 

* BUILD FIRST ♦ 

* JIB FOR 3330/ * 

* 3340 LIKE * 

* * 
***************ii,* 



.* UPLIM *. 

GT 

*DEV. LIMITS.* 

♦, .* 
*. .* 
* NO 



*****E3 ********** 

* S AV E * 

* REL TRACK OF * 

* LOLIM AND * 
*UPLIM IN DPDTAB* 

***************** 



i^****^et********** 

* * 

* MESSAGE 0I43A * 

* POS EXTENTS * 

* TOO SMALL * 

***************** 



***** 
*CH * 

* Dl* 



* GET RELATIVE * 

* LUB ADDRESS * 

* OF SYSVIS * 

* * 
***********^^:itt*** 



««!4>*«H2********** 

* ♦ 

* HOLD * 

* DEV. TYPE * 
*OEV. DESCRIPTION* 

* * 

*:iii*************** 



««!:t5**H3********** 

* * 

* GET REL LUB * 

* AODR OF * 

* SYSCAT * 

* * 
***************** 



♦♦♦*#D5 ********** 

* ♦ 

* BUILD SECOND * 

* JIB FOR 3330/ * 

* 3340 OR FIRST * 

* FOR 2314 * 
***************** 



*****iE:5 ********** 

* UPDATE * 

* FAVPTR IN SV * 

* INDICATE END * 

* OF JIB CHAIN * 

***************** 



* FS *«X, 



**** 
ASGEND X 

*****f^ ********** 

* STORE * 

* OWNER BITS * 

* OF UNIT PUB * 
*FOR ALL PARTIT,* 

* * 
***************** 



.* *. 

.* CAT *. YES 

COMND .*^,.« 



«#«««K2 ********** 

* * 

* UPDATE * 

* PARAMETER * 

* FOR LOAD * 

* LEVELLER * 
***************** 



ASSGN X 

*****j-^********** 

* SET POINTER * 

* IN LUB * 

* TO PUB * 

* OF UNIT * 

* * 
***************** 



*. NO X 
MPS .*,... 

.* 9 



*****J^********** 

* COPY LUBS * 

* FOR SYSCAT * 

* AND SYSVIS ♦ 
*INTO FG s>ARTIT«* 

* * 
***************** 



DASD *. YES * * 

ON .*,... X* A5 * 



* * 

«,X* F5 * 



****^^ ********* 

* ♦ 

* RETURN * 

***********-^*** 
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Chart FG. $$BCARTR - 33^0 Cartridge Reccgniticn Fcutine 



* ♦ 

* $*BCARTR * 

* * 



IJBCARTR 
RELOC A 



*^,t************** 



««4c«*C !*=('<< ^*=*= =('*'(<* 



4:«](c)«c4:«4:#4:««4:>(c«:(<*4: 



* * 

* GET PUB * 

* STARTADDR * 

* SET FOP * 

* PUB SCAN * 

* * « ;»c :«c * 4c <( 4: :«c 4: :«< « :«c :(c Jtc « 



^iii-iL^:ti£l^:t:t ******* 



3340 

PUB 
ENTRY 



* < 

* C2 *.X, 

* j( 
♦*** 



* POINT TO * 

* NEXT PUB * 

* ENTRY * 

* * 
***iti^t *********** 



* * SET * * 

* * OEVOPER * ♦ 

* * TO BRANCH * * 

* * * * 

^*i^*:lf:ti^iic****:ti**** 

**** 

* * 

* C3 * 

* * 
**** 

* * 

* * P 



* ♦ 

♦ * 



4c * i«c 4< 4i * * 1(1 « 41 >tc 4< =«< 4< <( * « 



**** 

♦ ♦ 

* 8A * 

***♦ 



.* *. YES 

♦.UNRECOVERABLE.*.... 
*. ERROR .* 



iti*iiitf*C^********** 

* * 

* UPDATE * 

* DEVTCE CODE * 

* IN PUB ♦ 

* * 

^*it,*3ti:tc:tf:********** 



♦ *** 

* * 

* C2 * 

* * 



:^:^^ii:(t*^2 ********** 



* SAVE * 








* * FORCE PGM * * 


* PUB * 








* * CHECK TO ♦ * 


♦ ADDRESS * 








* * GET INTO * * 


* * 








♦ * SV STATE * * 


***************** 








«4c**4c*««4r««4c4c*4c«4c 


**** '. 










* * . 










* Fl *.X, 








, 


* * , 










**** X 








X 


LASTPUB .*. 






TESTUNIT .*. 


Fl *. 








F2 *. 


,* ♦ . 








.* *. 


.* END OF *. NO 






.* DEVICE *. 


♦. PUBS .*. 








*. OPERATIONAL .* 


*. REACHED .* 








*, ,* 


*. .* 








*. .* 


*. .* 




X 




*. .* 


* YES 


**** 


* YES 




* 




* 






♦ 


B2 


* 






* 




* 




. 




¥*** 




X 








X 


*#**i^Ql*:^*****:i::^t^ 








:tl,***:tfG2********** 


* * 








* * * * 


* RESTORE * 








* * SET * * 


* SYSLOG AND ♦ 








* ♦ DEVOPER * ♦ 


* SYSUSE LUBS * 








* * TO NOP ♦ * 



:tc********ilfi*****j>f:ii: 



4i4t4c«Hl********4< 

♦ SVC 11 RETURN * 

♦ TO $IPLRT4 * 

♦ * 



:i^t*************** 

X 

* ♦ 

* C3 * 

* * 
**** 



* * 

* POINT SYSUSE * 

* LUB TO 3340 * 

* PUB ENTRY * 

* * 

« 4e«4e4< « 4< 4<« >«< 4< * 4<4<4c 4c 4c 



4c 4c««4eF3** **«***<<* 



itt:ii:t:jti*:^********>tc** 
**** 



**** 

SENSE X 



4c4c«4c*it<«4>***«'(c«*** 



E4 *. 






♦ 






TRIED 


* 


NO 


3 TIMES 




*.. .. 




* 




.* 






*. .♦ 




X 


* YES 




**♦♦ 
* 

* r,3 


X 




* 


**** 




***4c 



C2 * 
* 
♦ *** 



I/O * 


YES 


OMPLETE 


*... . 


.* 




.* 




*. .* 


X 


♦ NO 


**4!* 




4c 




* B4 




* 


I 


**** 



4c4c4c««J3** *****><'*« 



4c«*«*««««**«*4c*4t« 
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Chart GA, $JOECTLA - Initializaticn (Part 1 of 2) 
Refer to Chart 05, 



♦♦**A1********* 

* * 

* $JOBCTLA * 

* * 



JOBCTL 

* i«< «* ]|£ B X 4< *'•'=•<<< ^c '^ * 't' 4< 

* INITIALIZE * 

* BASE * 

* REGISTERS ♦ 

* *H1 * 

* * 



*MTNCNT GU ♦ 

*-*-♦_*_♦_♦_♦_♦-♦ 

* SEIZE * 

* SYSTEM * 

* ♦ 

4<4r«*4'*«4<4t*4e4!«4:««« 



4i _♦_*_♦_#_*_♦_*_* 



4c«:«*4t*«4E4c4c3t<««'t<4'*4c 



»_*_*_*_*-♦:-♦-*-♦ 

* RELOCATE * 

* EXTERNAL * 

* FUNCTIONS * 



PICNIC 

♦MOVE NICL FROM * 
♦PIE TBL FOR ALL* 

* PARTITIONS * 

* TO LOC NICLS * 

* *K1 * 



BASRGl-SET TO THE 
JOB CONTROL ORIGIN 
-BASVCT-. THIS REG 
ALSO USED AS A COMMON 
BRANCH REG TO THE 
CONTROL STATEMENT 
READ ROUTINE, 
BASRG2-P0INTS TO 
BEGINNING ADDRESS 
OF OVERLAY AREA 
-OVRVCT-. THIS IS 
AREA WHERE JOB CONTROL 
PHASES $JOBCTLD, 
SJOBCTLGt AND tJOBCTLJ 
ARE LOADED. 
BASRG3-SET TO BASRG2 
+4096. 

BASRG4-P0INTS TO THE 
COMMUNICATION REGION. 
BASRGO-POINTS TO 
ROUTINE 'CONTROL '+2 



««4>#*A2*********^ 
♦MOVE FICL FROM * 
♦PIB TBL FOR ALL* 

♦ PARTITIONS * 

♦ TO LOC. FICLS * 

♦ ♦Kl * 
]«(«*4'****4'4<*4'***** 



4(4<4<*3(eB2 ♦♦♦♦♦♦♦*♦* 

* * 

* SET * 

* SYSTEM ♦ 

* FICLS * 

* * 



* * 

* SET NUMBER * 

* OF PARTITIONS * 

* INTO NUMPART * 

* * 



4t4c«««[)2 *♦♦**♦♦♦♦♦ 

* INSERT PUB- * 

* OWNER BIT FOR * 

* CURRENT PART. ♦ 

* INTO OCMASC * 

* * 



«*4c*«E 2 ♦*♦*♦♦**** 

^ SET SVSLOG" - 
♦IDENTIFIER FOR * 

♦ CURRENT PART. * 

* INTO PIB * 



* * 

* B3 * 

* ♦ 
**** 

X 
«««4c«B3********** 

♦ * 

♦ SET DISK ♦ 

♦ CONSTANTS ♦ 

♦ *K3 * 

♦ ♦ 



N02314 

4c4c4c4c#C3«#4c«4c4c«:«t4c4e 

* ZERO * 

* COMMUNICATION * 

* REGION * 

* ADDRESSES * 

* *A5 * 



4c*««4(03**** ****** 

*LOGCHK GL* 

♦-*-♦-♦-*-*-*-*-* 

♦ SET SYSLOG * 

* ASSIGNMENT * 
♦SWITCHES ♦BS* 
#«4!«#4(4<*4c*««4c**** 



*♦* 



«4<>0<4<4<*4<«4:«4<4: 



4:«4<««F2*^**^***** 

* INSERT * 

* REVERSE * 

* OF OCMASK ♦ 

* INTO NCMASK * 

* * 



♦♦♦♦«G 2 **♦*****♦* 

* SET OCMASK * 

* AND * 

* NCMASK ♦ 

* * 

* * 

4c4c«#*****«******* 



*****H2 ********** 

* PUT LUB TABLE * 

* DISPLACEMENT ♦ 

* FOR * 

* SYSRES IN ♦ 

* WRKRG3 * 

4c«4e*4c«4(4c««*4c*«4:** 



♦♦***J2********** 
♦CHKASG GU * 

* IF ASSGND GET * 
♦PUB TABLE ADDR * 

* FOR SYSRES * 

«*4::4(* ************ 



A JOB 
IN 
.PROGRESS 



**F3******* 

♦SET CANCEL * 

♦INDICATOR OFF* 

♦ IN COMREG * 

* +56, BIT 4 * 

* * 

#««4e**4<**** 



♦♦♦**G3 ♦*♦♦♦***** 

♦OSKINT GF * 
*_«-*-*-*-*-*-* -* 

* INITIATE ♦ 

* DISK * 

* SUPPORT ♦ 

«#4t«*«***4c*««*!tC4(4c 



.* . 


♦A 5 




A4 ♦. 


1. 


LENGTH OF PROBLEM 


.* JPB *. 




PPOGR/VM LABEL AREA 


♦ACCOUNTING *. 




-CnMREG+44-. 


INTERFACE .* 


2. 


LAST CHECKPOINT 


*. SUPPORT .* 




NUMBER 


*. .* 




-COMRFG+92- 


*. .* 


3. 


HIHHFST CHRE ADDRESS 


♦ YES 




OF LONGEST PROBLEM 
PROGPAM PHASF 
-COMReG+40-. 


X 
«*B4^^***** 


♦ R5 




*SET BRANCH ♦ 


THE 


ASSIGNMENT 


AT 'ACCTBRl' * 


FOR 


SYSLOG TS 


TO PROCESS * 


DETFRMTNED AND 


ACCOUNTING ♦ 


SWITCHES TN COMREG 



«*4i4t4c4c4'*4E4'* 



+56 ARE SET. 



IPL *. YES 
SWITCH .*.... 
ON .* 



*****C 5 ********** 

* CLEAR ACCT * 

* FIELD IN * 
X* PAPTTTTON * 

* TABLE * 

* * 



«4(4'4c«E4^^^******* 

'*■ ".ET'JP."' * 

♦ USER JHB * 

♦ NAME TO * 

♦ COMREG * 



*♦♦*♦**♦* 



(♦j^.***** 



♦****G4********** 

* * 

* GET * 

* PARTITION * 

* PIB * 

* * 

*«4<=(c**4<*>«c4c4c4c4t«4:4e4' 



*****H4***^^***** 

* RESTORE * 

* JOB NAME * 

* TO SAVE * 

* AREA * 

* * 
♦*♦*********♦*♦** 



♦♦*** 
*GB * 
* Al^ 



FICLS 

, BG . F4 . F3 . F2 . FI . 
NICLs!sS*PPrSS*PPlsS*PPrSS*PprSS*PPl 

FicLsIss'ppIss'pp.'ss'ppTss'pprss'pp! 



WHERE- 

SS = SYSTEM CLASS 

PP = PROGRAM CLASS 

BG-ENTRY EVEN IF FEWER THAN 5 PARTITIONS 



2314 3330 3340 
♦ K3 ' 

MAXIMUM BLOCKSIZE 
PER TRACK 7294 13030 8368 

CORE IMAGE DIR. 
RECORDS PER TRACK 15 26 16 
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Chart GB. $JOECTLA - Initializaticn (Fart 2 cf 2) 
Refer to Chart 05. 



***** 

*GA * 

* H4* 

♦ * 



* SYSIN 

ON DISK OR 
♦.DISKETTE . 



C2 ♦. 

** *. 

♦ EOJ * 

IN SYSIN 



**** 

* * 

* El * 

* * 
**♦* 

TSTPAUSE 



* El * 

♦ * 
***♦ 



Dl *. 
.* IS ♦. 
YES .* PAUSE SW = 
.*.0N-C0MREG+56 
*. BIT 5 



**** 

* ♦ 

* El * 



.* 



El * 
.* WAS 
.♦LAST INPUT *. NO 
. ON SYSLOG 
♦.COMREG+56. 
*.BIT 2.* 



.♦. . 



* YES 



El *. 

.* BATCH *. 

.♦ COMMAND * 

*. JUST ISSUED 

♦.COMREG+59.* 

♦ .BIT ?.♦ 



X 

***** 
♦GC ♦ 
♦ Bl^ 



CONTROL 

J0BCTL5 



NO 



♦ SET 
PAUSE SWITCH 

♦ OFF 

* * 

*«*«««#«*** 



*!ic««*Hi********** 

♦ INITIALIZE ♦ 

♦ FOR I/O-LOAD ♦ 

♦ ADDRESS OF ♦ 

♦ SYSLOG DFB IN ♦ 

♦ REGISTER 1 ♦ 

:4c4c****4c********** 



*«**« J 1********** 

♦EXCPRG GO* 

*_♦-*_♦_♦_*_*_♦_♦ 

♦ DISPLAY MSG ♦ 

♦ IIOOA READY ♦ 

♦ FOR COMM.' * 

4lf«!^4*4f *********** 



***** 

♦ GC ♦ 

♦ A1+ 



RESET 

BATCH INIT 

FLAG 

* * 

**:(c***4e*4<«:|c 



ACCTBRl .*. 

G2 ♦* 

.♦ JOB ♦. 

NO .*ACCOUNTING ♦. 

...♦. INTERFACE .♦ 

♦.SUPPORTED.* 

*. .* 

*. .♦ 



.*. ACCTLVl 

H2 ♦. **H3****^+^ 

.* ♦. ♦ TURN OFF ♦ 

.♦ OTHER *. NO ♦ NO ACTIVE 

. PARTITIONS .♦ X* PARTITIONS 

♦ . ACTIVE .* ♦ SWITCH 

*, .♦ * * 

*, .* ♦♦***♦♦**♦* 



**««4tJ2*^^*^*^*^* 

♦ INCREMENT ♦ 

* PARTITION * 

* COUNT BY 1 * 
♦IN COMMON TABLED 

♦ ♦ 
**«*««**««**««««« 



ACCTCL X 

****«K2 ♦♦♦♦♦♦♦♦♦♦ 

♦ CLEAR TIME ♦ 

♦ COUNTERS IN ♦ 
♦PARTITION TABLED 

* * 

* * 

*********:tc***4:**:(c 



.X. CONTROL 


X 


***** 


♦GC ♦ 


♦ Bl* 
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Chart GC. $JOECTLA - Control Statement Read 
Refer to Chart 05. 



***** REFEPENCES 

* * TO GCAl: 

*. ** GBJl, GFJ4 

** GVD3, GWH3 



* SET INPUT * 
* FROM SYSLOG 

* SW ON-COMREG 
*£56 ^^112 OFF 

* * 



* * 

* CONTROL * 

* * 



REFEPENCES 
TO GCBl: 
G8E1, GBK2 
GE83, GPF4 
GWB2 



* UNIT ♦. 
EXCEPTION . 
*FOP SYSLST.* 



* INFORM * 

* OPERATOR * 
X* ABOUT UNIT * 

* EXCEPTION * 

* * 



* RESET * 

* DELETE FLAG * 

* IN JBCSW6 * 

* * 



* SET FLAGS * 
FOR LIST- 
LOG OUTPUT 

IN JBCSV-4 

* * 



MODIFIER 
STATEMENT 
. PFNOING , 



* * 

* CLEAR * 

* BUFFER * 

* AREA * 

* * 



.* INPUT * 

. FROM SYSLOG 
*,0R SYSRDR.* 



* * 

* D2 * 

* * 



D2 ♦. 
.* IS *. 
CNCL .* CONDITION 
...*. NRDR OR 
*. CNCL 



* OERRTN 

OR OVREO. 
*. POSTED 



♦READOV GN* 

* READ * 

* OVERWRITE * 

* STATEMENT * 



.X* 



«:tc«««D34°*t#4c«4=*4:* 

* SET POINTER * 
TO ERROR * 

MESSAGE * 

* ICIOA * 

* * 



***** 
*GV * 
* B3* 



*#4:«*F3 ********** 

* R ES ET * 

* OPERAND * 

* NUMBER * 



C0NT3 

♦****H1 ********** 
*PTEST GO* 

* TEST FOR EOJ, * 
*EOP, CANCEL, AND* 

* SYSRDR ASSGN * 
«*4c4<************* 



C0NT4 

4c#4c**G 2 ********** 
*RLINDT GM* 

*-♦_♦-*-*-*-*-*-* 

* READ * 

* STATEMENT * 
« * 
*4c:«c4e** *********** 



**** 
C0NT5 X 

«*H2******* 
* * 

* RESET 

* STMT-PENDING 

* FLAG 



* INITIALIZE * 
X* FOR * 

* SCAN * 

* ♦ 

4!4c4e4c«]«c4< ********** 



#4c)ec4c*B4********** 
*SCANPI GK* 

*_*-*-*-*-*-*-*-* 
*GET FIPST OPPND* 
*POST COND CODE * 
*FOP STOP CHAR. * 

4c *4'** ************ 



DID 
BLANK 
STO" 
SCAN 



4c4c***D4*******4c4c4c 

* GET SYNTAX * 

* BITS FOR ♦ 

* FURTHER * 

* SYNTACTICAL * 

* CHECK * 
***************** 



* COMMAND * 

* -^ABLE * 

4c 4c***** ********** 



B*^ *. 

.* TNOUT *. 

.*FPOM SYSRDR* 

AND 

*. CANCEL .* 

*POSTED.* 



* YES 



C^ *. 

. * ppnc. * 

STMT IN 
SflTE OF 
. CANCEL 



**** 
1= * 
^ Bl * 



.. ...X. 

X 

***** 

«GW * 

* 02* 

* * 

* 

ERRRTN 



.* VALID *, 

FORMAT 
*.FOR *;TMT ,* 



NO .* IS 
...*. OPERAND 

*- ur"^ 



* ****F 5 ********** 

* * 

* SUPPRESS ♦ 

* OUTPUT ON * 

* SYSLST * 

* * 
4t**4«** *********** 



* IS 


*. YES 


CONDITION 


• *. ..• 


*EOP OP EOJ 


* . 


*. .* 




*. .* 


X 


* NO 


**** 




*GE 


. 


* B3 



4c**«****4e** 



DELET 
FLAG SET 
.IN JBCSW6. 



IGNORE 

4c4<H3******* 

* SET JCSWl * 

* TO INDICATE * 
* INPUT FROM * 

* SYSRDR * 

* * 

4e4c********* 

l **** 

* * 

..X* BI * 

* * 
**** 



n5 *. 
.* <;tmt *. 

LOG .*T0 BE LOG- *. 

....*. GEO OR LISTED. 

*. OP SUP- .* 

♦PRESSED* 



.* 

* OPT 



UNCLOG 

4c4c***H4******«*** 

♦LOGOUT GJ* 
4t-*-*-*-*-- 



4e4e************** 



**** 

* * . 

* H5 *.X. 



,*BE WRTTTGN *. 
ON .* 
*. SYSLOG .* 



**** 

* * 

* H5 * 

* * 
**** 



.* TO *. 


BE WRITTEN 


ON 


. SYSLST . 


*. .* 


*. .* 


* YES 



* F3 * 

* * 
**** 



4t****K5 ********** 
*LT STOUT GJ* 

4c_4t_4c-*-*-*-*-*-* 
*LTST STATEMENT * 

* ON SYSLST * 

* * 

4c«4c4c4<****** ****** 



***** 

*GE * 
* 83* 
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Chart GD. $JOBCTLA • Test ECJ, EOF, CANCEL and SYSRDK Assignitient 
Refer to Chart 05. 



♦ * 

♦ PTEST * 

♦ * 



* * 

* SET OFFSET ID * 
*/£ ENTRY IN THE* 

* COMMAND TABLE * 

* * 



* * 

* * POST * * 

* * A(RNAFER) ♦ * 

* * AS BRANCH * * 

* * ADDRESS ♦ * 



_*_♦_*_* 



*i^*:ti:^i^:lf1f*******^* 



♦♦♦♦♦C3 ♦***♦♦**** 

* * * * 

* * POST * * 

* * A(C0NT4) * * 

* * AS BRANCH * * 

* * ADDRESS * * 



* ♦ 

* 04 * 

* ♦ 
♦ **♦ 



**04******* 



t**^*E2*****'fi'**** 



♦ * 



♦ ♦ 



POST 

* * A(EXIT) * * 

* ♦ AS BRANCH * * 

* * ADDRESS * * 



**««*F 2 ********** 

* * 

* MODIFY CC * 

* IF READER IS * 

* MFCM/MFCU * 

* * 

4i4'*«*4:4********** 



4t*««4(G2********** 

* * 

* SET OFFSET TO * 
♦/£ ENTRY IN THE* 

* COMMAND TABLE * 

* * 



* IS SYSRDR 
ON DISK OR 

♦ .DISKETTE . 



!(c«4E4c4t4c«4<«Xe4c 



**G4******* 

* * 
RESET EOJ 

FLAG IN THE 
SYSRDR LUB 

* * 



♦ *** 

YES * * 
*....X* D4 * 



9«* DOS/VS IPL and Job Control 



Chart GE. $JOECTLA - Phase Vector Table Lookup 
Refer to Chart 06, 



* * 

* FETCHRF * 

* * 



1 Jl REFERENCES 




**** • 

* * « 


, 


* 84 *..• 




♦ ♦ , 


X 


***♦ . 


.*. FETCHRF X 


B3 *. 


«^i|[4c*B4********** 


*. 


* * 


DELETE' ». YES 


* SET PHSNUM * 


POSTED .*.... 


* TO PROPER * 


.* 


* PHASE * 


.♦ 


* * 


♦ . ,* X 


4!!|i*4t*««4'********* 


* NO ***** 




*GC * 




* Bl* 




* * 




* 




CONTROL 





TABLE A oonT PHASE (AJ 

' stmntT * RnuTi neT chart! 

I'//'*I'sCflNR2**I**r,K"*I 
. /♦ . control , GC 
. ** . control . GC 
ignore, ignore . GC 
OVEND . OVENn . np 



*B5 

IF THE CONTROL STATEMENT 
WITH /r IN COL 1 + 2t THE 
CURRENT ARGUMENT IS //. 
CONTROL 1$ TRANSFERRED TO 
THE SCANR2 SUBOTNE TO GET 
THE NEXT OPERAND. SCANR2 
EXITS BY BRANCHING LINKRl 
WHICH CONTAINS THE 
ADDRESS OF CONTROL tGCBll 



*4t**024t**«*4<*** 

* BRANCH TO * 
♦PROPER ROUTINE ♦X. 

* (TABLE A> * 

4r4i««jit***««*«*«# 



4(****c3**'i'****'t'** 

* * 
♦MOVE BR. TABLE * 
♦DISPLACEMENT TO^ 

* REG -P0INT2- ♦ 

* 4c 



♦ IS ♦ 

ROUTINE 

IN ROUT 

PHASE 



.♦. 
E3 ♦. 
.♦ IS ♦. 
.* REQUIRED ♦. YES 
». PHASE ...... 

*. LOADED .* 
*. .♦ 

♦ . .♦ 
♦ NO 



-♦ IS 
NO .♦ IT 

..*. PHASE 



**3|C#«(;3#4C*4! ****** 

♦LBLOUTF QN* 

♦-♦-^♦-♦-*-*-*-*-* 

♦ PUT OUT ♦ 
♦VARIABLE LENGTH* 

* LABEL INFO ♦ 

4t**********Xc****« 

I **** 



♦ SAVE BEGIN * 

* ADOP. OF ROOT * 

♦ PHASE-ADOR ♦ 
♦OF LOC CONTROL ♦ 

* * 



4c4!4<**D4********^* 

♦MTNCNT GU ♦ 

♦ RELEASE ♦ 

♦ THE ♦ 

♦ SYSTEM ♦ 

4!*«4t*«4(**** ****** 



4c#4<4t4cg44t**^4E***** 



* * 



♦ * 



SVC < 

♦ * LOAD ♦ ♦ 

♦ ♦ REQUIRED ♦ * 

♦ ♦ PHASE ♦ ♦ 

«(:|c««:|c«*^**^^^^*** 



«««4e9;(P44<*******^* 

♦MTNCNT GU * 

♦ SEIZE ♦ 

♦ THE ♦ 

♦ SYSTEM * 
##*«««**««**#«««« 



«*«!((Q4#«««4e**** 

♦ EXIT ♦ 

♦ PEP TABLE ♦ 

♦ * 



JOB CONTROL 


STATEMENT TABLE 


.STMNT . 


PHASE. ROUTINE 


CHART. 


•.ACTION*: 


J 


.ACTION 


PO . 


.ALLOC . 


J 


.ALLOC 


*p6**.* 


:all6cr': 


J 


'.'allocr' 


PR . 


.ASSGN . 


D 


.ASSGN 


JA . 


.CANCEL . 


G 


: CANCEL* 


'nf***. 


.catalr . 


J 


.CATAL 


PN . 


.CLOSE . 





.CLOSE 


JS . 


.DATE 


J 


•.'date*** 


. PH . 


.DLAB 


K 


.DLAB 


QF . 


roLeL"*: 


K 


.DL8L 


*oE**: 


.DVCDN . 


F 


.DVCON 


MH . 


cDWJ}^ 


c 


':n»r.jS" 


«L c 


.ENTRY . 


J 


.ACTION 


:*p6*: 


.EOJ /8 . 


G 


.EOJ 


. ND , 


.EOP /+ . 


G 


.PEND 


. NS . 


.EXEC 


E 


.EXEC 


. LA . 


:exec*pr6c'e- 


.CALL 


'LP*:* 


.EXTENT . 


K 


.EXTENT 


. QJ . 


.HOLD 




HOLD 


. PA . 


.INCLUDE. 


J 


.INCLUDE 


. PD . 


.JOB 




.JOB 


NA . 


.•lbltyp*: 




'lbltvp*: 


'oA*:** 


.LISTIO . 




LISTIO . 


MA . 


.LOG 


J 


• LOG 


PL . 


.MAP 


.... 


•.'map**** 


. MK . 


.MTC 


J 


.MTC 


PE . 


.NOLOG . 


J 


.NOLOG . 


PK . 


.OPTION . 


<; 


.OPTION 


'•ng*:* 


.PAUSE . 


J 


.PAUSE 


...... 


Iphase . 


J 


.ACTION 


PO . 


.RESET . 


F 

.... 


*:PES^f°* 

'.'rod**'' 


MF . 


.RSTRT . 


K 


.RSTRT 


00 . 


isEf---*: 


J 


ISET**** 


•pG*:* 


.STOP 


J 


'Istop'*' 


. OM . 


rfLBL*'*: 


K 


\*TLBL*** 


:*6b*: 


,tplab . 


K 


.TPLAB 


. OA , 


.ucs 
Iunbatch: 


J 

"f" 


.ucs 

'loETACH* 


pb . 

rMM*r 


.UP SI 


J 


.UPSI 


. PK * 


.VOL 


K 


.VOL 


....... 


.XTENT , 




. XTFNT . 


OG . 


:z6ne"": 


J 


TZONE*" 


. PH , 
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Chart GF. $JOBCTLA - CSKINT Subrci2tine 
Refer to Chart 06. 



♦ A2 ♦ 

* ♦ 
♦ ♦** 



* DSKINT ♦ 

* * 



DSKINT 

* SET PROB PROG * 

* FIB FLAG TO * 

* ALLOW SYSRES * 

* WPITE I/O * 

* * 



♦♦«c I************ 
READ SYSTEM 
♦ DIRECTORY * 
RECORD ^ 
* FROM SYSRES * 

:(c * « 4: i|c 4: :«( « :(c :(c:4c « << :4e :4t :(i « 



A2 *. 

SYSPCH **. NO 
ASSIGNED .* 


CHKLST .*. 

A3 *. 

.** SYSLST **. NO 
...X*. ASSIGNED .*.. 


*H2 . * X 


*. .* 



♦CHKCNT GJ* 

*-:«_*_*_*_*_*_*_* 

♦CHECK AVAILABLE*.- 

♦ RECORD COUNT * 

* ON SYSPCH * 



♦♦♦**D2 ********** 



* * 



* * 



SVC 7 
X* * WAIT FOR * * 

* * I/O * * 

* *COMPLETION * * 



:»«4c4>«C3 ********** 
*MODIFY WARNING * 

* MESSAGE 1C70D * 

* TO INDICATE * 

* SYSLST * 

* * 



:(e*:tc«3tc[)34t*:«<***«4<*« 

♦CHKCNT GJ* 

*_»_♦_♦_+_♦ _*_*_i<t 

* CHECK AVAILABLE* 

* RECORD COUNT * 

* ON SYSLST * 



«4<4c>(c«E I ********** 
*RESET DISK ADDP* 

* OF LABEL AREA * 

* WITH VALUE * 

* SYSTEMS OIR * 

* COMREG+60,61 * 

«««« 9)1 :«c «#:«(«:(<:$( :(c :» :0c « :(c 



* SET THE CC * 

♦ OF WRITE AND * 

* SEEK/SEARCH * 
♦DISK ADDRESSES * 

♦ * 



*PRCINIT GG* 

*_♦_*_*_♦_*_♦-♦_♦ 

* INITIALIZE * 

* PROCEDURE * 

* * 



*H2 
SYS UNITS THAT ARE 
ASSIGNED TO A DASD DEVIC 
AT SYS GEN TIME ARE 
UNASSIGNED DURING IPL. 
THEY MUST BE REASSIGNED 
USING JOB CONTROL ASSGN 
STATEMENTS. 



.* DASD *. NO 
♦.SYSTEM FILES .*... 
*. SUPPORTED.* 



**** 

* * 

* A2 * 

* ♦ 
♦♦** 



PREVIOUS CHAIN FLAG 
HAS BEEN SAVED AT 
CHKJIB. 

ZERO THE 1ST 3 BYTES. 
MOVE CHAIN FLAG, 
4TH BYTE, FROM 
CURRENT JIB TO 
PREVIOUS JIB. 
MOVE NEXT AVAILABLE 
JIB POINTER FROM FAVP 
TO CURRENT JIB. 
UPDATE FAVP WITH 
CHAIN FLAG FPOM 
SAVE AREA. 



**** 

* ♦ 

* 05 * 

* ♦ 



* * 
*COMPUTE ADDRESS* 
*0F NEXT JIB IN * 

* "FG, P0INT2 * 

* * 



NODSYS 

* INITIALIZE ♦ 

* POINTERS FOR * 

* LUB TABLE * 

* LOOK UP * 

* *G5 * 

«4c«««*«*««**««*<c:(< 



NXTLUB 

♦♦***P3 *♦*♦♦****♦ 
♦INITIALIZE REG * 

* POINTS AND * 

* INCREMENT REG ♦ 

* POTNTI BY 2 * 

* *G4 * 



E5 *. 

.* OOFS * 
.* THIS JIB 
CONTAIN 
*. EXTENTS 



*UPDATE PREVIOUS* 

* JIB POINTER, * 

* P0INT3 FROM * 

* CURRENT JIB * 
♦POINTER ,P0INT2^ 

«4c:^4c««**««*:(c«**«)tc 



JIBPTR 
OCUXTN X 

4i4c«**F<) ***«***«*« 

* UNASSTGN THIS * 

* JIB AND PLACE * 
*IT TN FREE LIST* 

* *C4 * 

* * 



G3 *, 
* DOES *. 

CURRENT 
B POINT TO 
A JIB . 



.* HAS *. 
NO .* LAST PROG *. 
...*. LUB BEEN .* 
*. CHECKED .* 



P0INT3 IS LOADED 
FROM POINTI AS 
PREVIOUS JIB POINTER. 
POINTI IS INCRE- 
MENTED BY 2 TO POINT 
TO THE NEXT LUB. 



*G'5 

POINTS TS ADDRESS OF 
FAVP. WRKRG2 IS 
NUMBER OF PROGRAMMER 
UNITS FROM NICL. 
PniNTi TS ADDRESS 
MINUS 2 BYTES OF THE 
1ST PROGRAMMER LUB. 



LSW .*. 




J3 *. 


**J4*«***«* 


,* ZERO ^. 


* SET PAUSC ^ 


.*R£COROS ON *. YES 


* SWITCH OFF 


*. SYSLST OR .* 


..X* JCSWl, COMREG 


*. SYSPCH .* NOP 


* PLUS 56, 


*. *J5 .* 


♦ BIT 5 * 


*. .* 


«;|c<e ;((«:«( 4c*«*4c 


* NO 




.BR 


X 




**♦♦* 




*GC * 




* Al* 


X 


* * 


^i^itli)l^(^2****^***** 


♦ 


* RETURN TO * 


ACTRSP 


* CALLING ♦ 




* SEOUENCE * 




:tc4e«4c«:(c*<c ««:»«««:(( 





*J5 

THIS SWITCH HAS BEEN SET 
TO A NOP BY THE CHKCNT 
SUBROUTINE IF THE RECORD 
COUNT WARNING MESSAGE 



C70D 



EU 



SUE 



-NO. OF AVAILABLE RECORD 
FOR THIS FILE IS LESS 
THAN OR EOUAL TO THE RC 
VALUE OF THE DIB.- 
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Chart GG. $JOECTLA - Initialization of Procedure Processing 
Refer to Chart 05, 



* PRCINIT * 



* GET SYSRDR ♦ 

* LUB ADDRESS * 

* AND SAVE IT * 

* * 



.*IS JIB *. 
.♦ ENTRY *. NO 
. CHAINED TO .*... 
♦.THIS LUB .* 



* GET ADDRESS * 

* OF THIS * 

♦ JIB ENTRY * 

♦ * 



«4t4>««B3***'*>**«**« 

* GET * 

* PROCEDURE ♦ 

* HEADER FROM ♦ 

* SYS. RECORD 4 * 

* ♦ 



«4'4«C34'*>t'4'«4'*4t*4c** 
READ 
♦ HEADER OF * 
PROCEDURE 
* LIBRARY * 



* ♦ * * 

* ♦ WAIT * * 

* * FOR I/O * * 

* * COMPLETE * * 

* ♦ * * 



* COMPUTE * 

* DISK ADDRESS * 

* OF SAVED * 
« OVERWRITE * 

* STATEMENT * 



.♦JIB USED BY* 

'♦.PROCEDURE.* 

*, .* 


NO . 
♦ ..X. 


.♦ OVERWRITE *. YES 
*. REQUEST .*.... 
*. POSTED .* 

*. .* 


*. . * 


X 


*. .* X 


* YES 


♦ ♦♦♦♦ 


* NO ♦♦** 




*GH * 

* C3* 

* * 


. * 

* J2 
. * 




♦ 


**** 


X 


SYSER^ 


X 

^sje^tGB ♦*♦******♦** 


¥* 


♦ SAVE STANDARD * 
*LUB FOR FURTHER* 

* PROCESSING * 


* READ SAVED * 
OVERWRITE 
♦ STATEMENT * 



^:«i*:(c#«:)<«4c«;tc4c##:(t:(e« 



.* OVER- *. 

WRITE 

♦PROCESSING.* 

♦ , ,♦ 



«3|e««#«4e:((«4:«*«*<e** 



«4<«4<4cH3********** 

* * * * 

* * WAIT * * 

* * FOR I/O * * 

* * COMPLETE * * 

* * * * 



4c ««4:«J3 «#«*«*«♦*<< 

♦ ♦ 

♦ MOV E ♦ 
.* STATEMENT * 

♦ INTO BUFFER * 

♦ ♦ 
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Chart 6H. $JOBCTLA - Error Routine for Handling Lest JIEs 
Befer to chart 05, 



*«««B3«*=<'«**««4c 






♦ ♦ 






♦ SYSERR ♦ 






* ♦ 






«**««4c4c«>e=4c««*«* 


*♦♦* 
* * 








* C4 ♦ 




♦ ««* 




, ♦ * 




*GG * 




♦ ♦** 




* F2 *.X 






*C5 


♦ * 






JOB CONTROL FAILURE 


***♦ 








SYSERR X 


CNCLMD X 




**C3****#** 


***iH^CA********** 




* POST * 


* SET POINTER * 




* RETURN * 


* TO MESSAGE * 




♦ADDRESS CNCLMD * 


* IMIOA * 




* TO PROC.END * 


* *C5 * 




* PROCESSOR * 


* * 




%«](i:4e9)c***««« 


«««4c4c4c*«4')(<=tc«*:«i**« 





♦♦♦♦♦03 ********** 

♦ GET PHASE * 

♦ NAME OF * 

♦ PROC. END * 

♦ PROCESSOR * 

♦ * 



^f:^t*^E3 ********** 

* GET ENTRY * 

* POINT TO * 

* RPOC.END * 

* PROCESSOR * 

* * 

* * :(c « « )(< « « « «:(( * 4c* * # A 



3«(4eF3 ******* 

* * 

SET SYSLOG 

INPUT, FLAG 

IN JCSWI 

* * 



♦#G3******* 

* SET * 
SYS ERROR 

FLAG IN 
JBCSW6 

* * 



♦♦*H3 ************ 

FETCHRF GE 

FETCH 
* $JOBCTLG * 



««]|c««J34c««««««««* 

*PEND NS* 

♦_*_*-*-*-♦_*-*-* 

* PROCESS END * 

* OF PROCEDURE * 

* * 

«4c««4<*««**4c4c«4c4c«4c 



♦ RESET * 
SYSEPR 
FLAG IN 
J8CSW6 

* * 
4i«*«*4<4c4t4(«)«c 



*4:4c*« 
*GW * 
* F4* 
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Chart GJ. $JOBCTLA - Message Sufcrcutines 
Refer to Chart 05. 



* * 

* LOGOUT ♦ 

* * 



.*SYSLOG *. 

* OUTPUT 
SUPPRESSED 



♦ SUPRESS * 
SYSLOG 

OUTPUT-SET 
BIT 2 IN 

* JBCSW4 * 



*CHKASG GU * 

* CHECK SYSLOG * 

* ASSIGNMENT * 



****A2********* 

♦ ♦ 

* MSGQUT ♦ 

♦ * 

**♦♦ 

♦ B2 *.X 

* * 
♦♦*♦ 

MSGOUT X 

iH3ti:tHlli:lfQ2 ********** 

* SET BITS OFF * 

* IN JBCSW4 * 
....♦TO ALLOW OUTPUT* 

♦ ON SYSLST AND * 

* SYSLOG * 

**** 

* * 

♦ C2 «... 

♦ * . 

♦*♦* X 
.♦. 
C2 *. 
,* *. 
YES .* ONLY *. 
...,*. WAIT SWITCH .* 
*. ON .* 



♦♦D2******* 

* SET CHAIN * 

* BIT IN CCW * 
* IF TIME 

* LCGGING * 

* * 



* MOVE MESSAGE 

* TO PRINTOUT 

* AREA 



*>tf***f2********** 

* MODIFY SYSLOG * 

* CCW BYTE CNT * 
♦TO DISPLAY ONLY* 

* SIGNIFICANT * 
♦CHARACTERS *H4 * 

:^iitHf******^' ******* 



*****G2 ********** 
*EXCPRG GQ* 
♦-»-.*_♦_♦_*_*_♦_* 

* OUTPUT « 

* STATEMENT * 

* ON SYSLOG * 

#«>»;]|e*«««4c******** 



****A3***»***** 

* * 

* LSTOUT ♦ 

* * 

**♦* 



.*SYSLST *. 
* OUTPUT 
SUPPRESSED 



**C3******* 

* SUPPRESS * 
♦SYSLST OUTPUT* 

* SET BIT I ON * 
* IN JBCSW4 * 

* * 
«««««****** 



4c«4e««D3** ******** 

*CHKASG GU * 
*_*_*_*_*_*_♦_♦_♦ 

* CHECK SYSLST * 

* ASSIGNMENT * 

* * 
4c4c#«4(***4'******** 



4i4c4t4cA44i**4t*4i*** 



*««4c«H 1********** 
♦MTNCNT GU * 
*_♦_*_♦_♦_*_*_*_♦ 

* RELEASE * 

* THE * 

* SYSTEM * 
«««««***«**««**** 



*it,if*H2********* 
« RETURN TO * 

* CALLING SEQ * 

* * 

«:«««««4t******** 



IS 

SYSLST 

.ASSIGNED 



.* CURRENT 
*. LINE COUNT 
*. MINUS 1 . 
*.EQ .* 



#«**#G3 ********** 

* RESET LINE * 

* COUNT VALUE * 

* TO VALUE FROM * 

* COMREG+78 * 

* * 



«**4c«H3 ********** 

* SET SKIP TO I * 
♦FLAG IN BYTE * 

* OF PRINT LINE * 

* -BUFFER LESS * 

* 1 BYTE- * 



♦ CHKCNT * 






♦ * 






:(e4<************* 


*B5 




• 


1. 


POINTl IS DIB 
ADDRESS FOR DESIRED 


CHKCNT X 




SYS UNTT. 


4c4:#4t#B4********** 


2, 


END ADDRESS CC* LESS 
CURDENT ADDOESS CC, 


*COMPUTE NUMBER * 




* OF RECORDS * 




IS REMAINING CC. 


* AVAILABLE FOR * 


3. 


REMAINING CC» TIMES 


* THIS 1=ILE * 




TPACKS/CYLINOER, PLUS 


♦ *B5 * 




TRACKS LESS THAN 


4(«**«*««*4c4c***«*4' 




FULL CYLINDER, IS 
REMAINING TRACKS. 






I 


4. 


REMAINING TRACKS, 
TIMES RECORD/TRACK, 
PLUS RECORDS ON 
PRESENT TRACK, IS 


X 
«*4c«4<C4********** 

* CONVERT TO * 




REMAINING RECORDS. 










* BCD AND * 






* UNPACK * 







**** 

* * 

* K4 * 

* * 
*♦** 



4:****4'*********4c* 



* REPLACE HIGH * 

* ORDER ZEROS * 

* WITH BLANKS * 

* ♦ 

i^::isiti1^*:ti*********** 



ZRMVDN .*. 

E4 *. 
.*NUMBER *. 
.* AVAILABLE 
*. RECORDS GT 
*. RC OF . 
*. DIB ,* 
*^ „* 
* YES 



* RETURN TO * 

* CALLING * 

* SEQ. * 

:(c4c««^«*««****iic4: 



*«E5 ««#«««« 

*SET SWITCH * 

* CTRLSW TO * 
. X*NOP IN CALLING 

* SEO. ♦ 
* *G4 * 

*««4>****4e** 



^i^^iiti*F5 ********** 

* MOVE ERROR * 

* MESSAGE FOR * 

* 1C70D TO * 

* BUFFER * 

* *H5 * 
^^c^^c******* ****** 



*G4 
THIS SWITCH, IN THE DSKINT 
SUBROUTINE FORCES THE 
PAUSE SWITCH TO BE SET 
OFF AND A CONTROL 
STATEMENT TO BE READ. 



*H4 
REVERSE SCAN THE 
BUFFER AREA UNTIL 
THE FIRST NONBLANK 
CHARACTER IS SCANNED. 
IN CASE OF OVERWRITE 
STATEMENTS, THE NAME 
FIELD (COL. 73-79) 
THE ACTION COOE (COL. 80) 
ARE ALSO LOGGED. 



*H5 
WARNING MESSAGE 
IC700 00000 
RECORDS REMAINING 
ON SYSPCH/SYSLST. 



Jl *. 


♦♦♦♦*J2 ********** 


***:tiilfj-i********** 


^^^^^J^****:^***^* 


* *, 


♦MTNCNT GW * 


* STORE NEW * 


*EXCPRG GO* 


PREVIOUS *, YES 


*-*- 


.«_*-*-*-*-*-* 


* LINE COUNT * 


*-♦-*_*_*_♦-*-*-* 


I/O .*.....« 


.,X* 


SEIZE * 




....X* OUTPUT ♦ 


COMPLETE .* 


* 


THE * 


* RLNCNT *"" 


♦ STATEMENT * 


*. .* 


* 


SYSTEM * 


* * 


* ON SYSLST * 


*. .* 


**:^:tt^c***:t:**if***** 


«***«**4**«*«*«** 


*****1c***i)c****:ti** 


* NO 




X 
**** 

* * 




**** * 

* * . 

* K4 *.X. 

* * . 
**** . 


X 




* C2 * 






«KI********** 




* * 




X 


* * 




**** 




«***K4********* 


SVC 7 * * 








* RETURN TO * 


WAIT * * 








* CALLING SFQ * 



**«*«#«**«**«««** 



**««***4c«*««*«4c 
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Chart GK. $JOECTLA - Operand Scan Subroutines 
Refer to Chart 05. 



4>4>**A1 ********* 

♦ ♦ 

♦ SCANR2 ♦ 

♦ ♦ 



SCANR2 

♦♦B4 INITIALIZE* 

♦ REGISTERS * 

♦ POINTl AND * 

♦ P0INT2 FOR * 

♦ CURRENT SCAN * 



♦ « 

♦ SCANRl ♦ 

♦ * 



SCANRl 

* INIT PARAM * 
♦LENGTH TO ZERO * 

* AND STOP CHAR * 

* TO A BLANK * 

* ♦C4 * 



SCNRLl .♦. 

02 *. 
.* IS *. 
.* CURRENT *. NO 
♦.CHAR A BLANK .♦... 



♦♦♦*A3+**+***++ 

♦ * 

♦ SCANR3 ♦ 

♦ ♦ 



SCANR3 

♦♦BA INITIALIZE* 

♦ REGISTERS ♦ 

♦ POINTl AND * 

* P0INT2 FOR * 

* CURRENT SCAN * 



«*4t*«C3 ***♦♦♦♦♦♦♦ 

♦ ZERO PARAM * 
*LENGTH COUNTER * 

* -P0INT3- * 



4<4c4c««4i«4t«4<«4t«4c««4< 



4e4c««:|t£2 *♦♦♦♦***** 

* INCR POINTl ♦ 

* FOR THE NEXT * 

* CHAR * 

* * 



**♦♦ 

* ♦ , 

* 62 *.X. 



♦♦♦* 
NDSCAN X 

«*«««G2******^*** 

♦ ♦ 

♦ INITIALIZE * 

♦ FOR NEXT ♦ 

♦ SCAN *G4 * 

♦ * 



«4c«««H 2 ♦♦*****♦♦♦ 

* * 

* SET INFORMATION* 

* FOR CALLING ♦ 

* SEQUENCE ♦HA ♦ 

* * 
i)i*^^iH*t ********** 



♦♦♦*J2 ♦♦**♦♦♦♦♦ 

♦ RETURN TO ♦ 

♦ CALLING SEQ ♦ 

♦ * 



♦♦♦* 

* * 

♦ E3 ♦.X 

* ♦ 
**** 

SCNRL2 X 

«)t<«*)(eE3^^^^^^^^^ 

♦ STORE CURRENT 

* CHAR IN 

♦ SCNSTP 

* 



F3 *. 

.* IS *. 

THIS CHAR 

A COMMA 



YES .♦ THIS CHAR *. 



.* IS ♦. 

THIS CHAR ♦. 

AN EQUAL 
. SIGN .♦ 



* INCR PARAM * 
♦LENGTH COUNTER,* 

* P0INT3, * 

* BY 1 * 

* * 

^*^^Cillif*********** 



*B4 
THE POINTER TO THE FIPST COL 
TO BF SCANNED AND NUMBER OF 
COL REMAINING APE STOPED IN POINTl 
AND 2 RESPECTIVELY FROM SAVE 
AREA TMPARl. 



*C4 
PARAM LENGTH IS MAINTAINED IN 
REGISTER P0INT3t 
STOP CHAR IS MAINTAINED IN 
CORE LOCATION SCNSTP. 



♦ G4 
1. COMPUTE POINTER TO NEXT CHAP. 
2, COMPUTE NUMBER OF COLUMNS 

LEFT TO BE SCANNED. 
3. SAVE IN SAVE AREA, TMPAPl AND 

TMPARl PLUS 4 RESPECTIVELY. 



*H4 
l.THE LENGTH OF THE PARAMETER 

MINUS 1 BYTE IS IN REGISTER 

P0INT3. 
2. UPDATE THE OPERAND NUMBER 

IN OPNUMH. 
3. TEST THE SCAN STOP CHARACTER 

AND SET THE CONDITION CODE. 

0, EQUAL, TS A COMMA 

1, LOW, IS A BLANK 

2, HIGH, IS AN EQUALS SIGN 



* ♦ 

* G2 * 

* * 



* * 

* E3 * 

* * 
**** 
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Chart GL. $JOBCTLA - Kiscellax)ecus Sutrcutines 
Refer to Chart 05. 



♦»** 

♦ A3 * 

* * 



♦ * 

♦ A5 ♦ 



* INCLUDE ♦ 

* * 



INCLUDE 

RESET INSERT- 
REQUEST. OVER-* 
♦WRITE-REQUESTt 
♦ AND ERROR ♦ 

♦ FLAGS ♦ 



* SET INSERT ♦ 
REQUEST FLAG * 

♦ IN P-SWITCH * 
« * 



* B3 ♦.X 



INCL20 X 

*SAVE PROC STMT * 

* INITIATE * 

* EXECUTION OF * 

* OVERWRITE * 

* STATEMENT * 



«4>4t^A<^4c****««** 

♦ * 

♦ LOGCHK * 

♦ ♦ 



LOGCHK 

iniiLm**B^** ******** 

* SET LOG ID OF ♦ 

* CURRENT ♦ 

* PARTITION IN * 

* PIB TABLE * 

* *H5 * 

^if4Hli:tHf*********** 



*_*_*-*_#_♦_♦_♦ 



:tii^tiii^itei^:^Hit******** 



CANCEL 
POSTED 



**** 

♦ * 

♦ 03 * 

♦ ♦ 
♦♦♦♦ 



*. OVERWRITE .*.*•. 






* 


*. END .* 




* 


*. .♦ * 






♦ . •* X 






♦ NO **** 






* 


* 




* B3 


* 




. ♦ 


* 




♦**< 






X 






.*. 


INCL05 .*. 


El *. 




E2 *. 


.* PROC *. 




.♦'pVCODE jg'*. YES 


.AND OVERWRITE. YES 




♦s'lMfcMtwT ixAPJca*. ..•.. 




''*'♦. ^^AFTERf^'.*' "'"*, 


♦. EQUAL .♦ 




*. .« 




*. .♦ « 


*• ** 




♦. .* X 


* NO 




* NO ♦*** 

* * 

* C3 * 


• 




. **** 


X 




X 


.*. 




.*. 


Fl *. 




F2 *. 


,* *, 




,* IS *. **♦* 


.♦ /+ *. YES 




.* OVCODE EQ *• YES * 


*. STATEMENT .*.... 




♦ . 'B' (INsIrT .*....X* A3 


*. .* 




*. BEFORE* .* ♦ 


*. .* 




♦, ,* **** 


*. .* X 




*. .* 


♦ NO ♦*** 


* NO 


* 


♦ 




* B3 


♦ 




. * 


* 




♦♦♦* 




X 




X 


.♦, 




.*. 


GI *. 




62 ♦. 


.*OVSTMT *. 




.* IS *. 


.*NAME EQ TO *. NO 
*. SAVED STMT .*.... 




.* OVCODE *« NO 




*.«DMOELETION).*...» 


*. NAME .* 




*. •* 


*. .* 




*. .* 




*. .* X 




*. .* 




* YES *♦** 


* YES 




* 


# 






♦ 03 


♦ 






. » 


* 






*♦♦* 






X 








.*. 




X 




Hl^ *. 




**H2******* 




.* IS *. 




* * 




.* OVCODE EQ *. YES 
*. 'A' (INSERT .*,... 




* SEt DELET * 






* FLAG IN * 




*. AFTER) .* 




* JBCSW6 « 




*. .* . 




♦ * 




*. .* X 




«***«««*««« 




♦ NO *♦** 






♦ 


♦ 






. * A3 


* 
* 


*x, 




. * 






*«** 




X 


INCLIO X 


**J1******* 




**J2******* 


* * 




SET OV-REQUEST* 


* SET ERROR ♦ 




* FLAG IN * 




X* FLAG * 


* JBCSW6 * 




» IN P-SWTTCH * 





**♦* I 




* ♦ , 




* C3 ♦.X. 




* ♦ , 




*♦** 




INCL25 X 


X 


4i4c4t**r3«4t4>*«4t«*4e4i 


*«4t««C4********** 


♦SAVE OVERWRITE * 
* STATEMENT ♦ 


* RESET SYSLOG * 


♦BITS IN COMREG * 


* INTO * 


♦ +56, BITS 6 * 


* SAVE AREA * 


*AND 7 SET TO * 


♦ ♦ 


* * 


itfUfm************** 


«#*4<**«**4c*4i**«*« 


♦♦♦* t 




♦ * » 




* D3 *.X. 




♦ * . 




**♦♦ 




INCL30 


X 


X 


««:4i4>*04********** 


«*4!4t03 ********* 


*CHKASG GU * 


* RETURN * 


♦-♦-*-*-♦-*-♦-*-* 


* TO * 


♦ CHECK SYSLOG * 


* CALLER * 


* ASSGINMENT * 


K<4i If « «4ii((« * * 4c« 4c « « 


* ♦ 



.* IS 

SYSL«^T 
*. ASSIGNED 



C5 ♦. 
.♦SYSLOG *. 
,*AND SYSLST 
♦. En SAME 
*. DEVICE 



itiilf*m************* 



E4 *. 
.♦ ♦ 
NO, .♦ ...IS^ 

'**"**. ASSIGNED 



.* 



*«D5 ****»♦♦ 
♦SET SYSLOG ♦ 

* EO SYSLST 

BIT ON- 

♦ COMREG + 

* 56 BIT 7 * 



* YES 



IS ♦- YES 
SYSLOG .*...« 
CRT .* 



.* IS *. 
«* SYSLOG *. 
.CONSOLE PRTR » 
*. KEYBD .♦ 



4r4c4e*)((i|t «:#«:#« 



^t:tiiHti4f***:l^** 

X 
**♦♦ 

♦ * 

♦ 83 * 

♦ * 
**** 



* CLEAR LOG 10 * 

* IN PIB TABLE * 

* *H5 * 

* * 



♦SET SYSLOG ♦ 

* EO PRINTER 

BIT ON 

* COMREG+56 

* BIT 6 * 



*****K4**^**«**** 

* * 

* SAVE SYSLOG * 

* PUB POINTER * 

* IN REGISTER * 

* * 



«##4cG5 ♦♦♦♦**♦** 

* RETURN TO * 

* CALLING SEQ * 
« * 

^■^ill(ilfi)tilfit"¥***#*** 



*H5 
GET FRPPEP 
PIB BY ADDING 
PTK-PROGRAM 
INTERRUPT KEY- 
TO PIB TABLE 
ADOP. 



* A5 * 
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Chart GM. $JOECTLA - Read Control Statement froir SYSICG or SYSRDR 
Refer to Chart 05. 



♦ ♦ 

* RDSTMT * 



* CLEAR * 

* BUFFER * 

* AREA * 

* ♦ 





♦ ♦ 

♦ A3 * 

♦ ♦ 


ilfil,iti^ff^2 ********* 

RLINDT * 
♦ 


RDRIN X 

* ♦ 

* GET * 

* SYSRDR. DFB * 

* ADDRESS * 

* * 



4c«4c9t<«4<4>**>(c«4t«4>4c4c* 



RLINDT .♦. 

CI *. 
.* INPUT ♦. 
.♦FROM SYSLOC*. 
*. OR 

*, SYSRDR .♦ 

*. .♦ 

*, ,* 



* * 

* A3 * 

* * 
♦*♦* 



* LOGINl ♦ 

♦ ♦ 



LOGIN 

if1fili:^:^iQ2********** 

* * POST * * 

* *A (IGNORE) * * 
...X* *IN POINT!- ♦ * 

♦ * PR * ♦ 

♦ ♦ EXIT * * 



ifittitlltfi),Q2********** 

* * POST ♦ * 

* ACRDSTMT) IN* * 

* *P0INT2 - BR* * 

* * EXIT * ♦ 

* * * * 



:t>«4t««E2 ********** 

* * * * 

* * POST * * 

* A(BUFFER) IN* * 

* * POINT 3 * * 

* * * * 



INSERT 

REQ FOR 

PROC. 



««4<**C3 ********** 

* ♦ 

* GET * 

* PROC. DFB * 

* ADDRESS * 

* * 



RDRIN3 X 

*****D3 ********** 
♦EXCPRG GO* 
*_*_* -♦_♦ _♦ -♦_♦ _* 



*!(C«««**4<!t<«4c««)«(4<« 



E3 *. 

.PROCEDURE. 
.*eOVERWRITE * 
*. PROCESSING 



.X...'.. 

RDRIN5 

>(c4c«*«E 4**** ****** 
♦INCLUDE GL* 

*_♦-*-♦-♦_*-*-*-* 
...X* INCLUDE * 

* SUBROUTINE * 



«4c«itc3(c«*«3tt4c**«*4c«4c 



^^♦♦F 1********* 

* RETURN VIA * 

* REG POINTl * 

* * 



LOGINl .*. 

F2 *. 
.* IS *. 
NO .* SYSLOG A *. 
....♦CONSOLE DEVICE.* 



ERROR *. 
FLAG SET 
.IN JBCSW6.* 

*, .* 



««*«*G2 ********** 

* SUPPRESS * 

* SYSLOG * 

* OUTPUT VIA * 

* JBCSW4 * 

* * 



«««««H2*^^^^^**** 
*EXPRG GQ* 

* READ * 

* STATEMENT * 

* FROf« SYSLOG * 
««♦«*♦*♦♦♦♦«♦♦♦*« 



«4tG4******* 

* ♦ 

* RESET 
OPRND NUMBER 

* TO ZERO 

♦ * 



4e4(«««H4^^ *♦*♦♦♦♦♦ 

* * 

* SET POINTER * 

* TO ERROR MSG * 

* IM20D * 

* ♦ 



***** 

*GW * 
* D2* 



***4c*K2 ********** 

* TRANSLATE * 

* INPUT FROM * 

* LOWER CASE ♦, 

* ALPHA TO ♦ 

* UPPER * 

*4c*************** 



.♦ERROR FLAG ■ 
.X^. SET IN 

♦. JBCSW6 . 



*3(c***K 4^^^^^^*^^^ 

* * 

* EXCHANGE ♦ 
X* BUFFER AND *, 

* DVBUFFER ♦ 

* * 

4c**************** 
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Chart GN, $JOBCTLA • Subrcutiues fcr Cataloged Prcceclure Overwrite HaEdlicg 
(Part 1 of 2) 
Kefer to Chart 05. 



♦♦**A1 **♦*♦♦♦♦♦ 

* * 

* READOV ♦ 

* ♦ 



READOV 

* MOVE OV. ♦ 

* STATEMENT * 

* FROM DVBUFFER ♦ 

* INTO BUFFER ♦ 

* * 



* SET OV- ♦ 
♦REQUEST FLAG ♦ 
♦FOR SUPERVISOR 
♦ IN P-SWITCH * 



♦ B3 ♦ 



RD0V08 X 

4c4<*4c«B3 ♦♦♦♦♦♦♦♦♦♦ 
♦TESTOV GP+ 

♦_♦_*_♦_*_*_♦_♦_* 

* TEST OV-STMT ♦ 
♦POST CONDITION * 
♦FOR BLANK, OVEND+ 



:(c«4c««*«4<4i4<« 



«*4t#4t*«*:<e*«*«4<«*« 



WAS 

BLANK 
POSTED 



♦ RESET OV- ♦ 

♦REQUEST FLAGS* 

♦ FOR JOB CTL ♦ 

* AND * 

♦SUPERVISOR ♦ 



.♦ IS ♦. 

.♦ PROCEDURE 
. CALLED BY 

♦.OPERATOR . 



R00V06 X 

♦ GET ♦ 

♦ ORIGINAL ♦ 

♦ SYSRDR LUB TO ♦ 

♦ READ DV-STMT » 

♦ 1ST BYTE ♦ 



* * 

♦ GET ADDRESS ♦ 



♦ OV-RDR-DFB ♦ 

♦ * 



♦EXPRG GQ+ 

*_♦_♦_♦_«-*_♦_*_♦ 

♦READ OVERWRITE ♦ 

♦ STATEMENT * 

* * 



♦ ALTER ♦ 

♦ SYSRDR LUB ♦ 

♦ FOR PROCEDURE ♦ 

♦ PROCESSING ♦ 

♦ * 



ROOVIO 

«***4cE 2 ♦♦**»***** 

♦ ♦POST RETURN* ♦ 

♦ ♦ADDRESS FOR+ ♦ 
...X* ♦ EXITO IN * ♦ 

♦ ♦LOGIN! SUB ♦ ♦ 

♦ ♦ IRD0VER> ♦ ♦ 

«4t*4c***«*******«* 



«:«:«4c*F2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦POST RETURN* * 

♦ *ADDRESS FOR* ♦ 
♦EXITl IN L0GIN1+ 

♦ *SUBR0UTINE ♦ ♦ 

♦ ♦ JRD0V02I ♦ * 

*«««4c««*«*«:4t«4'**<c 



♦♦♦♦♦G2 ****♦♦*♦** 

* *P0ST AODR. * * 

* * OF OVER- ♦ * 

* ♦ WRITE ♦ * 

* * BUFFER IN * * 

* * PCINT3 * * 

:(c4c:ic:tt« # 4[:|c :(<***«**** 



* POST ADDRESS* * 

* OF OV-LOG-DFB * 

* * IN * * 

WRKRG3 



****AA****^^^^* 

♦ * 

♦ PDOVEP * 

♦ * 



RDOVER 

♦ MOVE STMT * 

* FROM BUFFER ♦ 



««4c« 4e* :((>«(««* 4: :4e** 4<* 



* FETCH * 

* MESSAGE * 

* INOOT * 

* ♦CS * 

* ♦ 



*MSGOUT GJ* 

♦ _:«<_♦_*_♦_♦_*_*_* 

* LOG MESSAGE * 



:f:tc:4c4c«4c*4c*:«>4c««***« 



4c«:4i4:*EA***^^**^^* 

♦LSTOUT GJ* 
* PRINT MESSAGE * 



:(c)0c^4e:t(«:|c4:********3«c 



4:«4t**F4*******^^^ 

* MOVE CONTENTS * 

* OF OVBUFFER * 

* INTO BUFFER * 
♦CLEAR OVBUFFEP ♦ 

* * 

«3(c4c4:***4t********« 



:4c«4c:(ci«e(;44c*******4c* 

* MOVE * 

* OVEND ♦ 

* COMMAND ♦ 

* INTO ♦ 

* OVBUFFER * 
**********♦**♦*#♦ 



*C5 

INVALID CONSOLE 

DEVTCE 



* * 



* * 



««)(e:ic«:|c4c*«««4t«««:(:# 



♦READ OVERWRITE * 

* STATEMENT * 

* FROM SYSLOG * 



**K2*****^+ 

♦ SET FLAG * 

♦SYSLOG OUTPUT* 



««:4c4^«##:«:#4c:«c 
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Chart GP. $JOBCTLA - Subrcutines fcr Catalcged Frccedtjre Overwrite HandliKg 
(Fart 2 of 2) 

Refer to Chart 05. 



* TESTOV * 

* * 



TESTOV 
YES ,*" 



IS ♦. 

OVBUFFER 
BLANK .* 



C2 *, 
.♦ IS 
.* OV-STM 
♦. OVEND 



**C3******* 



««it(«4<«««)(c4t4c 



** * « A 44c 4c * ^c >tt « :4i * * 

* * 

* OVEND * 

* * 



.* PROCEDURE *. 
.AND OVERWRITE. 
♦PROCESSING.* 



**C4******* 

* ♦ 
RESET 

OV-FLAG 
IN P-SWITCH 

* * 



* PROVIDE * 

* SAVED AND * 

* UNINTERPRETED * 
♦STMT IN BUFFER * 

* * 
***iifif*if ********** 



««:((«* E4*««]^3t(>|e««4(«: 



»««4(«*4c3«c««**««4:4(4c 



7ti*f4t******* 

* * 

SET FLAG 

STMT 

PENDING 

* * 



***** 

*GC * 
* 81* 



OVDERR 

iii*itiiftffi,t:, ««*« ««««** 

* POINT TO * 

* MESSAGE * 
...X* IM3ND * 

* *D5 ♦ 



*iit***itif*ifif******* 



*0 5 

1M3ND VALID ONLY 
DURING PROCESSING 
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Chart GQ, $JOBCTLA - EXCP Subroutines (Part 1 cf 
Refer to Chart 05. 



^y 



m * 

* EXCPRG * 



EXCPRG 


X 




m***i^Bl********** 


* 




* 


« 


SAVE 


^ 


« 


REGISTERS 


* 


* 


*B2 


* 



4c4i**#««4(«««**#4<*« 



♦-♦-*-♦-♦- 

♦ ENABLE MULTI- ♦ 

* PROG AND SET ♦ 
♦SYS MASK X»FF' * 



REGISTERS WRKRG3 
AND WRKRG4 ARE 
SAVED IN lORGSA. 
THE LINK REGISTER, 
LINKRI, IS SAVED 
IN LINKSA. 



*C2 
IF THE FLAG BYTE, 
DFB PLUS 17, BIT 
ISA 1 THE CCB 
HAS ALREADY 
BEEN INITIALIZED 



**♦♦ 

* * 

* B3 ♦ 

* * 
♦♦*♦ 



.* . 

B3 *. 

.MUST CCB*. 



4t4c4c**B 5**** ****** 



.* IS * 


YES 


. THE FILE 


*. •• . 


*. OPEN .* 




*. .* 




*. .* 


X 


* NO 


***** 




*GR * 




♦ F3* 




* * 




* 




EXCECP 



****4cEl*«***««4c«4' 

♦ INITIALIZE DFB ♦ 

♦ DEVICE TYPE * 

♦ AND FLAG BYTE * 

♦ *F2 * 

♦ * 
****«*«««*******« 



«**]i:4cF I*** ***♦**♦ 

♦ COMPUTE LUB ♦ 

♦ POINTER IN ♦ 

♦ WRKRG3 * 

♦ *G2 * 

♦ * 
*******4c** ******* 



*****G1********** 
♦CHKASG GU* 

*_»_*_*_♦-*_*_*-* 

♦ CHECK * 

♦ ASSIGNMENT ♦ 

♦ FOR THIS FILE ♦ 

***«4c*:ti4[4:* ***««** 



.* IN DFB BE ♦ . NO 




.♦ IS ♦.YES 


♦ LOAD INPUT ♦ 


♦. INITIALIZED ...... 


♦ . IT .* 


...X* CCW ADDR » 


♦. ♦C2 .♦ 




♦. INPUT .* 


♦ IN WRKRG2 ♦ 


*, ,* 




♦ . .♦ 


* ♦ 


*. .* 




♦ . .♦ 




♦ YES 




♦ NO 




X 




I 


STDUCHN X 


:«(4:««*Q34c4e*4!****** 




**4e«*(^4««***4c4c*** 


iK*4c4c«C 5 ♦♦♦♦♦♦♦♦♦♦ 


* MOVE THE CCW ♦ 




* * 


* * 


♦ ADDRESS TO * 




♦ LOAD ADDR OF * 


* STORE CCW ♦ 


♦ CCB. -DFB ♦ 




♦PCH OR LST CCW ♦...., 


...X+ AODR IN ♦ 


♦ PLUS 8, ♦ 




♦ IN WRKRG2 ♦ 


♦ DFB ♦ 


♦ DFBCBA- ♦ 




* * 


* ♦ 


***************4i4( 




*««*:|(***«4i#4t***** 

**** 

♦ * 

♦ D4 *... 

♦ * . 


***4c*«*4i********* 

* 


X 




**** 




.*. 


'. LINK INT X 


X 


D3 ♦. 




*j|c**4c04*4t****4>4e** 


4t*Q5 4c4i*4c*«« 


.* *, 




*SET APPLICABLE ♦ 


* ♦ 


TAPE .* CHECK ♦. U/R 




♦ DISK LIOCS ♦ 


♦ TURN ON * 


...♦. DEVICE .*..X 




♦ CODE IN DTFPH ♦ 


* ACCEPT DATACK ♦ 


♦. TYPE .♦ 




* *H2 ♦ 


* DFB +2, ♦ 


♦ . .* 




* * 


* X»08» * 


X *. .* X 


***************** 


**«**«4c**** 


»*** * DASD ***** 






* . *GR * 






F5 ♦ . ♦ K2+ 






* . * * 




X 


**** , * 


* 


***** 


X FINOPN 




*GP ♦ 


,*. 


X 


* B2* 


E3 *. 


«*E4***«*** 


* * 


,* *. 


*PESeT OPEN ♦ 


* 


.* OEVTYPE ♦. YES 


♦ SWITCHES IN ♦ 


MVDU 


*. 3540 .*.... 


♦ DTFPH ♦ 




*. .♦ 




* TABLE * 





«**#3|C****** 



DEVICE TYPE, DFBDVC, DFB 
PLUS 22 EQUALS X»FO«. 
TURN OFF BITS 0, 1, AND 
2 IN FLAG BYTE, OFBFLG, 
DFG PLUS 23. 



DFB PLUS 6, DFBCBL, 
EQUALS THE SYMBOLIC UNIT 
ADDRESS. WHEN DOUBLED, 
THIS VALUE IS THE LUB 
POINTER FOR THE 
SYMBOLIC UNIT. 



♦**i**P3*)(c ******** 

♦ MOVE THE DISK ♦ 

♦ I/O CCW CHAIN ♦ 

♦ ADDRESS TO ♦ 
♦CCB. -DFB PLUS ♦ 

♦ 8, DFBCBA- ♦ 
***************** 



*****Q3******4c*** 

♦ ♦ 

♦ SET CHAIN ♦ 

♦ BIT ON IN ♦ 

♦ 5TH CCW ♦ 

♦ * 
***************** 



*****P4********** 


F5 *. 




♦ FETCH ♦ 


.♦ IS *. 




♦ SSBOPEN ♦ 


.* ASA ♦ 


. NO 


♦ OPEN IJSYSLN * 


*. SUPPORTED 


...... 


♦ -SYSLNK- ♦ 


*. ON THIS .♦ 




* * 


♦DEVICE.* 




***************** 


♦ . .♦ 


X 




♦ YES 


***** 
*GR * 
* K2* 

* * 
* 
FINOPN 


X 


X 




*****G4********** 


*****(; 5 ********** 


♦ INIT DFI ♦ 


* MOVE THE ASA 




♦ TABLE FROM * 


♦ CCW ADDRESS 




♦ THE DTFPH, * 


* TO THE CCB 




♦ IJSYSLN * 


* -DFB PLUS 8, 




* *K5 * 


♦ OFBCBA- 




***************** 


***************** 



HI *. 




*H2 


.♦ IS ♦. 




LIOCS CODE 


.♦ THIS FILE ♦ 


. NO 2311 X»00« 


♦. ASSIGNED 


.♦ 


2314 X»01' 


♦ . •♦ 




3330 X«04« 


*, ,* 




3340 X«08» 


*. ,* 




X 3340 X»09' 


♦ YES 




***** 3340 X'OA" 
*GT * 
♦ E3* 
* ♦ 
* EXPEXT 


X 
*****j I********** 




* RESTORE DFB 


♦ 




* ADDRESS IN 


♦ 




♦ WRKRG3 FROM 


* 




♦ lORGSA 


* 





***** 
*GR ♦ 
* H2* 



H3 *. 
* 

SYSRDR 



***** 

♦ GR * 

♦ B2^ 



*****H5 ********** 

* SET THE CHAIN ♦ 

* BIT OFF IN ♦ 

* ASA CCW ♦ 



***************** 



***** 

♦GR * 
♦ H2^ 



***************** 



*****K 1********** 

* SET DEVICE ♦ 

* TYPE AND ♦ 

* CHANNEL AND ♦ 

* UNIT INTO DFB ♦ 

* FROM PUB ♦K2 ♦ 
***************** 



♦ K2 

1. DEVICE TYPE 
MOVED TO DFBDVC, 
DFB PLUS 22. 

2. CHANNEL AND 
UNIT MOVED TO 
DFBCUU, DFB PLUS 
20 AND 21. 



*K5 ^ 
SET CURR ADDR 
SET WR SRCH AODR 
SET UPPER LIMIT 
SET LOWER HEAD LIMIT 
SET UPPER HEAD LIMIT 
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Chart GR, $JOfiCTLA - EXCP Subroutines (Part 2 of 4) 
Refer to Chart 05, 



*♦**♦ REFERENCES 
* * TO GR82S 



FORMAT OF DIBS AND POINTERS ARE 
LUBPTR DIBS 

SYSFIL NO SYSFIL 
.SYSLNK, -SYSLNK. LENGTH - 9 
.IPT. - - .SYSIN. .PROC. . 

.PCH. .SYSPCm. 

.LST. SYSLST. LENGTH OF ENTRY - 24 



62 ♦. 
* ♦, 
TEST ♦ 
LOGICAL 
UNIT .* 
*. .* 
*. .* 
♦ SIPT 



, SRDR .* REQUEST *. NO 

.* X*.FOR PROCEDURE.*... 

♦.STATEMENT.* 



NO .* PROC. *. 


YRS . 


* 


SYSFIL *. 


...*. WITH SYSIPT .♦ 


......*. 




SUPPORT .* 


♦. DATA .* 




* 


.AVAILABLE.* 


*, .^ 






*. .* 


♦. .* 






*. .* 


* YES 






* NO 


PRCDIB X 






X 


«4'4c**D2 ********** 


«4<«*«03 ********** 


* GET OFFSET * 


* 




* 


* OF PROCEDURE * 


* 




GET ADDR * 


* DIB ENTRY * 


* 




OF PROC. * 


* *A4 * 


♦ 




DIB ENTRY * 


♦ ♦ 


* 




* 


^«^3«c 4c «««#*««# 4i:«c4<:«( 


^itt^***=it********** 


xl 






Tx 




X 

**** 








* * 


DOFFSET X 






* F2 ♦ 


*«*4c>t(E2********** 






♦ ♦ 


* COMPUTE DIB * 






♦**♦ 


* ENTRY ADDR. * 








* USING POSTED * 








* OFFSET * 








* * 

«4<«4<4c:t<*4'****«*:tc:«<* 






r!i T'o'^'i^m 



* GET OFFSET 

* OF SYSIN 

* DIB ENTRY 
* 

4> lie* # 4c « * :(( 4c ♦ 94c :«t « 4c * « 



*F1 

CURR ADDR 

KEY AND DATA LNG. 

END ADDR. 

UPPER LIMIT 

LOWER LIMIT 



REFERENCES 
TO GRH2: 
6QH3, GQH5 



**** 

X 
4c 4c«4c4<f:2 ********** 

* I NIT DFI * 

* TABLE FROM * 

* DIB * 
*-lST 20 BYTES- * 

* *F1 * 
4c4c4c4t4c*«****«4c4c4c4c4c 



4c 4c*a(c«G2 ********** 

* * 

* INIT SEARCH * 

* ADDRESS AND *. 

* CURR ADDRESS * 

* * 
4c4c4c*4c4<*4c4c4c**4c4c*** 



* H2 *... 

* * , 
***4c 

DSKIND X 

4c*4«*4cH2 ********** 

* RESTORE * 

* WRKRG3 * 
...X* FROM * 

* I ORGS A * 



4c4c4c*«4c«4c4c4c*««««** 



**J2******* 
*SET SWITCH * 
*0N TO INDICA-* 
*TE NON UNIT RE-* 
♦CORD DEVICE- * 
OFBFLG BIT2-* 
4c4c4(***«*«** 



** ** GQOlt GSBl 



.* IS *. NO 
DEVICE .*.... 
*.TYPE DISK.* 



4cit(4c<<4c 
*GT * 
* Dl* 



NOTOISK 
X 
4( 4c 4c**G3 ********** 
4c * 

* SET WRKAG4 * 

* TO POINT TO * 

* OFl TABLE * 

* 4c 
4c4c4c«**«**4c«4c**'|c4c« 



UPPER *. YES 
EXTENT .*.... 

.EXCEEDED .* 
*. .* 

*. .* X 

* NO *4c*** 
*GT * 
* 02* 



4c4c4c4c*«*4c4c4c4c4c«**** 



4c4c4c4ci«cH4********** 



4c4c4c*«4c4c*«***«**>tc4c 



*K1 

BIT IF ON 

INDICATES THE FILE 

IS OPEN. 

BIT 2 IF ON 

INDICATES THE FILE 

NOT UNIT RECORD. 



REFERENCES 
TO GRK2S 
GQD3, GQF5 



4c**4c 



* *.X, 



♦**♦ 
FINOPN X 

4c 4< 4c 4c 4cK2 ********** 

* FLIP-FLOP * 

* BITS AND 2 * 

* IN THE DEBFLG * 

* *K1 * 
4c * 
4c4c4c4c*4c4'«4c4c«4c««««« 



UPDHDN X 

4c4>«««J3*«4c4:4c«4c4c4c4t 

* UPDATE DISK * 

* SEARCH ADDR * 

* AND CURR * 

* ADDR * 

* -CCHHR- * 
4c4c4c*4c««**4c«**4c*«4: 



X 

♦ ♦4«4c4t 

♦ GT ♦ 



4c4c4c*4cJ5«4c4'**«4c*** 

* * 

* ADJUST CYL ♦ 
X* AND RECORD * 

* TO ACTUAL * 

* EOD * 

4e4c4c4c4c4c4'*4c4c««4c4c4c4c4c 



* SUBTRACT * 

* RECORD NO BY * 
♦ONE FOR ACTUAL * 

* EOD * 
4c4c4c«:4<itc4c4c*******4c* 



***4'* 
*GS * 
* BI* 



.X.. 
X 

4c*** 

* * 

* H2 * 

* * 
**** 
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Chart GS. $JOBCTLA - EXCP Svbrci^tines (Part 3 cf U) 
Refer to Chart 05. 





* K2* 




♦ B2 * 




* * 




* * 




♦ 




**♦* 




* 




* 




X 








.*« 


GET VOL X 




Bl *. 




*****B24<**4<*4>4<4i** 




.* * 




* ♦ 




.* IS DEVICE 


♦ . NO 


♦ SET REC NUM ♦ 


..X*l TYPE 


.*. ... 


♦ TO 21 * 




♦. 3540 .♦ 


♦ INITIALIZE * 




♦ . .* 




♦ DTF ♦ 




♦ . .♦ 


X 


***************** 


**** 


♦ YES 


***** 




* ♦ 




♦GR * 




♦ Bl ♦ 




♦ F3* 




* * 




* * 




**** 




* 








EXECP 


X 


DULO 






.*. 




CI *. 




C2 *. 




.♦ ♦ 




.* ♦. 




♦CCB CHAN 9 


*. YES 


.♦ IS ♦. ^ 


» 


BIT ON 


.♦. ... 


♦. IT .* 




♦. FOR PWR 


♦ 


♦. INPUT .* 




♦ . .* 




*, .♦ 




*. .» 


X 


♦ . ,* 




♦ NO 


***** 


* NO 






♦GT * 
* 02* 

* * 

* 








EOFPRC 




NPMR 




SETOUT X 




Dl ». 




*****Q2********** 



* B3 * 

* * 

**** 



***** 

♦ GT * 

* 02* 



*****(;;3 ********** 

* * 

* SET INPUT * 

* IND IN DTF * 

* SET FILE NAME * 

* TO SYSIN * 
***************** 



***** 
♦GT * 
♦ H2* 



IS 

DEVICE 

3540 



* SET OUTPUT * 

* IND IN DTF ♦ 

* SET FILE NAME * 

* TO PCH OR LST * 
***************** 



***** 

♦ GT * 

♦ E4* 



ERROFF 

♦*C 5 ♦****♦♦ 

* TURN * 

♦ OFF SWITCH; 
* TURN ON 

* ACCEPT DATA 

* CHECK * 
*4c** ******* 



CCW OP 

CODE IS 

X«21« 



***** 
♦GT * 
* E4* 



*****PX********** 

* * 

* UPDATE ♦ 

* CURRENT ♦ 

* PEC BY ONE ♦ 

* * 

****************4c 



♦ CHANGE CCW * 

* TO FEED * 

* RESET CHAIN ♦ 

♦ BIT ♦ 
***************** 



***F2^*^^^^^*^^^^ 

♦ SVC ♦ 

FOR 
♦ FEED ♦ 

***************** 



3^****55 ********** 

♦ RESTORE CCW ♦ 

♦ OP CODE TO * 
*X«05«; RESTORE ♦ 

* CHAIN BIT * 

* * 
***************** 



*#3|e#4cQ |^4ci(4c******* 

♦ * 

♦ ADD 1 TO CYL ♦ 
X^ SET REC NUM ♦ 

♦ TO ONE ♦ 

♦ * 
***************** 



X 
***** 
*GT ♦ 
* D1+ 



I/O ♦. 

COMPLETE .* 

•. .* 



**H2***^^^^ 

♦ TURN ON ♦ 
♦ SCONT SW. ♦ 

♦RESTORE CCW TO 
♦SEEK RESTORE * 

♦ CHAIN BIT ♦ 
*******»*«« 



****«J2 ♦♦♦♦♦♦♦♦♦♦ 

* * 

* FETCH * 

* $$BOPEN ♦ 

* FOR NEW ♦ 

* VOLUME ♦ 
***************** 



**K2**^^^** 

♦ * 
RESET 
SCONT 

SWITCH 

* * 
*********** 



^WAS ♦. N 

Open .♦. 
GOOD ,♦ 



**G3 ******* 



*********** 



***** 

♦ GR « 

* B2* 



IS 

IT 

INPUT 



**G4^**^^** 

* * 
TURN OFF 

ACCEPT 
DATA CHECKS 

♦ * 
*********** 



♦ CHANGE CCW * 

♦ TO WRT F RFC ♦ 

♦ FROM BUFFER ♦ 

♦ * 

*******«******3|I*4l 



.♦ MORE ♦. NO 

EXTENTS .♦... 
♦ . .♦ 



*****K3********** 

* * 

* ISSUE MSG * 

* 1 AS 1 1 ♦ 

* DISKETTE VOL * 

* OPEN FAILURE ♦ 

************3|e**** 



EOFPRC .X«. 
X 
***** 

♦ GT ♦ 

♦ 02^ 



♦ SUBTRACT ♦ 

* ONE FROM ♦ 

♦ REC NUM ♦ 

* * 
***************** 



**J4******* 

* * 
TURN ON 

ERROR 
SWITCH 

* * 
*********** 



**** 

♦ * 

♦ Bl ♦ 

♦ ♦ 
***♦ 
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Chart GT. $JOECTLA - EXCP Subroutines (Part 4 of 4) 
Refer to Chart 05. 



* A2 *... 

* ♦ . 
**♦* 

EXCPGO X 

* SET UNIT * 

* EXCEPTION SW ♦ 
♦OFF IN DFB FLAG* 

* -DFBFLG- * 

* * 



A3 *. 

OVERLAP 



EXCCON 


.*. 




B2 *. 




* UNIT * 


.* 


EXCEPTION 


*. 


ON THIS 


* 


I/O 



C2 *. 

.* ALSO *. 

EOF ON 

SYSRDR OR 

. SYSIPT . 

*. .* 



* WAIT 

FOR DEVICE 
*. END 



* * 

* POST WAIT * 

* FOR DEVICE * 

* END * 

* * 



* * 

* REFERENCES 

* TO GTDl: 

* GRF3, GRJ3 
NOTDSK X ^SGl 

* * 

* RESTORE DFB ♦ 
♦ADDR IN WRKRG3 ♦ 

* FROM lORGSA * 

* * 



* ♦.X. 



REFERENCES 
TO GTD2: 
GRH3, GSB3 
GSCl, GSK3 





X 








.* 






El 




*, 




.* 


S 


* 




DEV V/R 


* 


AND 


S 


ASA 




•SUPPORTED 


* 



**♦* 
EOFPRC X 

♦****02 ********** 

♦ SET UNIT * 
♦EXCEPTION SW ON* 

♦ IN DFB FLAG * 

♦ -DFBFLG- * 

♦ * 



..X* B4 * 

* * 

**** 

SETWRT 

4: ](c 4c 4:*E 2 ********** 

* SET UP WRITE * 

* COMMAND * 

♦ IN CCW, *X. 

♦ DFBCCW * 



:ti!^iff:t'**********^** 



Fl *. 
.* IS * 
.* IT 

*. SYSPCH 
*, 

*. .* 

*. .* 



* r * 

♦ SET SPACE 1 * 

♦ LINE COMMAND * 
♦IN CCWt DFBCCW * 

* * 



♦ *♦* 

* * 

* HI *.X 

* * 
**** 

SPCEXC X 

***H I*** ********* 

* EXECUTE * 
CARRIAGE 

* CONTROL * 

:tc4c*«««««««:«ci(c4c*4c3(c« 



YES 


♦ 


OVERLAP 


... * 




REQUESTED 




<< 


*K5 






*. ,* 


X 




♦. .* 


**♦* 




* NO 



* ISSUE * 
I/O 
* COMMAND * 



**** 
RLPI 



I/O 
COMPLETE 



YES 



***** 

*GS * 

* C4* 

* * 



EXCPSVC 

*«*[)3*4c«* «*****«:« 

ISSUE I/O 

* COMMAND AND * 

WAIT 

* FOR * 

COMPLETION 

4(*4c************** 



**♦♦ 
*G0 * 
* HI *.X 



**** 
EXPEXT X 

:ti**ti*E3 ********** 
*MTNCNT GU * 

*_♦_*_*_*_*_*_»_* 

* SEIZE * 

* SYSTEM * 

* * 
***************** 



4>****P3 ********** 



«**«*«;(( «*****«*** 



♦♦**G3** ♦♦*♦*** 

* RETURN TO * 

* CALLING * 

* SEQUENCE * 
*************** 



H3 *. 

.* WAS *. 

.* SPACE 1 *. 

.LINE COMMAND . 

*. SPECIFIED.* 

*. *J5 .* 

*. .* 

* NO 



**** 

* * 

* H3 * 

* * 
**** 



♦****J2 ***♦♦*♦*** 

* * * * 

* ♦ SVC 7 * * 

* * WAIT FOR * * 

* * I/O * * 

* *COMPLETION * * 
***************** 



*****K I********** 



* * 



* « 



SVC 7 

♦ * WAIT FOR * * 

♦ ♦ I/O * * 

♦ *COMPLETION * * 
***************** 



♦♦♦*«j3 ********** 

* * 

* SET SKIP TO 1 * 

* COMMAND IN * 

* CCW, DFBCCW * 

* * 
***«********«**'«* 



*****K3 ********** 

* * 

* MOVE A BLANK * 

* TO ASAIND, * 

* BUFFER-1 * 

* * 

******* «;^****4<)tc** 



♦ *** 

♦ * 

♦ 64 * 

♦ * 

**** 



* ATTN. *. NO 
ROUTINE SW .*... 

*. ON •* 



♦♦♦* 

* * 

* E3 ♦ 

* * 
**♦* 



*****C4********** 
*MTNCNT GU * 
♦_♦_*_*_♦_*_♦_«_* 

* SEIZE * 

* SYSTEM * 

* * 

***«***«4t«***4!*;4(* 



***** 

*GV ♦ 
* 81* 



* REFERENCES 

* JO GTE4: 

* GSC4, GSD5 



SYSIPT *. 

OR 
SYSRDR .* 



♦♦♦♦♦G4********** 

* * 

* SHIFT BUFFER * 

* TO LOSE * 

* ASA CODE * 

* * 
***************** 



*J5 
IF ASATNDt BUFFER MIN 
1-BYTE, IS BLANK THE 
SPACE 1 LINE COMMAND 
WAS SPECIFIED. 



*K5 
BIT 3 OF THE DFB 
FLAGt DFBFLG, IS 
TESTED. 
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Chart GU. $JOBCTLA - Miscellaneous Subroutines 
Refer to Chart 05. 



« * 

♦ HTNCNT * 



♦ INITIALIZE * 

♦ REGISTER * 

♦ *B2 ♦ 

♦ « 



4i«4t4t«C l*'*^*^'^'**** 



4i4>4t*4e«4'*4c#«4<4'4i:t>** 



4c4:«*0 I********* 

* RETURN TO ♦ 

* CALLING ♦ 

* SEQ * 



♦ CHKASG * 

* * 



CHKASG X 

* COMPUTE ♦ 

* LUB ADDRESS * 

* FOR THIS UNIT ♦ 

* IN WRKRG3 * 

* *B4 * 



* * 

* CHKASG3 * 

* *A5 * 



*A5 
LABEL CHKASG3 USED 
IN ^JOBCTLO. THE 
ENTRY POINT m 
^JOBCTLA TS CHKASG+4 
(IN THE BRANCH 
VECTOR TABLEK 



*C2 

TO SETTING SYS MASK, 

EITHER SEIZES OR RELEASES 

THE SYSTEM. 

TD ccT^c <;y*( 7 5 yn ni;<:&piP 

MULfi-PROGRANMING. 

TO RELEASE SYS IS TO 

ENABLE MULTI-PROGRAMMING. 



« * 

* SAVE * 

* LUB * 

* DISPLACEMENT * 

* * 
*^t))mitf***if** ****** 



CHKASG3 .*. 

D3 *. 

.* IS *. 

.♦ THE ♦. NO 

♦.LOGICAL UNIT .*... 

♦ .ASSIGNED .* 

*. *C4 .♦ 



* YES 



:tct***E3********** 

* COMPUTE PUB * 

* ADDRESS FOR * 

* THIS UNIT IN * 

* WRKRG4- * 

* +04 * 



*B4 

THE LUB TABLE OISPLACFMENT 
FOR THE UNIT TO BE CHECKED 
IS SUPPLIED IN WRKRG3. the 
LUB ADDRESS IS OBTAINED BY 
ADDING THE LUB tabLE 
ADDRESS TO WRKRG3. 



*C4 
IN BYTE OF THE LUB, X'FE' INDICATES 
•IGNORE' AND X'FF' INDICATES LUB fS 
UNASSIGNED. IN ETTHF" CASE THE 
CONDITION CODE IS SET tq l. 



BYTE OF THE LUB 
CONTAINS THE PUB POINTER. 
THE PUB POINTER 
MULTIPLIED BY 8 EOUALS 
THE PUB DISPLACEMENT. 
THE PUB TABLE ADDRESS 
PLUS THE DISPLACEMENT 
EQUALS THE PUB ADDRESS 
FOR THIS UNIT. 



* RETURN TO * 

* CALLING * 

* SEQUENCE * 
***,tt*********** 
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Chart GV. $JOECTLA • Error Subroutines (Part 1 of 2) 
Refer to Chart 05. 



***** 

*GT * 
* C4* 



* EXCEPTION * 

♦ SWITCH OFF * 

* IN DFB FLAG ♦ 

♦ -DFBFLG- ♦ 
*********itt**4iH!**i^t 



.* JOe IN *. NO 
♦ . PROGRESS .*... 
*. .♦ 



X 

m** 

01 *. 

.* *« 

.* IS *. NO X 

*. UNIT .*...., 

*. SYSLNK ,♦ 



♦♦♦*A3********* 

♦ * 

* QERRTN * 
i^:^t*^^*:il^nc***^l***^^ 



**** 

*GC =< 
* 03 



*.X 



**** 
OERRTN X 

* CLEAR BUFFER * 

*AREA TO BLANKS * 

..X* MOVE DESIRED * 

. * MESSAGE TO * 

. * BUFFER * 

♦ ♦♦* 



* B3 * 



*B4 

lMESSAGE"**OESCRIPfiON ' I 

Iico6A'"*'*AffN!l*cuu '. 

I iciOA*'*! 'please* ASriGN'(SYSRDR*f*S*YSIPtUYSLNKn 

aC86D***rEND*6F*EXTENr6N*rSYSRDR^SYSIpfr"*I 
. SYSPCHt SYSLST, SYSLNK) 

!! 11501***1 'job "xXXXXXXX*CANCELED*6uE*f6 1 

. END OF EXTENSION ON SYSLNK 



****^t£l********:lf:tf 

* CLEAR OUTPUT * 

* BUFFER AND * 

* INITIALIZE * 

* MESSAGE * 
♦II50I *BA* 

**** * 

«6W * 

* J4 *.X, 

* ♦ 
**♦♦ 

ATNCUUl X 

*****f l*ilt*4f****** 

♦MSGOUT GJ* 

♦-♦--.♦-*-*-*_*_*^# 

* DISPLAY * 

* MESSAGE * 

* ON SYSLOG ♦ 
***************** 



**if**Gl********** 
♦LSTOUT GJ* 
♦_♦_*-*-♦_♦-♦_♦_♦ 

* DISPLAY ♦ 

* MESSAGE ♦ 

* ON SYSLST * 

**:tH*^:***;lf***ilfiti:t'** 



***^f*»l****i****** 

* SET CANCEL * 

* INDICATOR ♦ 

* -COMREG+56, ♦ 

* BIT 4- * 

* ♦ 

***:tf:tt************ 



****J I********* 

* RETURN TO * 

* CALLING ♦ 

* SEQUENCE * 
*************** 



NTINJB .♦. 

D2 *. 

,* IS *. 

.♦DEVICE TYPE*. YES 

...X*. DISK/ .*.... 

♦ .DISKETTE .* 



.* 



««**«E2********** 
♦CONVERT CHANNEL* 

♦ AND UNIT TO * 

♦ EBCDIC FOR * 

♦ PRINTING ♦ 

♦ ♦ 
««♦♦♦««♦♦«♦♦♦♦♦«♦ 



4:«)|c««F2********** 

* MOVE CHANNEL * 

* AND UNIT TO * 

* ATTENTION ♦ 

* MESSAGE * 

* * 

*tf*******iti*ilHttltlifi*:4l 



*A'***Q2********** 

* * 

* POINT TO ♦ 

* DESIRED MSG * 

* ICOOA ♦ 

* *B4 ♦ 
«4c*4c4<* ♦♦♦*♦*♦««♦♦ 



4c«4c4:«C3**^****^** 

♦MSGOUT GJ^ 

♦-♦-♦-♦^♦_*_*_* _* 

♦ DISPLAY ♦ 

♦ MSG ON * 

♦ SYSLOG ♦ 
*iflf***i^********** 



*«« :|c4< 03 He* «3tc « ♦♦♦ 4c4i 



♦ CLEAR OUTPUT ♦ 




♦ BUFFER ♦ 




♦ * 




♦ * 




^^^♦♦♦♦♦♦^ ♦♦«♦♦♦♦* 


X 




♦ *♦♦* 




♦ GC ♦ 




* Al* 




♦ * 




* 




ACTRS 


NOEERT 




^^'♦♦♦e:^*^**^^**** 




♦ INI lALIZE ♦ 




♦ iRROR * 




..X+ M iSSAGE * 




♦ FOR SYSRDR * 





#*«««*4c«4(««**««»* 



.♦ IS 
UNIT 
♦. SYSRDR 



:^*iti**Q-i********** 

♦ INITIALIZE * 

♦ ERROR ♦ 

♦ MESSAGE * 

♦ FOR SYSIPT ♦ 

♦ * 
it^^t:************** 



IS 
UNIT 
SYSIPT 



**** 

♦ * 

♦ E4 ♦ 

♦ ♦ 



.* IS 

UNIT 
*. SYSLST 



4c«)tic4:4cF4^**^^^^*^* 

♦ INITIALIZE * 

♦ ERROR * 

♦ MESSAGE * 

♦ FOR SYSLNK * 

♦ * 



G4 ♦. 
.♦ IS *. 
* UNIT *. YES 

SYSLNK .♦... 



* * 

* INITIALIZE * 

* ERROR MESSAGE * 

* FOR * 

* SYSRES * 



* * 

* WAITERR * 

* * 



WAITERR 

* ♦♦♦*H5 *♦*******♦ 

* CLEAR ♦ 

* OUTPUT ♦ 

* BUFFER AND ♦ 

* SET UP ERROR * 

* MESSAGE ♦ 

« Jicst: « « « 3«c « « 4::(<; 4c« :(c « 41 * 



«4ci|c:«( 4c J3 *♦«♦♦♦♦*«♦ 


4cl(c«*«J4:(c4c«4:«*4<*«« 


«4c4c*4<J5 ♦♦♦♦♦♦♦♦♦♦ 


♦ INITIALIZE 


* 




POINT TO * 


♦MSGOUT GJ^ 


♦ ERROR 


* 




DESIRED ♦ 


♦_*_*_*_*_♦_«_♦_* 


♦ MESSAGE 


* 




MESSAGE * 


♦ DISPLAY * 


♦ FOR SYSLST 


* 




-1C80D- * 


* MESSAGE ON * 




* 




*B4 * 


* SYSLOG * 


, 


if:f^V:rm************ 


:)(**#« 4c* :«c 


)c«4e*4c4c«*« 


X 
♦♦♦* 






X 






♦ ♦ 






* ♦ 






♦ E4 ♦ 






♦ Bl * 






♦ ♦ 






* * 


X 


**** 






*♦** 


«]((«* K5 ♦♦♦♦♦♦♦♦ * 
♦PUT SYSTEM INTO* 

♦ A HARD WAIT ♦ 

♦ STATE ♦ 










4c4c*4<4<*^ 


((^'♦♦♦^♦^ 
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Chart GW. $aOBCTLA - Irrcr Subroutines (Part 2 cf 2) 
Refer to Chart 05 • 



♦GC * 
* 05* 



* * 

* B4 * 

♦♦♦♦ 





CHKCNL .*. 










B2 *. 






«**«>B1«4'«***4'4<* 




.* *. 






♦ 




.♦ IS *. YES 




NVSERR * 




♦. JOB BEING .*. 






♦ 




♦.CANCELED .* 






ntf0***********^* 




*, .* 
*. .* 
* NO 

........ X^ 


X 
***** 

*GC * 

♦ Bl* 

* * 

* 

CONTROL 














NVSERR X 










«*3|>««c 2 ***♦*****♦ 










* ♦ 




****C3 ********* 






* POINT TO * 




* 






* DESIRED * 




* ERRRTN 






* MESSAGE * 




* 






* ISOOD * 




^^t^t************ 






«4.4'«««*4»«<4t«**4c««)«c 






REFERENCES 








TO 


GW02: 


♦ *** , 






GCE4 


GMH4 


* * . 






GPB5 


ER 


♦ * *.X. 

* * .X........ 








RCNL* 








ERRRTN X 










;^:(c:tc#*Q2 *♦♦****♦♦♦ 










♦LOGOUT GJ* 










♦_♦_♦_♦_*_♦_*- #_)(t 










♦ LOG STATEMENT * 










* ON * 










* SYSLOG * 










4c«««4:«*4>:4'«:('«*4i#*« 







ERRRTN2 

««*<;«(: 2 ********** 

* CLEAR BUFFER * 
*AREA TO BLANKS * 

* MOVE DESIRED * 

* MESSAGE TO * 

* BUFFER *J2 * 
*]|c***4i««**3(i***4c*« 



*****Q2 ********** 
♦INSERT OPERAND * 
♦POSITION NUMBER* 

* INTO BUFFER * 

* PLUS 3 FROM * 

* OPNUMH *K2 * 
4>*«************** 



RESET AUTO 

CANCEL 

SWITCH 

* ♦ 

4(««**3|t«4i*4i4i 



INPUT 
FROM 
SYSRDR 



.* LOG *. 

, ON SYSLOG - 
*.SI»EC1F1E0.* 

*. .* 



ERRAP 

«««**G3:|c««4e****** 

♦MSGOUT GJ* 

*_♦_*_♦_♦_♦_*_*_♦ 

* DISPLAY * 

* MESSAGE ON * 

* SYSLOG * 

4<«****4e««*«*****4c 



* D4 *.X 



**** 
CNCLMOOl 

«**4>*F4*******«4'* 
*MSGOUT GJ* 

♦_♦-*-*-*_*_♦_♦_» 

* DISPLAY ♦ 

* MESSAGE ON ♦ 

* SYSLOG ♦ 

<c**4t************* 



*****G4********** 
♦LSTOUT GJ* 

*_♦_*_♦-♦_*_*_♦_* 

* LIST MESSAGE * 

* ON * 

* SYSLST * 

!(C4(4C4C************* 



♦ J2 

REGISTER POINTl 
CONTAINS ADDRESS 
OF DESIRED 
MESSAGE. 



*****H5********** 
*LSTOUT GJ* 

* LIST MESSAGE ♦ 

* ON * 

* SYSLST ♦ 
«««***««« 4c 4c ****** 


*4c4c**H4********** 

* CLEAR BUFFER * 

* AND PUT ♦ 

* JOB NAME * 

* IN CANCEL * 

* MESSAGE * 
***************** 


X 

***** 

*GC * 

* Al* 

* * 

ACTRSP 




X 

**4c4c«J/t********** 

* MOVE JOB NAME * 

* TO MSG, MOVE * 



♦ lu n:>V3f nuvc 

♦ MSG 11701 TO 

* OUTPUT * 

* BUFFER * 

«4c4c4c4c************ 



♦ K2 
IF NUMBER 
EXCEEDS 9 
CONVERT TO 
HEX CHARACTER. 



***** 
*GV * 
* Fl* 



Charts 111 



Chart GX. SJOECTLA - Belocaticn Subroutines 
Refer to Chart 05. 



* RELJBC * 



RELJBC X 

♦ PICK UP NO, OF ♦ 

♦ ENTRIES IN ♦ 

♦ RELOCATION ♦ 

♦ AOCON TABLE ♦ 

♦ IN A REG *A5 * 



* PUT TABLE ♦ 

* ADDRESS IN * 

* A REG. * 

* POINTS * 
« * 



X... 



SELRLD X 

* INCREMENT * 

* BY 4 TO * 

* NEXT TBL * 

* ENTRY * 

* * 



* PUT THE VALUE * 

* OF THE FIRST * 

* ADCON INTO * 

* ADDR OF THE * 

* SECOND ADCON * 



♦♦♦^lAB********* 



* EXTRLC ♦ 


♦ * 


«*4t*4t4(4'i|c«4>4t**#4c 


♦ ♦*♦ 




♦ « 




* 83 *.X 




* * 




*♦** 




EXTRLC X 


^^'♦♦♦Ba*^***^**** 


* PUT ADDRESS * 


♦ OF EXTERNAL * 


* SYMBOL TO BE * 


* RESOLVED IN * 


* A REG. ♦ 


1t,:ti1f'^)f ************ 



*A5 
EACH ENTRY 
CONSISTS OF A 

PAIR OF -S- 
TYDE AOCONS. 



END 


*. NO 


OF 


.*. . 


TABLE 


.* 



♦EXTRTN GX * 

#-m-* -*-*-* -*-*-* 

* RELOCATE ♦ 

* THE * 

* ADCON * 

:tt******** ******** 



*****Q'^********** 

* MOVE RELOCATED * 

* SYMBOL * 

* BACK TO ITS ♦ 

* ORIGINAL * 

* ADDRESS * 
***********i***** 



* RETURN TO ♦ 

* CALLING SEQ *: 

* ♦ 
*************** 



.♦ ALL 
SYMBOLS 
♦ .RESOLVED 



* ♦ 

* EXTRTN ♦ 

* * 
******,^******** 



♦ CLEAR AND * 

♦ MOVE ADCON * 

♦ TO WORK AREA * 

♦ * 
***************i^i), 



♦ ADD * 

♦ OELOCATTON * 

♦ FACTOR * 

♦ TO ADCON * 

♦ * 

*******!lli********i)( 



***HC^i^********* 

♦ RETURN TO ♦ 

♦ CALLING SEQ ♦ 

♦ * 

!ti:*********iH^*** 



****Gl********* 

* RETURN TO ♦ 

* CALLING SEQ ♦ 

* * 
*tHi************ 



^i^:**!Hffj*3^li******** 

* * 

* GET NEXT ♦ 

* SYMBOL ♦ 

* * 

* * 

*****ili::ti***if***^iiit* 

X 
**** 

* * 

* B3 ♦ 

* ♦ 
*♦♦* 
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chart HA. $JOECTLB - Disk Restart Preparaticn (Part 1 cf 3) 
Befer to Chart 07. 



♦♦♦*A1********* 



♦♦*♦ 
#RST0080 X 



4c4(:^ 4c« A5 "•<*=«* *«4'*** 



«4c4c4c«**»4c«*4(*«« 



* SAVE ♦ 

* INFORMATION * 

* FROM $JOBCTLK ♦ 

* ♦ 



ste^^^^^itc^t^^^^^^^^ilc 



* * 

* ♦ 

* REWIND TAPE » 

* * 



TAPE .* PROPER 
• •.*. RESTART 


* 
.* 


DASD 
* 


#RST1010 

* ♦ 

* RELOCATE CCB ♦ 
...X* AND CCW * 


.*. 

C3 *. 

.♦ *. 

.* * 

*.7 TRACK TAPE 

*. .* 

*. .* 

*. .* 

* YES 


. f 
.* 


^0 


*. DEVICE 
. *. .* 
X ♦. .* 
♦♦♦♦ * BAD 
* 
A3 * 
t * 




* INFORMATION * 

♦ * 


X 

**** 
♦ 

* J5 
* 












***♦ 












*♦** 


#RST0050 '. 

X 

4c*4c«0 1*4<4''*'**=«^* 

* * 

♦$$BRMSG2 CANCEL* 


X 

♦INFORMATION TO * 
♦ DTFPH * 


X 

*«4e**03 **** **** ** 

* ACCEPT ERRORS * 

* ON TAPE * 





4t>|c4c«*«4c4<4c««««:|t*«* 



4t4<4i*3(eB5 ♦*♦*♦♦♦*** 

♦TOCALL HG ♦ 

* SPACE ♦ 

* BACK * 

* ♦ 



*4c«««C5 ***♦♦♦♦*♦• 
♦PREPARE TO READ* 
♦STANDARD LABEL,* 
♦TRANSLATOR ON, ♦ 

♦ EVEN PARITY ♦ 

♦ ♦ 



4i«*4t*4!4t)(c4c*4<#««« 



«*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



:ic4c4t«:ieE 2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ OPEN THE FILE ♦ 

♦ * 

♦ ♦ 
^(^♦^'♦♦♦♦♦♦♦♦♦♦♦♦^ 



4i4t4e4t*p 2 ♦♦**♦♦♦♦♦* 

♦$DAS00010 HG ♦ 
♦_♦_♦--*_♦_♦_♦_♦_♦ 

♦ READ FIRST ♦ 

♦ RECORD ♦ 

♦ ♦ 



4c4c««*^*^*^***^^^^ 



*««4c««:(c4e««*:|c«*#«:« 







^^(♦♦♦D5 ♦♦♦♦♦♦♦♦4c« 






♦TAPIO HG ♦ 






♦_*_♦_*_♦_♦_*_*_♦ 






♦ PEAD A * 






♦ RECORD ♦ 






♦ ♦ 






i^it^Htili^Htsif*^***^'*** 






X 






.♦. 






E5 ♦. 




*♦♦♦ 


.♦ ♦. 




* ♦ 


Nrn * *^ 




♦ K5 ♦X. 


...*. DATA CHECK .♦ 




♦ ♦ 


♦ , ,♦ 


♦♦♦♦♦ 


♦♦♦♦ 


♦ . .♦ 


♦HC ♦ 




♦, .♦ 


♦ Al* 




♦ YES 



TAPE 

MARK 
READ 



. YES * DO NOT ACCEPT ♦ 

.* X*ERRORS. PROPER ♦. 

♦CCWADOR TO CCB ♦ 

* * 



*♦♦♦♦ 
*HB ♦ 
♦ A2^ 



G3 
.♦ 

♦ 
DATA 



CHECK 

.♦* 
♦ *N0 



♦♦♦♦* 

♦ HC ♦ 

♦ AI^ 



♦♦♦♦ 
. YES ♦ ♦ 
.♦..,.X* A5 ♦ 



♦♦♦♦* 
♦HC ♦ 
♦ Dl^ 



4c«4c*4P5 4e««#*#4>«** 



«*4t^3«e^4c4c«^««««*4<« 



*_*_*-♦_*_*-*_*-* 



^t^:ii!iicm**********4t* 



#3t(4c4C^H5 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 
♦CHANGE TO USER ♦ 

♦ MODE, TO NOT * 

♦ ACCEPT ERRORS ♦ 

♦ ♦ 
^((^^^'♦♦♦♦♦♦♦♦♦♦^^t^ 

♦♦♦♦ 

♦ * 

♦ J5 ♦.X, 

♦ ♦ 
♦♦♦♦ 

ROUSEP X 

♦TAPin HG ♦ 

♦ PEAD IN USER ♦ 

♦ MODE ♦ 

♦ ♦ 

4c :)c*«3(c <<♦♦♦♦♦♦♦♦♦♦♦ 
**♦♦ 



.♦ 
.♦ 

NO 
RECl 



♦*♦** 
♦HC * 
* Al^ 
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Chart HB. $JOBCTLB - Disk Restart Preparation (Fart 2 cf 3) 
Kefer to Chart 07. 



**♦♦♦ 

♦HA * 
* F2* 

* * 



•RST1030 .*. 



.* HEADER *. NO 
*. RECORD READ .*... 
♦. .♦ 

*, ,♦ 



X 






I#RST1020 X 


B2 *. 






*4c4c4c«B3«*«*4"K4'*4'* 


.♦ * 






*$ DAS DODO HG * 


♦ 


♦ • 


NO 


, ♦_*_»_♦_♦_♦_♦_*_* 


♦. CORRECT ID 


♦ 


*» • • • 


.. * READ A * 






* RECORD ♦ 


**» .* 






♦ * 


♦. .♦ 






«4c4c«4c4t4c«*#4c**4i««4: 


* YES 






* HG * 

* H2 *... 

* ♦ , 








**** , 








#RST4ERR X 


C2 *. 






«««4i«(^34i*«**4<4i*** 


,* * 






* * 


.* JOBNAMES 


*i 


NO 


♦ PREPARE * 


♦, EQUAL 


*' 


♦ • « . . 


,...X* MESSAGE 0R03I * 






* * C4 * 



CHKPT XXXX NOT FOUND ON SYSXXX CUU 



*4c**«D2 *♦♦♦♦♦*=«*♦ 

♦ PREPARE * 
♦INFORMATION FOR* 
♦THE SUBROUTINE ♦ 

♦ SRSTISUB ♦ 

♦ * 



♦ ♦***£ 2 ♦*♦*♦♦*♦♦* 

♦$RSTLSUB HD ♦ 
♦_*_*_♦_♦_♦_♦_♦-♦ 

♦ RESTART ♦ 

♦ POSSIBLE ♦ 

♦ * 

^^^(♦♦« ¥♦♦♦♦♦♦♦♦♦♦ 



iHi:ti^mif2********** 



*:ittif:lti************* 



♦♦♦♦♦03 ♦***♦♦♦♦♦♦ 

♦ ♦ 

♦ MSGOUT ♦ 

♦ ON ♦ 

♦ SYSLOG * 

♦ * 



♦ ♦ 

♦ CANCEL SVC 6 ♦ 

♦ ♦ 
i(c« 4(4t4c«*« «# «4> ** # 



3mt1t:ti:ti************ 



.♦. 

G2 ♦. 

.♦ ♦. 

.♦ANY EXTENT ♦. 
♦. RECORDS .♦ 



#RST2000 

l4t*4<*4iH2 ♦♦♦♦♦♦♦♦♦♦ 
♦$DASD00O HG ♦ 

*_♦_*_*-*-*-*-♦-* 
X* READ AN * 

♦ EXTENT * 

♦ RECORD * 

^^^^'♦♦♦♦♦♦♦♦♦♦♦♦^e 



♦XTENT HE+ 

*_«_»_*_:([_♦_♦_♦_* 

♦ PROCESS THE ♦ 

♦ EXTENT ♦ 

♦ RtCORU * 



.♦. #RST8000 

K2 ♦. **«**K3*^****^**^ 

.* ♦. ♦ PREPARE DASD ♦ 

.♦MORE EXTENTS. NO ♦ SPECIFIC ♦ 

RECORDS .♦ X^INFORMATION TO ♦ 

♦, .♦ * BE PASSED ♦ 

♦• .♦ * ♦ 



♦ HC ♦ 

♦ A4+ 
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Chart HC. $JOECTLB - Disk Restart Preparaticn (Part 3 of 3) 
Refer to Chart CI. 



***** REFERENCES 
I * TO HCAl: 



♦♦♦♦* 
*HB ♦ 
♦ K3* 



♦*♦♦♦ 
*HA * 
* F4* 



♦ * 
♦PREPARE FORWARD* 

♦ SPACE, DO NOT ♦ 

♦ ACCEPT ERRORS * 

♦ * 



4c*«*4cC 1*»******** 

♦lOCALL HG* 
♦_»_♦_♦_*_*_♦_*-* 

♦ SPACE ♦ 

♦ FORWARD * 

♦ * 



*♦♦♦ 

*HA * 
* F4 ♦. 



**** 
NOTPMK X 

«**4:*D1********** 



4i«4(*4c4c4t*4i««4i4c*itc«« 



* PREPARE INFO * 
♦FOR SUBROUTINE * 

* SRSTISUB * 

* * 
«*4c*«4'4>*# ♦♦*♦♦♦«* 



«4c«4<*B3 ♦♦♦*♦♦♦♦♦♦ 
♦SRSTISUB HD* 

* RESTART ♦ 

* POSSIBLE * 

* ♦ 



^iilf^:m*C'i********** 



7lf:#****m********** 



.♦ANY EXTENT ♦. NO 
RECORDS .*... 
♦ . .♦ 



♦ SET UP ALL ♦ 
♦PARAMETERS FOR ♦ 

♦ SVC 58 ♦ 

♦ ♦ 



* * 

♦ MOVE PROPER ♦ 
♦INFORMATION TO ♦ 

♦ THE SAVEAREA ♦ 

* * 



ltiii^^*A'\:)£^********** 



Ai***^**:^*m******* 





**** . 


-♦- 


fRSTPBOO K 


E2 ♦. 


4c*«*«E3 ♦♦♦♦*♦'<'♦♦* 


♦ ♦. 


♦TAPIO HG^ 


HEADER ID ♦. NO 


♦_♦_*_*_♦_*_*_* _:^ 


CHKPT ID ...... 


♦READ AN EXTENT ♦ 


.♦ 


♦ RECORD ♦ 



♦♦♦* 
♦ 
♦ Fl 



♦ .X 



♦♦♦* 
READHDR X 

♦TAPIO HG^ 

♦ READ ♦X.. 

♦ TAPE ♦ 

♦ ♦ 

^^^■♦♦♦♦♦♦«*4c:jc*«#« 



NO TAPEHARK 



♦ ♦ 

♦ INCREASE * 

♦ TAPEMARK ♦ 

♦ COUNTER ♦ 

♦ * 



♦♦♦* 

♦ 4c 

♦ Fl ♦ 

♦ ♦ 
♦♦♦* 



♦ * 

♦$$BRMSG1 CANCELS 

* ♦ 



««#«**«♦*♦*♦♦«♦«!«( 



♦XTENT HE^ 

♦ PROCESS THE ♦ 

♦ EXTENT ♦ 

♦ RECORD ♦ 



* * 

♦SVC 2 $$BRSTRT ♦ 

* ♦ 



* * 

* PREPARE TO ♦ 

* READ 7-TRACK * 

* TAPE ♦ 

* * 
^^^^•♦♦♦♦♦♦♦♦♦♦♦♦« 



RDCOMM 

«4:«;(c*H2 ♦♦♦♦♦♦♦♦♦♦ 

♦TAPIO HG* 



lOc^i****:***^'^^^:)'*** 



*♦♦* 

#RST0900 

*:(t«««H3 ♦♦♦♦♦♦♦♦♦♦ 

* * 

* PREPARE TAPE * 

* SPECIFIC INFO ♦ 

* TO BE PASSED ♦ 

* * 

*:tc«««4:^^*^* ««4c«*4c 



♦ *♦* 

♦ * 

♦ A4 ♦ 

♦ ♦ 
**** 





* JOB NAMES 


♦ 




♦ 


IDENTICAL 




1* 




♦. 


* 






♦ . .♦ 








♦. .♦ 








* NO 






♦♦** 






* 


* 






* 


K2 ♦.X. 






♦ 


* 






**** 






SKIP 


X 






♦♦***K2 ♦**♦♦♦*♦♦♦ 


♦ 






♦ 


♦ 


SKIP CHKPT 




♦ 


• ••♦ 


RECORDS 




♦ 



*♦** 

* * 

* A3 ♦ 

* * 
**♦* 



^^^[^'♦♦♦♦♦♦♦♦♦♦♦♦^ 
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Chart HD. $JOEC'rLB - Test Restart Partition 
Refer to Chart 07. 



* * 

♦ $RST1SUB * 

♦ * 

^t4iiltilf*i^*f ****** te 



* * 

♦OBTAIN ADDRESS * 

» OF SYSCOM AND ♦ 

* BDYBOX * 

* * 



*B5 

MESSAGE 
OROII 



$RST1050 



.*. 



C3 

♦♦** ,♦ *, 

* ♦ NO .*START ADDR *. 

* D5 *X....*. £ SIZE OF .*X. 

* ♦ ♦. PROG OK .♦ 
♦*** *. .* 

.* 



* YES 



tEXT 

WRONG LOCATION AND/OR SIZE OF REAL PARTITION 



*****03 ********** 
*$SIZE HG* 

*_♦_♦-.♦_*_♦ _*_♦_* 

* TEST * 

* PARTITION * 

* SIZE * 

:tt***^f***^i*i******* 



VIRT .* TEST MODE *. 
.....*. OF CHKPT .* 
*. PROGRAM .♦ 



.♦START ADOR 
*. E SIZE OF 
*. PART OK . 
*. .* 



**** 

* ♦ 

* 05 * 

* * 
**** 



♦PREPARE MESSAGE* 
X* * 

* OROII * 

* *B5 * 
***************** 



Nt 


',: 


* 

*, 


SUPPORTED 








** .* 


X 
***> 


♦ 




♦ , .* 
* YES 


G4 


* 
* 






**** 







♦ PREPARE MESSAGE* 

♦ 0R17I *X. 

♦ »6l * 

♦ * 

*****^**********^l: 



4e4>***H I**** ****** 



i|e)|t*«4cp2 ♦*♦♦♦*♦♦♦♦ 

* * 

* * 

* PERFORM I/O * 

* * 

* * 
****************if 



.* 
.* 
YES 



**)|c««H 2 ********** 



♦***F3********* 

* * 

* RETURN * 

* * 

***iti^*1f*******ii: 



♦G3 
MESSAGE TEXT 
•NO PFIX OPTION 
IN SUPERVISOR- 
CANNOT RESTART* 



* TEST * 

* PARTITION * 

* SIZE * 

iti:tt****ili:********** 



* * 

* RETURN * 

* * 

:(t4c************* 
♦*♦* 



$RST2ERR X 

««««4cG4********** 

* * 
♦PREPARE MESSAGE* 

* 0R19I * 

* *G3 * 

* * 

:(c4<:«*****«>|!««4i«^:(c:«c 



*****ij^********** 



*:^t**4t^^ *********tti 



*i^**it'************ 



4<iic#«F5 ********* 

* ♦ 

* CANCEL SVC 6 * 

* ♦ 

jft^c^^^'t'^'******** 



*******:^*****iK*** 



****J I********* 

* ♦ 

* CANCEL SVC 6 * 

* * 
m************** 



*^,*^^************ 

**** ', 

* * . 

* J2 



*.X, 



***♦ X 
$RST1080 **. 

J2 *. 
.* *. 
.* MORE PFIX *. YES 
*. RECORDS .*.... 



.X* PERFORM I/O * 



*. 



#«4c*««4c«^««*«*^^« 



^^^^'♦♦♦♦♦^♦4t«*«4t« 



* * 

* CANCEL SVC 6 * 

* ♦ 

***if**iH*iti****ilc:li: 



♦♦♦♦K2 ********* 



«««*4cK3 ********** 



*****it****i)i***# 



*ilf:^*^^#:i):********:(f: 

* ♦**♦ 
. * * 

..X* J2 * 

* * 
**** 
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Chart HE. $JOECTLB - Test Restart Record (Part 1 cf 2) 
Refer to Chart C7. 



* * 

* XTENT * 

* * 



♦HF * 

♦ E5* 



*4>**4(4>4i«*<|i#«4i4t«4t« 



« * 

* GET LOGICAL ♦ 
♦UNIT FOR CHKPT * 

* DEVICE ♦ 

* ♦ 



**** 
FIND2 X 

♦ CALCULATE * 
♦ADDRESS OF LUB * 

♦ ENTRY * 

♦ * 






♦HF ♦ 

♦ A1 + 

♦ ♦ 



,♦ ♦ 
.♦UNASSIGNED 
. OR IGNORED 



F2 



♦ , 



*. 



♦ , * 

♦ CALCULATE * 

♦ ADDRESS OF ♦ 

♦ PUBENTRY ♦ 

♦ ♦ 



.♦. 

HI *, 

,♦ ♦. 

♦♦IS THIS AN ♦ 

K. ALLOWED 

*. DEVICE .* 

*# ,♦ 



.♦LONG EXTENT*, NO 
,X+. RECORD •♦... 
♦. .♦ 
♦ . .♦ 

*• .* 
* YES 



«**if*G2 ♦♦ ♦♦♦♦ ♦*♦» 



♦♦*♦♦ 

♦ HF * 

* K3* 



* ADAPT POINTER * X* 



41 4c*«»4<*** ♦♦♦♦♦♦♦♦ 



«4c**^f ♦♦«:♦♦♦*♦«♦« 



♦ NO 



♦♦♦♦J 1***«*«*«4> 

♦ ♦ 

♦SVC 2 $$BRHS61 ♦ 

♦ ♦ 
*^mif *********** 



♦***♦ 

♦HF ♦ 
♦ Al* 



H3 ♦. 


m ♦. 


4c***4iH5 inm******** 


,♦ *, 


.♦ *. 


♦MTNCNT 6U ♦ 


.♦ MORE ♦. YES 


.♦ SAME ♦, YES 


*_♦_#_ ♦-♦-♦-♦-.*^# 


♦ , EXTENTS TO .* 


..X+. LOGICAL UNIT •♦..*. 


...X* SEIZE ♦ 


♦ . PROCESS .♦ 


*.AS BEFORE,* 


* SYSTEM ♦ 


♦ . .♦ 


♦ . .♦ 


♦ SVC 22 ♦ 


♦ • ,♦ 


♦ , .* 


#3(C*4cj«l««*«^^*****« 


* NO 


* NO 


**♦♦ * 
♦HF * 

♦ J^ **X. 

♦ ♦ , 

♦ ♦♦* , 




X 


LODE X 


X 


##**«J4««4e^^^*«*^ 


««««* 15 *:(c«»:((«*4>4(« 


♦♦♦♦J3***+*^*** 
♦ RETURN VIA * 


♦ ♦ 


* ♦ 


♦INDICATE END OF* 


» POINT TO NEXT ♦ 


♦ ♦ 


* CHAIN * 


♦ JIB * 


♦ REGISTER, ♦ 
^^(^^'♦♦♦♦♦♦♦♦^'♦♦^ 


♦ * 


* DISPLACEMENT * 


* * 


* ♦ 




^i)iitinf**********itt*!* 


««#4''4<*>t!«*!f>t';l'««4t4t)|t 




', ♦♦** 


• 




, ♦ * 






.•X+ Dl ♦ 


X 




♦ * 


**♦♦* 




♦♦♦♦ 


♦HF * 
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Chart HF. $JOECTLB - Test Restart Reccrd (Fart 2 cf 2> 
Refer to Chart 07. 



***** REFERI 



tEFERENCES 
ro HFA13 



HFAi^ 
HEHl 



BILOIB X 

♦MTNCNT GU * 

«-♦_*-♦_♦_♦_♦-♦_♦ 

♦ SEIZE * 

♦ SYSTEM * 
■ ♦ SVC 22 ♦ 

♦ Bl * 

*♦** 
CLEAR X 

♦ * 

♦ ♦ 
♦CLEAR REGISTER ♦ 



♦ ♦*♦* 

♦HE * 

♦ J5* 



* MOVE FAVP TO * 
.X* JIB, MOVE JIB * 

♦POINTER TO FAVP^ 

♦ ♦ 

:« *« 4t4t #:4t *4< :((« * 4c*4i*« 



* ♦ 

* ♦ 

* DECHAIN JIB ♦ 

* ♦ 

* * 



i|c4i«4i4tDl^*^^^^^*^^ 



If* f ************** 



EI ♦. 

.♦ ♦. 

NO .♦ STANDARD 
...♦. ASSIGNMENT 



♦ ♦ 

♦ INDICATE ♦ 

♦ STANDARD ♦ 

♦ ASSIGNMENT ♦ 

♦ ♦ 
^^[^^^(♦♦♦♦♦♦♦♦♦♦♦^ 



1f****:tt*********** 



.♦ ♦. 

♦ .ANY FREE JIBS.+ 
♦ . .♦ 

♦ , ,♦ 



4i4(:4c4c4>p2 ♦♦♦♦♦♦♦♦♦♦ 
♦MTNCNT GU ♦ 

♦ RELEASE ♦ 

♦ SYSTEM ♦ 

♦ SVC 22 ♦ 
*itiitt*4i************ 



*^lc*ifQ2********* 

* * 
♦$$BRMSG1 SVC 2 ♦ 

♦ ♦ 
ilii*itiitt*********** 



♦ POINT TO NEXT ♦ 

♦ JIB ♦ 

♦ DISPLACEMENT ♦ 



*4c4t^*4t*^4cie<4'«4c««4c« 



♦CHAIN NEXT JIB ♦ 

X^ £ MOVE EXTENT ♦ 

♦AND TYPE TO IT ♦ 

* ♦ 

**ilf:ti**:ti*Jtt******** 



* * 

♦ TURN OFF 
FIt?ST EXTENT 

♦ SWITCH 

* ♦ 

:^ii*it,*mi)im*** 



♦ MTNCNT GU ♦ 

* PELEASE ♦ 

* SYSTEM ♦ 

♦ SVC 22 ♦ 
«*♦«««: '('♦♦^'♦4t«*4c4t4i 



♦ OBTAIN NUMBER * 

♦ OF EXTENTS IN ♦ 

♦ RECORD ♦ 

♦ ♦ 
***************** 



***************** 



***************** 



H3 ♦. 
,♦ ♦. 
NO .♦ EXTENT OF ♦ 
...♦. 2321 3330, 

♦. 3340 .♦ 
♦ . .♦ 



♦ YES 



.♦LONG EXTENT^. NO ♦ POINT TO 2ND ♦ 

♦ . PROCESSED .♦ X+EXTENT OF 2321 ♦ 

♦. .♦ ♦ 3330,3340 ♦ 

♦, .♦ ♦ ♦ 



*****i(^2********** 

♦MTNCNT GU ♦ 

♦_♦_♦_♦_*_*_♦_♦_♦ 

♦ RELEASE ♦ 

♦ SYSTEM ♦ 

♦ SVC 22 ♦ 
***************** 



***** 
♦HE ♦ 
♦ J5^ 



♦ *♦*♦ 

♦ HE ♦ 

♦ G3+ 
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Chart HG. $JOEC'rLB - Restart Sufcrcutines 
Refer to Chart 07 • 



♦♦♦♦Al********* 

* $DASDOO0 * 

♦ * 



* $OASOOIO * 



***'»' 113********* 

* * 

* TAPIO ♦ 

* ♦ 



♦ $SI2E * 

* * 



lltiti^tlim***^'******** 



* * 

* lOCALL ♦ 



«4c)ii«*4(4(**>l>*)|c***** 



**** 
$DASD010 



^^t:lim******iti*i^*i*** 



4>*4>4>:teD I4i«>«e*4<4c«>l<4<«^ 



« *#«4E* « « 4c* * 3|i4c4(* * « 



4(*«**| 2 4t*4i«4(« **** 

♦INCREASE TRACK * 
,X* NUMBER, SET * 

* RECORD I * 

♦ * 



4c4t«4>4!4<)«t*4>*)|c4i***** 



m****0'Zilf***^::***** 



^^(♦i^i************* 



♦ ♦ 

♦ RETURN * 

♦ ♦ 



* ♦ 

* REtURN « 



#4c* *4tB5 ]|c4c*«4t*4c**4c 

* * 

♦ PREPARE INFO ♦ 
.X* FOR MESSAGE * 

* 0R02I * 

♦ ♦AS ♦ 

**4c4c4<*4t«*«4c«*«**4> 



in^ti**C5********** 

* ♦ 

* MSGOUT ♦ 

* ON ♦ 

* SYSLOG * 

* ♦ 



:|cl|t««05 ♦♦«♦♦♦♦*♦ 

♦ ♦ 

♦ RETURN ♦ 

♦ ♦ 



**4[*f: I4t*«**#4c** 

• ♦ 

* RETURN ♦ 

♦ * 



* CI * 

♦ * 

♦**♦ 



4i««4c4>G2 ♦♦♦*♦♦♦♦♦♦ 

♦ INCREASE * 

* CYLINDER * 

* NUMBER, SET ♦ 
♦TRACK NUMBER TO* 

♦ LOWER LIMIT ♦ 
*4t«*4<*4< *«♦♦♦♦♦*«♦ 











H2 ♦. 




.* *. 




UPPER LIMIT*, 


NO 


REACHED 


*.... 


• .* 




♦ . ,* 


, 


♦, ,♦ 


X 


* YES 


♦♦♦♦ 




♦ s 




* CI 


X 


* * 


*♦♦♦« 


**♦♦ 


♦HB * 




» C3* 




* ♦ 




♦ 




«RST^ERR 





Charts 119 



Chart JA. $JOECTLD - ASSGN Stateirent Processor (Fart 1 of 16) 
Refer to Charts 08 and 09. 



♦ tJOBCTLD * 



ASSGN 

♦INITL KA * 
♦_♦_*_*_♦_♦_♦_♦_♦ 

* INITIALIZE * 

* FOR * 

* RELOCATION * 



IS 

UNIT 
SYSREC 



♦ * 

♦ F2 * 

♦ * 



**♦♦ 

♦ * 

♦ D3 * 

♦ * 



* * 

* B4 * 

* ♦ 
**♦♦ 



*. .♦ 

*. •* 
* YES 



CRTTAB *. NC 
AVAILABLE ,*.. 



***** 

♦ JD * 

* Bl* 

* * 



CI 



♦ . 



DID 

.* STATEMENT ♦. NO 
START .♦.,, 
*. WITH .* 
*. // .♦ 
*. .* 
* YES 



**D1****«** 

* * 
INDICATE 
TEMPORARY 

ASSIGN 

* * 

*itt*****i:^:t/i** 



BB6SSXXX 

**,fif#2l****:lft**** 

*SCANR2 GK * 
♦_♦-♦-*-♦-*_♦_♦_* 

♦ POINT TO 1ST * 

♦ OPERAND * 

♦ SYSXXX * 

**:t:^**:tf*ts******** 



.♦ DID A 

•>. COMMA END 

*. SCAN 



,* TEMP *. 
.♦ASSIGNMENT 
FOR 
*. SYSREC . 



.♦ SDR 

COMREG 
♦.AVAILABLE. 



*♦♦* X 
.*. 
E2 *. 
,* * 
.* RECORDER 
*. FILE 
*. READY 



**** 

* * 

♦ F2 ♦ 



IS 
UNIT 
SYSRES 



« D5 * 
* * 



**** 

* * 

* D5 * 

* * 
♦*** 

AS 



***** 
*KM * 
* Bl* 



C4 *. 

.♦OPERAND*. 

.♦ALLOWED IN *. 

THIS 

♦.POSITION .* 

♦ . .♦ 

♦ . .♦ 

♦ YES 



.* HARD COPY *, NO 
FILE .♦.. 

♦. READY .* 



♦*** 
SGNO X 

♦ * 

♦ INITIALIZE ♦ 

♦ DEVICE TYPE ♦X 

♦ TO X'FO' ♦ 

♦ IN DEVTYPE * 
«*«*«««#«4c******* 



***♦ 

* ♦ 

* D5 * 

* ♦ 
**♦* 



♦ JS ♦ 
*C5 * 
***** 



**** 

* * 

* D5 * 

* * 
**** 



***** 
♦KM * 
* Bl* 



*****G 1********** 
♦SYSXXX ' KK ♦ 
♦-♦-*-♦-*-♦-*_*_♦ 

♦ CHECK XXX ♦ 

♦ SYMBOLIC UNIT ♦ 

♦ ADDRESS ♦ 

***********«**4c** 



4i***«H !♦♦♦♦*♦♦♦*♦ 
♦TSTPROC KN ♦ 
♦-*-*_♦-*-*-♦-*-* 

♦ TEST LANGUAGE * 

♦ RESTRICTIONS ♦ 

♦ * 
*4<**4c*«****«***** 



IS 

UNIT 

SYSLOG 



* MULT I- ♦ 

PROGRAMMING 
♦. SUPPORT .* 



.* ALL FG 

». PARTITIONS 
♦ .DETACHED . 
♦ . ,* 



***» 

* * 

* J3 * 

* * 
***♦ 



**H2*^***** 

* * 
* SET ASSGNV2 ♦ 

* TO ALLOW ♦ 
♦SYSLINK IN FG^ 

♦ * 



ATT 

RTN 

ACTIVE 



♦ * 

♦ J3 * 

♦ * 
**** 



ASSGN 

FOR 

SYSCLB 



*♦** 

* * 

* B3 ♦ 

* ♦ 
♦♦** 



* * 

* D5 ♦ 

* * 
**** 



* J3 ♦.X 



ENDSSXX* 
SCNOPRS X 

««4c««J3 ««****«*«:* 

♦SCANR3 GK ♦ 

*-*-*-*_* _*_*_* _:)£ 

* GET NEXT ♦X 

* OPERAND ♦ 

* * 

««««4c************ 



**** 

* * 

* 05 * 

* * 
**♦* 



** ♦♦05 ♦****♦♦♦♦ 

♦ BRANCH TO * 

♦ NVSERR IN ♦ 

♦ ^JOBCTLA * 

3((^4<«*4C))C*******« 



♦ E2^ 

« * 
♦*** 



**!E^******* 

* * 
INDICATE 

OLD 
STATEMENT 

* * 

*******«**:«( 



4r44c*«|r4«:«c:(c««)«t«««4c 

♦HEXCON KC ♦ 
♦_*_*_♦_*_*_*_*_ j^ 

* CONVERT CUU * 

* TO HEX ♦ 

* * 

:1ft*************** 



««4'**G4**^***^*** 

* * 

* MOVE CUU TO ♦ 

* INFO TABLE * 

* AND INDICATE ♦ 

* A CUU LIST * 
tt*************** 



DEVICE 

A 

DISK 



**J4******* 

* * 

FORCE SHR 

* * 
«*«««;ec***** 



* ** 
***** 

REFERENCES 
TO JAJ3: 
JBD3, JBEl 
JBE4, JBF5 
J6G2* JBJ4 
JCC2, JCDl 
JCF2, JCH3 
JCJl, JCJ5 



**♦* 

* * 

* J3 ♦ 

* * 
**♦* 
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Chart JE. SJOECTLD - ASSGN Stateirent Processor (Part 2 of 16) 
Befer to Charts 08 and 09. 



***** 

♦JA * 
* 04* 



.♦ IS ♦. NO 
♦. OPERAND .*... 
♦. UA .♦ 



**ci******^ 



.♦ IS 
.X*. OPERAND 
♦ . IGN 



i)li*Q2******* 



OPCLASS .*. 

B3 *. 

.* IS *. 

.* OPERAND A *. 

...X*. DEVICE TYPE . 

*. CLASS .* 



*4<C34c«4i4i*4c4< 



♦ INDICATE * 


* INCHKDI8 


♦ OLD * 


* OLD 


♦ STATEMENT ♦ 


* STATEMENT 


* * 


* 


iii:ti********* 


*4c*:»«4>4<««*« 


**** I 


♦ *♦* I 


♦JC * 


♦JC * 


* F5 *.X. 


♦ E5 *.X. 


♦ ♦ 


♦ ♦ 


**** . 


♦♦♦* 


INOUA X 


INDIGN X 


««oi«*«**** 


*ifQ2******* 


* ♦ 


* 


♦ INDICATE * 


.* '""iBS^^ 


♦ UA * 


* ASSIGN * 


♦ ASSIGN 


* * 


* 


«**4<3(c4<*4c«*4c 


«««4>««*««*« 



♦ MOVE UP MASK * 

♦ TO newlub; * 

♦ MOVE^IJA^IN * 

1ft****:tf*********** 



***** 
*JA * 

* J3* 



INDICATE 

DEVICE TYPE 

LIST 

♦ * 

if*****:t^*itt** 



if4f***D3********** 

* * 

* BUILD DEVICE ♦ 

* TYPE LIST IN * 

* INFO TABLE * 

* * 



***** 

♦ JA ♦ 

* J3^ 



.♦ IS ♦. YES 

♦. UNIT ...... 



.♦ UNIT ♦. 

♦SYSRDRj SYSIPT, 

♦ .OR SYSIN .♦ 



***♦ 


*♦** 


♦ ♦ 


♦ * 


* B4 ♦ 


♦ B5 ♦ 


* * 


* * 


**♦* 


**** 


X 


X 


.♦. OPMOOE .*. 


B4 ♦. 


BS *. 


.♦ ♦. 


.♦ ♦. 


,♦ IS ♦. NO 


.♦ IS ♦. NO 


OPERAND ...... 


♦. OPEOANO ...... 


♦. H2 .♦ 


♦. X'SS' .♦ 


♦ . .* . 


♦. .♦ 


♦ . .♦ X 


♦ . .* X 


* YES ♦♦♦♦ 


♦ YES ***** 


* * 


♦ JC ♦ 


* G4 ♦ 


* BI + 


* ♦ 


♦ ♦ 


**** 


* 


X 


OPSHR 


.♦. 


X 


C4 ♦. 


*****Ctj *#***4i**«4i 


.* UNIT ♦. 


♦ HEXCON KC ♦ 


.♦ SYSRDR, ♦. NO 


♦_*_*_♦_♦_♦_»_♦_# 


SYSIPT ...... 


♦ CONVERT ♦ 


♦.OR SYSPCH.^ 


* SS TO HEX ♦ 



D4 ♦. 

,* *, 

.♦ ALL MFCU/ * 

.MFCM DEVICES 

♦ . SPECIFIED. ♦ 

♦ . .♦ 

♦ . .♦ 



**g4*:tc«**:tc* 

* * 

TURN ON 

HOPPEP 

SWITCH 

* » 

**********4c 



**** 

* * 

* H3 ♦ 

* * 
**** 



**4c************** 



*****r)s ********** 

* * 

* MOVE MODE * 

* BYTE TO ♦ 

* INFO TABLE ♦ 

* * 

*4C**]tC************ 



E5 ♦. 
.♦ ALL ♦. 
.♦TAPE UNITS ♦. NO 
. OF MATCHING .♦. .. 
♦. TYPE .♦ 



***** 

♦ KM ♦ 

* 03* 



*****G2 **♦♦***♦** 

♦ * 

♦ MOVE IGN MASK ♦ 

♦ TO NEWLUB * 

♦ MOVE IGN ♦ 

♦ IN MESSAGE ♦ 
***************** 



X 
***** 
»JA ♦ 



YES .♦ ALL MFCU/ ♦. 
......MFCM DEVICES . 

♦.SPECIFIED.^ 



***♦ 

* * 

* H3 ♦ 

* * 
**** 



****H3******#** 

♦ BRANCH TO ♦ 

♦ NVSERR IN ♦ 

♦ $JOBCTLA ♦ 
*************** 



***** 
♦JA ♦ 
* J3* 



**** 

* * 

* G4 ♦ 

* * 
*♦** 



G4 ♦. 

.♦ IS ♦. 

OPERAND ♦. NO 
A X'CUU* .♦... 
. LIST .♦ 

♦ . 



**** 

* * 

* H3^ 

* * 
**** 



**F5******* 

* * 
INDICATE 

MODE 
SPECIFIED 

* * 
*********** 



***** 

♦ JA ♦ 

♦ J3^ 



♦ . 



IF 7-TRACK MODE IS SPECIFIED, ALL 
DEVICES SPECIFIED MUST BE 7-TRACK 
TAPE UNITS THE SAME APPLIES FOR 9-TRACK 



♦ YES 



if:ifLm**HA********** 

♦ * 

♦ CONVERT ALL ♦ 

♦ CUU TO HEX ♦ 

♦ AND MOVE THEM ♦ 

♦ TO INFO TABLE ♦ 
***************** 



*j4*****«itt 



**********4! 



***** 
*JA ♦ 
♦ J3^ 
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Chart JC. $JOECTLD - ASSGN Stateirent Processor (Part 3 of 16) 
Refer to charts C8 and Q9. 



♦ JB ♦ 

* B5* 



♦♦** 

♦ 83 * 

* ♦ 



IS 

OPERAND 
SHR 



.* ALL 

DISKS 
♦.SPECIFIED. 

*. .♦ 



♦*D1******* 

♦ *: 

INDICATE 

SHR 
SPECIFIED 

* * 



X 
***** 
*JA * 

* J3* 



**** 

* * 

* Fl ♦ 

* * 
**** 



»*** 

* * 

* H2 * 

* * 
♦♦♦♦ 



IS 


♦ . 


NO 




OPERAND 


.* 






. TEMP 


« 






*. ** 








♦. .* 






X 


* YES 




**** 






* 








* 


E2 






* 




. 




**** 


X 








**C2******* 








* 






INDICATE 


* 






TEMP 


* 






ASSIGN 


* 







B3 *, 
.* *. 

* IS 
OPERAND 

♦ . VOL 

*. .* 
♦ , ,* 
* YES 



C3 ♦. 
.* ALL *. 
TAPES *. 
OR DISKS 
.SPECIFIED.* 



.* IS 


* 


NO 


X*. OPERAND 




*.. .. 


*. SYSYYY 


* 




*. ,* 






*. .* 




X 


* YES 




♦♦** 






* 

* H2 
* 
♦♦** 



C4 ♦. 
SYSYYY 



*********** 



***** 
*JA * 
* J3* 



*. 



***** 
*KM * 
♦ BI* 



* H2 * 

* * 
**** 



OPPERM 


.*. 




E2 *. 




* * 


.* 


IS 


*. 


OPERAND 


♦ . 


PERM 




*. .* 




*. .* 




* YES 



.♦ IS 

•". OPERAND 
♦ . ALT 



.* ALL *. 

TAPES 

♦.SPECIFIED.* 



«*H1******* 

* * 
INDICATE 
ALTERNATE 

ASSIGN 

* * 

*****4c****# 



*****J ]^ ****««#«:(<« 

* * 

♦ MOVE * 
*»AS ALTERNATE' * 

♦ IN MESSAGE * 

* * 

*************a|c«** 



**** 

* * 

* B2 ♦ 

* ♦ 
***« 



**p2******* 

* * 
TURN OFF 

TEMP 
INDICATOR 

* * 
*««******«« 



***** 
♦JA * 
♦ J3* 



**♦* 

* * 

* H2 * 

* ♦ 
♦♦** 



****H2 ********* 

* BRANCH TO * 

* NVSERR IN * 

* $J0BCTLA * 

4c******«*4c*«*** 



.*. 

E3 *, 

.♦VOL^SER*. 

.NO SPECIFIED*. 

BETWEEN 

*. QUOTES .* 

*. .* 



«****P3*«*4e4i«*««:«( 

*PADD VOL SEP NO* 

* TO THE RIGHT * 
.*WnH BLANKS AND* 

* MOVE TO INFO * 

* TABLE AND MSG * 
******«*********<( 



***4c*D4********** 

* * 

* GET LU8 AND * 

* PUB POINTERS * 

* FOR SYSYYY * 

* * 
«***«*******«***# 



E4 *. 

* *. 
SYSYYY *. 

SYSIN .** 



4t*«**G3** ******** 
*PADD VOL SER NO* 

* WITH ZEROES * 

* TO THE LEFT * 

* MOVE TO INFO ♦ 

* TABLE AND MSG * 
******««*«*****«« 



**H3******* 

* * 

INDICATE 

VOL SER NO 

SPECIFIED 

« * 

*********** 



***** 

♦ JA * 

* J3* 



* YES 



***«4(|:4****4t]|(4(**4c 

* * 

* GET LUB AND * 

* PUB POINTERS * 

* FOR SYSIPT * 

* * 

**«**4c*4c*«**4c«4c*«e 



G4 ♦. 
,* PUB *. 

.♦PTRS SYSRDR*. 
. AND SYSIPT . 
*. EQUAL .* 



***** 
*KM * 
* Bl* 



X 

♦JB ♦ 
♦ 02* 



LUB 

IS 

IGN 



.♦ LUB *. YES 
*. IS .*.... 

*. UA .♦ 

*. .* . 
*. .* X 
* NO **««* 

♦ JB ♦ 

* Dl* 
* ♦ 

♦ 
INDUA 
X 
*****(;5 *«««***«** 

* * 

* GET CUU FROM * 

* PUB AND MOVE * 

* IT IN INFO * 

* TABLE * 

*****i(c*4c«**i«c«*:4c4c9(i: 



**H5^****** 

* * 

INDICATE 

CUU 

LIST 

« * 

*««**««**«« 



**J5 ******* 

* * 
FORCE SHR 

FOR DEVSCAN 
ROUTINE 

* * 

^t^c********* 



X 
***** 
♦JA * 
♦ J3* 



♦♦♦** 
*JA * 
♦ J3^ 



122 DOS/VS IPL and Jot Control 



Chart JD, $JOECTLD - ASSGN Stateirent Processor (Part «» cf 16) 
Refer to Charts 8 and C9. 



*♦♦*♦ 

*JA * 

* BA* 

♦ ♦ 



.* IGN *. 

OR UA 
♦.SPECIFIED.* 



NOUAIGN .«. 

CL *. 

.* ♦. 

.♦PROGRAMMER ♦ 

♦. LOGICAL 

*. UNIT .* 

*. .♦ 



CNLY ♦. NO 

TEf»P/P6RM .*.., 
.SPECIFIED.* 



.* 2245 

PRINTER 
♦.SPECIFIED. 



♦♦♦♦C3 ****♦♦♦♦♦ 

* BRANCH TO * 

* NVSERR IN * 

* SJOBCTLA * 



.* SYSRLB ♦. YES .♦ SAME *. NO 

*, OR .*.. .X + . DEVICE TYPE .*... 

*^ <;y<;5' R r* *eAS SYSRES.* 



El *. 

.♦ ♦. 

.* SYSREC ♦ 

OR 

*. SYSLIB .♦ 

♦ . .* 

*« .* 

* NO 



.♦ ALL ♦. 

DISKS 

♦.SPECIFIED.* 



X 
♦*♦♦♦ 

♦ KM ♦ 

♦ B2* 
* ♦ 

* 
INDVTP 



.* SYSRDR ♦. 

SYSIPT 

♦. SYSIN .♦ 



** ♦. YES 

♦. SYSLOG .*.... 

*. .♦ 



♦♦♦♦♦ 

♦ JE ♦ 

* Al* 

♦ ♦ 



SYSLOG ♦. NO 
ASSIGNED .*... 
. TO 1052 .* 
♦ . ,* 



.* ANY NON ♦. 
.X^. 1052/CRT 

♦. SPECIFIED. ♦ 
*. .♦ 



*♦♦*♦ 

♦ KM ♦ 

♦ D3* 
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Chart JE, $JOBCTLD • ASSGN Stateirent Frocesscr 
Refer to Charts 08 and 09, 



(Part 5 of 16) 



V)it4t3|cv 

♦ JD * 

* Gl* 



Al 



♦ . 



.♦ IS ». YES 
♦ASSIGNMENT FOR.*, 
*. SYSOUT .* 
*. .* 

*• .* 
* NO 



81 *. 
.* IS *. 

.♦ASSIGNMENT *. 

FOR 

*. SYSCLB .♦ 

♦ . .* 

*. .* 
* NO 



.* IS ♦. 
.♦ASSIGNMENT 
FOR 
♦. SVSLNK . 



«#01******* 

* SET JCSW * 
♦BIT OFF TO ♦ 

* PROHIBIT LINK 
* EDIT OUTPUT * 

* ON SYSLNK ♦ 



4cvgX****V*V 

♦ ZERO THE ♦ 

♦ CURRENT ADDR 
♦ FIELD OF THE 

♦ SYSLNK JIB 

♦ * 



.♦. .*. 




B2 ♦. B3 *. 




♦, .♦ *. 




TEMP ♦. YES NO .♦ DASD ♦ 




ASSIGN ......X,,..*.SySIN/SYSOUT 


* 


.* . *. OPTION .♦ 




.♦ . *. .* 




♦. .* X ♦. .♦ 




« NO ♦**** * YES 




♦ KM * 




* D3* 




X ♦ * 




***** * 




*JF * FNIOAG X 




♦ 82* ASSGNB6D .*. 




* * C3 *. 




♦ ,* *. 




CHKDIB .♦ PREVIOUS ♦ 


NO 


♦.ASSIGNMENT TO 


.*•... 


*, DISK .* 




*, .* 




*. .♦ 


X 


* YES 


***** 




*JG ♦ 




♦ Al* 




* * 



ASS6NB6A .*. 




Fl *. 




.♦ IS * 




.♦ASSIGNMENT 


'*. YES 


♦ .FOR A PROGR 


. .*. ... 


♦. UNIT 


.* . 


♦ . .* 




*, .* 


X 


♦ NO 


***** 


* 


*JG * 




* Al* 




* * 




* 


X 


ASSGNB6 


.♦. 




Gl ♦. 




.* * 




.* IS 


'♦. NO 


*. DEVICE 


.*. ... 


*. DISK 


.* 


*. .* 




*. .* 


X 


* YES 


***** 




*JF * 




♦ B2* 




* ♦ 



* IS THE 
FILE BEING 

♦ . CLOSED . 

*. .* 



4t4'***E3********** 
*CLRDIB KD* 



***************** 



***** 
*JF * 
* B2* 



***** 

*KM * 

♦ 03* 

* * 



♦*♦* 

♦ ♦ 

♦ B3 * 

♦ ♦ 
**** 
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Chart JF. $JOECTLD - ASSGM Stateirent Processor (Part 6 of 16) 
Refer to Charts 08 and C9. 






* TEMP 


*. YES 


ASSGN 


...... 


*. 


* « 


♦ . .* 




*. .♦ 


X 


* NO 


♦♦**♦ 




♦ JG * 




♦ Al* 




* * 




* 


X 


ASSGNB6 


.♦. 




C2 *. 




.* IS ♦ 




♦ASSIGNMENT 


*. YES 


FOR SYSRDR 


t .♦..•.. . 


♦SYSIPT, OR 
*.SYSIN.* 


* 





*♦*♦ 
* * 

ASSGNDIB .*. 

D3 *. 
.* HAS *. 
.* THE FILE ». YES 
*. BEEN .*... 
♦ . CLOSED .* 



.* HAS *. NO 
♦. SYSIPT BEEN .♦... 
*. CLOSED .* 



***** 
*KM ♦ 
* B5* 



ASS6NLST .*. 



.* IS *. 

.♦ASSIGNMENT ♦. 

. FOR SYSLST . 

♦.OR SYSOUT.^ 



***** 
*J6 * 
♦ A1 + 



♦ D3 

* ▼ 
*♦** 



♦ ASSGNB6 
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Chart JG« $JOBCTLD - ASSGN Stateirent Prccesscr (Part 7 cf 16) 
Refer to Charts 08 and 09. 

t***l REFERENCES 

i ♦« TO JGAis 

** ** JEC3, JEFl 

%* JFB2s JFF2 



♦**♦♦ 
*JH ♦ 
* B3* 



* LOAD LUB * 

* ADDRESS OF * 

* UNIT ASSIGNED * 

* TO IN A * 

* REGISTER * 



♦CHKASG3 GU* 

* CHECK * 

* ASSIGNMENT OF * 

* THIS UNIT * 



01 *. 
* * 

IS UNIT 



* IS 

ASSIGNMENT 
*. SYSLST . 



♦ IS 

ASSIGNMENT 
*. SYSPCH . 



X 
***** 

♦KM * 



EI *. 




.* IS * 




.♦ ASSGN FOR 


♦ . YES 


♦. PROGRAMMER 


.*. .. . 


♦. UNIT 


* 


*. .* 




* , ,* 


X 


* NO 


**** 


* 


♦ 




♦ C3 




* 


, 


**** 



*♦** X 


ASSGN34 .*. 


C3 *. 


.* IS *. 


NO .♦ THERE A ' 


...*.JIB ATTACHED 


*, TO THIS »■■ 


*. LUB .* 



**** 
« * 

♦ B2 * 

♦ * 
**** 



****!gcG !**««*«*«*« 

* CHKASG GU* 
*_*_♦_*_*_*_*_*_♦ 

* CHECK 'SYSPCH * 

* ASSIGNMENT * 

* ♦ 

«****4c*********** 



.* IS 

*. SYSPCH 
♦.ASSIGNED 



*****j X********** 

♦ SAVE SYSPCH * 

♦ PUB ADDRESS * 

♦ IN WRKRGl * 

♦ FROM WRKRG4 * 

♦ ^ ^ * 



*****K 1********** 

* CHKASG GU* 
♦_♦_*_*-*_*-♦_*_* 

* CHECK SYSLST * 

* ASSIGNMENT * 

* * 
***************** 



NO .* SYSOUT 
X..*. ^«ODE 
*. *D4 



*«**i|cQ3****4t*«**4e 

* * 

* MOVE LUB TO * 

* WORK AREA * 

* JIBCHN * 

* * 

«««4:)|c«i|i**«**««^** 



♦_*_*_*_*_*_♦_*-« 

♦ COMPUTE ♦ 

♦ ADDRESS OF ♦ 

♦ ATTACHED JIB * 

««*«*«*♦**!(<:««**«♦ 



.*. 

F3 *. 

.* IS *. 

ATTACHED *. 

JIB .* 

.STANDARD .* 



SYSLST AND SYSPCH PUB 
ADDRESSES ARE COMPARED. 
IF THEY ARE EQUAL. SYSOUT 
MODE IS IN EFFECT. 



YES .* IS 
,X...*. ASSIGNMENT 
*. TEMP 
*. .* 
X *. .* 

♦ «*:«(♦ * NO 

*KM * 

* 03* .X.... 



***** 
*KM * 
* D3* 



***** 
*JH * 
* B3* 
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Chart JH. $JOECTLD - ASSGN Stateirent Frocessor (Part 8 of 16) 
Refer to Charts C8 and C9. 



I'*'T REFERENCES 

I Jl TO JHB3S 

* 4> J6A1. JGJ2 



ASS6N36 .*. 






B3 ♦. 






.♦ 4t 






.♦ TEMP 


'♦ 


. NO 


♦. ASSIGN 




...... 


*• 


,4e 




♦ . .♦ 






♦ . .* 




X 


♦ YES 




**** 






♦ H3 * 

* * 






*♦♦* 














C3 ♦. 






.* * 






NO .♦ SYSOUT 


'♦ 




...*. MODE 




I* 


♦ . 


.* 




*. .* 






*. .♦ 






* YES 







E3 *. 

,* ♦. 

* ASSGN ♦ 

OF SYSLST 



*KM * 
♦ 03* 



* YES 






♦ ♦♦* 

* H3 

* 


X 








.*. 








G3 *. 








,* * 








.* TWO 


♦ 


. NO 


*. FREE JIBS 




.♦ 




♦.AVAILABLE 


.* 






*, .* 








*. .♦ 






X 


* YES 






♦♦**♦ 


♦*** 






♦ KM ♦ 


* * . 






* D4* 


* H3 *.X. 






* ♦ 


♦ * , 






♦ 


♦*** X 


NOMRJ B 


ASSGN27 .*. 








H3 *. 








,* * 








.* IGN 


'* 


. YES 


*. OR UA 




.♦ 




♦.SPECIFIED 


.♦ 






*. .* 








*. .* 






X 


* NO 






♦ •♦** 

♦ JM * 










* CI* 










* * 










* 






ASSGN20 


X 








««4c4>«J3*«*«****** 




* SCAN CROSS 




* 




♦ ASSGN TABLE FOR* 




* ALL SPECIFIED 


* 




♦DEVICE TYPES 


IN^ 




♦ INFO TABLE 




* 




4i«4e4c4<«««:< 


|t4:;^««^ 


|t*3 


It* 





.* VALID *. 


NO 


DEVICE .* 




♦. TYPE .* 




*. .♦ 




*. .* 


X 


♦ YES 


*♦*♦* 




*KM « 


DEVSCAN*. INDVTP 


♦ B2* 


X 


♦ * 


♦♦♦** 


« 


*JJ ♦ 




* Bl^ 
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Chart JJ, $JOBCTLD • ASSGN Statement Frccesscr (Fart 9 cf 16) 
Refer to Charts 08 and 09. 



***** 

*JH * 
* K3* 



**** 

♦ ♦ 

♦ B3 * 

♦ * 

*♦** 



***** 
*JK * 

* 05* 



*TURN ON DND, 
* IDS, AND CIOA 
* SWITCHES 
* * Kl * 

4c:(t*!tc4c****** 



CI *.X 



**** 

GETNEXT X 

«««««C I********** 
*GETPUB KN * 
♦_♦_♦_*_♦_♦_♦_♦_* 

* GET NEXT PUB * 

* FROM INFO * 

* TABLE LIST * 

It^^tc^t************ 



«4<*B2****=t'* ****** 






B3 *. 
,♦ * 






* * 




• * 


SHR 


** 


. YES 


NOP 




*. 


SPECIFIED 




.*•»•• 


♦ * 




* 


'*. .* 


.* 




«4«««#4t«#*4i3ic4t«#4c* 






*. .* 

* NO 




X 

*JK * 

* Bl* 

* * 

* 


X 










TESTC 


.*. 












C2 *. 






C3 *. 






.* ♦. 






.*DEVICE * 






.* DUMMY *. NO 




.* 


OWNED 


*♦ 


. YES 


*. DEVICE SRCH .*.. 




*. 


BY 




.*«... 


♦. IND .♦ 




* 


. OTHER 


.♦ 




*. OFF .* 






*.PART..* 






♦ . .* 


X 




*, ,* 




X 


* YES 


»!*** 




* NO 




i^t** 



TURN OFF 

CIOA 

SWITCH 

* * 



B5 ♦. 
. * *. 

DEVICE 
OWNED BY 

ANY 
*.PART .* 
*. «* 
* NO 



**C5******* 

* ♦ 
TURN OFF 

UCUA 
SWITCH 

* * 

:(c«4c******** 



♦ F3* 

* * 
*♦** 



Dl *. 




D2 *. 






D3 *. 






4c4'*D4************ 






**05******* 


.* *. 




.* *. 




.* *. 








* i 


.* END ♦. YES 




.* ASSGN *. NO 




.* OLD * 


, YES 


* * 




* TURN ON 


*. OF ...... 




*,SYSXXX,X'CUU'.*.... 




*. STATEMENT 


*.. . . 


SENSE 




* MOUNT 


*. LIST .* 




♦, TYPE .♦ 






♦.INDICATED.* 






* * 




* SWITCH 


*. ,* , 




*. .* 






*. .* 










* i 


*. .* X 




*. .* 






*, ,* 






«#]»r******* ******* 




4(********«4( 


* NO **** 




* YES 






* NO 










, 


. ♦ 


4c 




















* J5 
* 


* 
* 


• 






•* 










* 


***4 






















X 




X 






X 












.♦. 




.*. 






.*, 










X 


El *. 




E2 *. 






E3 *. 






E4 *. 




«4c* ♦*F5 *******x 


.* ♦. 




.* *. 






.*OEVICE *. 






.♦ *. 




* 


.* DEVICE *. YES 




.♦ ASSGN *. NO 






.* OWNED * 


NO 




.* DEVICE *. NO 




* SAVE 


*. DOWN .*.... 




*.SYSXXX,SYSYYY.*..X 
*. TYPE .* 






*. BY 


♦ ..X 




*. READY .*.... 




* NEWPUB 


*. .* 








*. THIS .* 






*. .♦ 




* IN PUBSAVE 


*. .* 




*. .* 






♦.PART. .* 






*. .* . 






*. .* X 




♦ . .* 






*. .* 


X 


*. .♦ X 




4c4:**4c********«:| 


♦ NO **** 




* YES 






* YES 


***** 


♦ YES ♦*♦* 




* 


* 


* 






**** 


*JK * 


* 


♦ 




♦ CI 


* 








* * 


* Bl* 


♦ B5 


* 


, 


♦ 


♦ 








* F3 *.X. 


* * 


* 


* 


X 


***« 










* * 


* 


***♦ 


**** 






X 






**** X 


TESTCIOA X 




* * 


X 




.♦, 




OWNED .*. 




.* . 




* CI * 


4c*«**p 14c********* 




F2 *. 






F3 ♦. 




F4 *. 




* ♦ 






,♦ *, 






.* *, 




.* *. 




**** 


* SAVE PUB * 




.*VOL SER NO *. YES 






.* MOUNT * 


YES 


.* DEVICE *. NO 






♦ PTR IN ♦ 




*. SPECIFIED .*..X 






*. SWITCH 


.*.... 


*. A TAPE .*,... 






* NEWPUB * 




*. .* 






*. ON .* 






*. -* 












*. .* 






*. .♦ 






♦. .*' 






**«* 


4t***««#«**4c*«««4c« 




*. .* X 




*. ,* 






*. .♦ 






* * 






* NO **** 


* NO 






* YES 






* r,5 * 






♦*** . * 


« 














* * 






* * . ♦CI 


* 














**** 






* G2 *.X. * 


* 




















* * . **** 
















X 




**** 










X 








.*. 


NQDUMMY X 




X 






.*. 




SWOFFI X 


Gl *. 




**G2******* 




♦♦G3******* 






G4 *. 






♦*(;5******* 


.* ♦. 




* * 




* ♦ 






.* *. 






* i 


.* DEVICE ♦. YES 




* TURN OFF ♦ 




* TURN ON * 




NO .* TAPE *. 






♦ TURN OFF 


*. 2955 .* 




X* DUMMY DEVICE * 




* UCUA SWITCH 


* 




...*. POSITIONED .* 






♦ MOUNT 


*. .* 




* SRCH IND IN * 




* *K1 * 




*. AT LOAD .* 






* SWITCH 


*. .* 




* CCMREG * 




* * 






*. POINT.* 






* !( 


*. .* 




««****«*«** 




4:4c********* 






X ♦. -* 






4c««4e ******* 


* NO 












**** * YES 








♦♦♦* 












.* 


* 






**** * 


*JK * 




I 




*x. . . . . 




* 


B5 * .X. ........ . 






* * 


* D5 *.x: 


X 




* 


* . 




* H5 *.X. 


* * . 








**** 


**** 




* * 


♦*** 








♦ * 








**** 


x 




X 




* CI * 




RDVOL X 


SW0FF2 X 


«4i***Hl ********** 




**H2******* 




* * 




4C4C4H4************ 




4e«H5******* 


* * 




* * 




**** 








* * 


* ASSIGN * 




* TURN OFF * 








* READ * 




* TURN OFF 


* SYSUSE * 




* ID * 








VOLUME 




* UCUA 


* * 




* SWITCH ♦ 








* LABEL * 




* SWITCH 


* * 




* * 












* i 


*«««4c«4tiK>tc******** 




«««******** 








4*********4c****** 
X 




4<:^4(:<c«4c4c**** 

**** *, 

* * . 

* J5 *.X. 

* * 
**** 


X 












.*. 


ENDSCAN X 


**J1******* 




J2 *. 








J4 ♦. 




4t**«*jc; **3{t4c4;4t* 


♦ ♦ 




,* MOUNT *. 








.* *. 




* 


* INDICATE * 




.* PENDING *. YES 








.♦ UNRE- *. YES 




* UNASSIGN 


* DUMMY DEVICE * 




*. ON THIS .*.... 








♦ .COVERABLE I/O.*..,. 




* SYSUSE 


* SRCH IN * 




*. DEVICE .* 












*. ERROR .* 






* 



4:4c*************** 



**** 

* * 

* B2 * 

* * 
**** 



*K1 
DND = DEVICE NOT DEFINED 
IDS = INVALID DEVICE STATUS 
CIOA= CONFLICTING I/O ASSIGNMENT 
UCUA= UNIT CURRENTLY UNASSIGNABLE 



.♦VOL SER NO *. 

.READ = ONE IN. 

*. INFO .* 

♦.TABLE.* 



***** 
*JL * 
♦ Bl* 
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Chart JK. $JOECTLD - ASSGN Statement Processor (Part 10 of 16) 
Refer to Charts C8 and C9, 



♦*♦♦♦ REFEftENCeS 
* * TO JK81: 
% J* JJB3, JJE3 



♦INITIALIZE FOR * 

* CROSS ASSIGN- * 

* MENT TABLE ♦ 

* LOOKUP ♦ Kl * 



ASSGN6 

♦ INCREMENT * 

♦ WRKR4 BY 5 * 

♦ BYTES TO ♦ 

♦ POINT TO NEXT * 

♦ TABLE ENTRY * 



Dl *. 

.♦ UNIT *. 

.♦EQUAL THIS ♦ 

TABLE 

♦. ENTRY .♦ 

*.♦ Fl .♦ 

♦ • .♦ 

♦ NO 



ASSGN7 .♦. 

D2 ♦. 

.* DOES ♦. 

.♦UNIT EQUAL ♦. NO 

...X*. FIRST .♦.., 

♦. TABLE .♦ 

*. ENTRY. ♦ 

♦. .♦ 

♦ YES 





♦♦♦• 

♦ ♦ 

♦ 84 ♦ 

♦ ♦ 
*♦♦♦ 


ASSGN8 

♦ SAVE CROSS ♦ 
..X+ ASSIGNMENT ♦ 

♦ MASK IN ♦ 

♦ TABXAS ♦ Gl ♦ 
4c4c« ♦♦♦♦*♦♦♦«**♦♦♦ 


ASSGNIO .♦.^ 

.* PROG **. 
,..LUg^SCAN . 

♦.-PROGSW- .♦ 

♦ . .♦ 

♦ « .♦ 



NO .♦ 


END 


..*. 


OF 


♦ . 


TABLE 



♦♦C3«^^««^^ 

♦ TURN ON ♦ 
♦PROGSW SWITCH^ 

♦ INDICATE SCAN ♦ 
♦ ONLY PROG. ♦ 

♦ LUBS ♦ 
^^^^■♦♦♦♦♦♦^ 



4c** ^'^Da*^ ♦♦♦♦♦♦♦♦ 

♦ LOAD REGISTER ♦ 

♦ POINTl WITH A ♦ 

♦ 1 TO INDICATE ♦ 

♦ PROGRAMMER ♦ 

♦ CLASS * 
4t4>****4t** «*«**♦♦♦ 



ASSGNI2 

4t4>Q4*«4t«4c4t4t 

♦ TURN OFF ♦ 

♦ PROGSW TO ♦ 
♦ INDICATE SCAN 

♦ ONLY SYSTEM ♦ 

♦ LUBS ♦ 



«4>***D4iti*>|i4<4i4<>tt**4t 

♦ * 

♦ SET REGISTER ♦ 

♦ POINTl TO ♦ 

♦ TO INDICATE * 

♦ SYSTEM CLASS ♦ 

4c*«*«4(*4<***«4t4e*4(* 



:tt****C5********** 



AND COMXAS 
INTO TABXAS 



**4<4t*«*4>4i***«**«* 



.♦ DOES ♦. 
.♦ RESULTANT ♦. YES 
♦.TABXAS EQUAL ...... 

♦. COMXAS .♦ 



.♦. 




ASSGNLOl X 


E2 ♦. 




itiifm**E'i** ********* 


.♦ IS ♦ 




♦GETLAN KA ♦ 


♦ ACTUAL 


♦ . YES 


♦_*_♦_♦_♦_♦-♦_♦_♦ 


DEVICE TYPE 


.♦. . • 


♦ COMPUTE LUB ♦ 


♦, DEVTYP, 


♦ 


♦ ADDR AND NO. ♦ 


«, COD .♦ 




♦ IN CLASS ♦ 


*« .♦ 




«4i3tii|>«4<4<4i**i|t4>**4c«* 



♦ . .♦ 


X 


♦ NO 


♦♦♦♦« 




♦JJ ♦ 




♦ Hl^ 


X 


♦ ♦ 


♦♦♦♦♦ 


♦ 


♦JJ ♦ 




♦ B4^ 




♦ ♦ 




* 




ASSGNB4 





♦♦♦♦♦ 

♦ KM ♦ 

♦ B2^ 



♦ Fl 

THE 



THE LOGICAL UNIT TYPE, NEWTYP«AND THE 
OEVICE^TYPI, DEVTYP. ARE COMPARED TO THE 
FIRST 3 BYteS OF THE 5-BYTE TABLE ENTRY. 



TABXAS - THE CROSS ASSIGNMENT MASK FROM 



, PROGRAMMER AND SYSTEM LUB • S HAVE BEEN 
^CKED FOR CROSS ASSIGNMENT. 



*4i*«*p34c*)|<*4(«*4i4E* 
♦SFPPE KF+ 

♦_♦-♦-.*-♦-*_♦-♦-♦ 
♦LOOK FOR EQUAL ♦ 

♦ PUB POINTERS ♦ 

♦ COMPUTE CTYPE ♦ 

♦ HI 



END 

OF 

LUBS 



.* PROG ♦. YES 
.X^.LUB SCAN ONLY.+.... 
♦.-PROGSW- .♦ 



*)t!*«i|tG5 ♦♦♦♦♦♦♦♦♦* 

* ♦ 

♦ SET CROSS ♦ 
X^ ASSIGNMENT * 

* BYTE TO HEX * 

♦ 8000 IN CTYPE * 



CTYPE IS THE COMPUTED LOGICAL UNIT 
TYPE AS DETERMINED BY THE DEVICE 
TYPE CODE IN THE PUB. 



EACH TIME AN EQUAL PUB POINTER IS FOUND, THE VALUE IN CTYPE 
ORED INTO COMXAS TO BUILD A LOGICAL ACCUMULATION OF BITS TO 
BE COMPARED TO THE VALUE IN TABXAS. COMXAS CONTAINED THE 
LOGICAL UNIT TYPE AS IT WAS SET IN NEWTAP BY THE SUBROUTINE 
SYSXXX. CTYP CONTAINS THE LOGICAL UNIT TYPE HEX BO IF 
PROGRAMMER LUBS ARE BEING SCANNED, OR THE COMPUTED 
VALUE SET IN THE SUBROUTINE SFPPE IF SYSTEM LUBS ARE 
BEING SCANNED. 



♦ B4 ♦ 

♦ ♦ 
♦♦♦* 



♦UPDATE LOGICAL ♦ 

♦ UNIT TYPE ♦ 

♦ ♦ Jl ♦ 

♦ ♦ 
i)i*««4!*«**4t***4t**« 



*i(t*«J5j|c«*«***«« 

♦ RETURN TO ♦ 

♦ SFPPE ♦ 

♦ SUBROUTINE ♦ 



MOVE THE LOGICAL UNIT TYPE 
TO COMXAS FROM NEWTYP 

LOAD WRKRG4 AS POINTER TO 
CROSS ASSIGNMENT TABLE 
LESS 5 BYTES (XATABLE-SI 
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Chart JL. $JOECTLD - ASSGN Statement Frccesscr (Part 11 of 16) 
Refer to Charts 08 and 09, 



***** 
♦jj ♦ 

* J5* 



♦ B2 * 

♦ * 
**** 



♦»** 

* ♦ 

* B4 * 

* * 
*♦♦* 



Bl *. 
.♦ ♦• 
NO .* OPTION 
,..*. ACANCEL 

*.IN FORCE . 
*. .* 
*. .♦ 
* YES 



**C1******* 



*********** 



*****B2********** 

♦ ♦ 

♦ WOVE * 

♦ PUBSAVE * 

♦ TO NEWPUB ♦ 

♦ * 
***************** 



♦*** 

♦ i 

♦ C2 ♦.X 



♦♦♦♦ 
BEGXCUU .*. 

C2 ♦. 



***4i*02 ****'*<***** 



CIOA 
SWITCH 

ON 



**H1******* 

* * 
TURN OFF 

AUTO 
CANCEL 

* ♦ 



.* MOUNT ♦. NO 
SWITCH .*... 
♦. ON .* 



***** 
*KM * 
♦ D2* 



*****G2********** 

* * 

* INITIALIZE * 

* DTP'S FOR * 

* DEVICE TYPE * 

* OF NEW ASSIGN * 
«**)(c«***«4c4c****** 



H2 *. 

.* *. 

* MOUNT * 

SWITCH 

*. ON .* 

*. .* 



**B3 ♦***♦** 

* ♦ 

* INDICATE * 
* MOUNT PENDING * 

* ON THIS * 

* DEVICE * 
*********** 



*4iC3******* 

* * 
SET ON 

PUB OWNER 
BIT 

* * 
****** ***«4c 



**3tc 03 ******:****** 



4>*«4c*BA********** 



«4c******4c4(******* 



DND 


* 


. YES 


* INITIALIZE ♦ 


* ISSUE MOUNT 


SWITCH 




*. ... 


* MODE ♦ 


MESSAGE 


ON 


.* 




♦ FIELD * 


* 1T50A ^ 


*. .* 






* * 




*, .* 




X 


***«4<************ 


*4>*************** 


* NO 




***** 

♦KM * 




**** ' 






* B3* 
* * 


*x,,. ,,,,,,, 


* * . 


* 




* E3 *.X. 






* 




* * . 


X 




TXCUU188 


**** , 


.*. 






X 


X 


El *. 






*****E2********** 


**E3******* 


* * 






* * 


* ♦ 


IDS 


** 


YES 


* COMPUTE PUB ♦ 


* INDICATE * 


SWITCH 




*. ... 


* INDEX AND * 


♦ PARTITION ^ 


ON 


,* 




* STORE IT IN ♦ 


* WAITING FOR * 


*. .* 






♦ NEWLUB * 


* MOUNT * 


*. .* 




X 


**«*««*«:4c««*>|c4c*** 


*****4c*«*4c« 


* NO 




***** 
*KM * 






• 




* B4* 
♦ ♦ 

* 






X 




IVDS 






.*. 






X 


X 


Fl *. 






****«F2**+******* 


**F3******* 


* * 






* * 


* * 


UCUA 


'* 


, YES 


* GET ZONE * 


* UNPOST ♦ 


SWITCH 




*. .. . 


♦OF DEVICE TYPE * 


♦ TRAFFIC BIT * 


ON 


,* 




♦ IN DEVTYP * 


* IN DUMMY * 


*, .* 






* * 


* CCB * 


*, ,* 




X 


««****4«««4'****** 


«)((4t*««igc4e**)tc 


* NO 




***** 

♦KM * 

♦ 01* 

* * 

* 






X 




TIAERR 







DEVICE 

A 

TAPE 



***D4***++******* 

* * 

REWIND 
* * 



* READ 

VOLUME 
* LABEL * 

«*i(c**«iK4:«*«4c***** 



CORRECT *. YES 
VOLUME .*.... 
MOUNTED .* 



**** 

* * 

* F5 ♦ 

* * 
**** 



«4(F5******* 
* * 

* TURN OFF * 
* I NO. MOUNT 

* PENDING ON * 
♦THIS DEVICE* 

^c^tc^c******** 



«**4t*G3 ********** 



* ♦ WAIT * J3 * ♦ 



4c*:(c*4i4t«4<««i|c*«*4c«4c 



«itc*G4************ 

♦ ISSUE ♦ 
WRONG VOLUME 
* MESSAGE ♦ 
1T60A 
4:«*««4(«4c4c*4<****** 



«4c***G5 ********** 



4:*4c4c«««*«]^««*)|c*4(« 



***** 
*JM * 
* RI* 



* YES 



**** 

* * 

* F5 ♦ 

* * 
**** 



ON DUMMY CCB THE OPERATOR WILL 
REACTIVATE THIS PARTITION VIA 
THE NEWVOL ATTN COMMAND AND 
THE TRAFFIC BIT WILL BE POSTED 
AGAIN BY THE ATTN ROUTINE. 



♦ C2 ♦ 

♦ * 
**** 



* B2 * 

* * 

**** 



***** 
*KM * 
* Dl* 



:1 
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Chart JM. $JOBCTLD - ASSGN Stateirent Processor (Part 12 of 16) 
Refer to Charts C8 and 09. 



♦JL ♦ 

♦ G5* 



♦ ♦ 

* B3 ♦ 



.* 


ALT * 


. YES 


♦. ASSIGN 


.* 




*. 


.* 






♦ , 


.* 






*, .* 




X 




* NO 




♦♦♦♦♦ 


*♦*♦ 






♦JR ♦ 


♦JH ♦ 








* Bl* 


* H3 ♦ 


.X 






* * 


* * 








* 


**♦* 








ASSNALT 


ASSGN20 


X 






«*4'«*C I********** 




♦ 




* 




* PUT NULL 


4c 




♦ JIB 


POINTER 


* 




♦ IN 


Nl 


EWLUB 


» 





**#« ***♦****« *♦♦« 



.* 


*. 






.* ASSGN ♦ 


. YES 


♦ . OF 


.* 




*. SYSOUT .* 






♦ . .* 






*. .* 




X 


* NO 




**♦« 


♦**♦ 




♦ 


♦ JP * 






* J2 


♦ B5 *.X 






* 


* ♦ 






**** 


**** 








ASSGN23A X 






4c4e4c«*C3***>K*«**'f« 




*RSTSTD KE 






*-*-*-*-»-*-♦-* 






..X* RESET LUB 






. ♦ TO STANDARD 






♦ 






«4>*al<4t«****«*«***4i 




♦♦*♦ 






* 








C3 * 








* 








♦*** 









* NO *«**4t 

♦JN * 
♦ Bl* 
* * 



♦UNPA3 KH * 

♦_♦-.♦_♦_♦_♦_♦_»_* 

* UNASSIGN * 

* STANDARD * 

* ♦ 



.* CLOSE *. NO 
WITH .*... 

♦.REASSIGN .* 



4t4c**«F I********** 
•CLOSEl KC * 
♦-♦-*-♦-*-«_♦-*-♦ 

* CLOSE * 

* THIS ♦ 

* FILE * 



♦**♦ 

* ♦ 

* C3 * 

* * 
**♦♦ 



.* ASSGN 
♦ . OF 
*. SYSLST 



4e4c*4<*H2**4<***«*«* 
* 

.X* 



NULL JIB 

POINTER FOR 

SYSLST 



E3 ♦. 
.* *. 
* ASSIGN 
TO UA/IGN 



F3 *, 

.* *. 
» TO MFCM/ *. NO 
MFCU .*... 



ASSIGN 

TO 

TAPE 





♦ 


SYS 


♦ 


RDR/IPT/IN/ 




*. 


PCH 




*. 


.* 
♦ . .♦ 
* YES 


*JN ♦ 






* 


H3 * 


.X 




* 


♦ 






**** 







:(t«««***«4>*4i*4t**** 



* * 

* MODIFY PUB * 
« FOR HOPPER * 

♦ SPECIFICATION * 

♦ * 



♦ Y 


FS 


«♦««* 






♦ JN * 

* 


X 




ASSGN24 


.*. 






G4 * 


** 




MODE 




*. YES 


SPECIFI 


ED 


,* ,, 



«*«4c4tG5 ♦♦♦♦♦*♦*♦♦ 
♦REMOVE STANDARD* 

* MODE FROM PUB ♦ 
(♦ AND PUT IT IN ♦ 

* NEW ONE ♦ 

* (PUB + 7} ♦ 



^^^^■♦(^^♦♦♦♦♦♦♦♦♦^ 

♦ * 

♦ UPDATE ♦ 

♦ SET MODE * 

♦ (PUB +5) * 

♦ ♦ 



.♦ ASSGN 
♦ . OF 

♦. SYSPCH . 
♦ . ,* 
*. .* 
♦ NO 

X 
♦♦♦♦ 

♦ * 

♦ B3 ♦ 

♦ * 
♦♦*♦ 



♦ ♦ 

* NULL JIB * 
X* POINTER FOR * 

♦ SYSPCH ♦ 

* * 
««**«♦**«*««**♦♦♦ 



.X.. 
X 

♦*** 

* ♦ 

* C3 ♦ 

* ♦ 
♦♦♦♦ 



♦ JN ♦ 

♦ B3+ 
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Chart JN. $JOECTLD - ASSGN Stateirent Processor (Part 13 of 16) 
Refer to charts C8 and C9, 



***** 

♦ JM ♦ 

* Dl* 



***** REFERENCES 

* * TO JNB3: 

♦ ** JMF4. JMH3 



FILE 
BEING 
. CLOSED 



4c4(««»C I********** 
♦CLOSEI KC * 

♦_♦_♦_♦_♦_♦_♦_♦_♦ 

♦ CLOSE * 

♦ THE FILE ♦ 

♦ * 
4t4t**4t4i*4c********* 



♦ ♦*♦ 
*JP * 

♦ 85 



**** 
ASSGN28 

4(«!tC**D l^t* <■<■'*' =('^«=(<** 



C3 *. 
.♦ 

* ASSGN 

FOR 
*. SYSREC 

♦ . ,■■ 



*4c4t«4t03********« 



4t**«**********4i** 



4c)|c * « itc « * *« # 4c ** « « « 4< 



«s|c««4tE I********** 
♦RSTSTD KE * 

♦_♦_♦_*-*-♦-♦_*-♦ 

♦ RESET LUB ♦ 

♦ TO STANDARD ♦ 

♦ * 

*4e*************«* 



ifiHiriurf i^«j(c:|t«3|i***** 
« * 

♦ PUT STANDARD ♦ 

♦ ASSIGNMENT * 

♦ IN JIB * 

♦ * 
*4i***«**4c*«****** 



♦♦GI******* 
* FLAGr JIB ♦ 

♦ CONTAINING 
♦ STORED 

* STANDARD 
♦ASSIGNMENT * 

«4(4c***4(4c3(c«* 



*ALL PARTITIONS * 

* ♦ 

«#« «*9tll4t ******** ** 



***** 
*JP * 

* AI* 



HI *. 

.* *. 

.♦ MFCM/ ♦ 

•«. MFCU 



.* 
. .♦ 
* NO 



**H3******* 

* * 
*RESET HOPPER ♦ 

* BITS FOR * 
* STANDARD * 

* ASSIGN ♦ 
*4(4c* ******* 



***** 

♦ JH * 

* H3* 



,♦ 
♦. TAPE 
*, 



.* MODE 
.X*. SPECIFIED 
*, 



*:(c4<««j3*4c******** 

* * 

* UPDATE * 
X* SET MODE * 

* (PUB + 5) * 

* * 



**** 

* * 

* B3 ♦ 

* * 
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Chart JP. $JOECTLD - ASSGN Stateirent Prccesscr (Part 14 of 16> 
Refer to Charts 08 and 09. 



♦*♦♦* 

*JN ♦ 
♦ 03* 



« * 

♦ A2 * 

♦ * 



ASS6NB7 X 

♦CHKOPN KJ* 

«_♦-♦_♦_♦-♦_*_♦-♦ 

♦ SET OPEN FLAG ♦ 

♦ OFF IN DFBS * 

♦ USING THIS ♦ 



4> * 

* LOAD LUB ADDR ♦ 

* OF THIS UNIT * 

* IN WRKRG3 ♦ 

* * 



«*4t«*CI*****«<**«* 
♦CHKASG3 GU ♦ 

*_»_♦_*_♦_♦_#_#_♦ 

♦ CHECK * 

♦ ASSIGNMENT * 

♦ FOR THIS UNIT * 



«4<#*«A3«* ****<<<'♦* 



*ilf*it*(^^********i** 



♦ASSIGNMENT 


♦ . 


YES 


* RESET JOB * 






* INIT * 


FOR 




........ 


,X* CONTROL LINE * 




* POINTER TO ♦ 


*. SYSLST . 


* 




* COUNT TO 1 * 




♦ PIB-EXTENSION * 


*. .* 






♦ * 




* * 


♦. .♦ 






Hfit'*******^******* 




«4c«4c*«::»:«(4c******** 


* NO 












Ix... . 










Ix. ...... 


X 










X 


.♦. 










.* . 


82 *. 






*B3 




B4 *. 


.* IS ♦, 






THE SYSTEM UNITS 




.♦ *. 


♦ASSIGNMENT 


♦ . 


YES 


SYSRDR, SYSIPT 




YES .* ALL *. 


FOR A PROG 




*.. .. 


SYSPCH, AND SYSLST ... 


...*. PARTITIONS .♦ 


*. UNIT 


* 




CAN BE OPENED. 






♦. CHECKED .♦ 


*. .* 












♦ . .* 


♦ . .♦ 




X 








*. .* 


♦ NO 




*♦♦*♦ 








* NO 






*JR * 

* HI* 

♦ * 

* 










X 




EXIT 










.*. 




ASSGN38 .*. 






CONDSCK X 


C2 *. 






C3 *. 






*4c***C4********** 


.* *. 






.* *. 






* * 


♦ ASSGN 


* 


NO 


.* CAN *. NO 




* INCREMENT * 


FOR 




* , 


.X*. THE UNIT .* 


..X 




* TO NEXT * 


♦. SYSCLB 


* 




♦.BE OPENED.* 






♦ PIBX * 


». . * 






*. *B3 .* 






* * 


♦• . * 






♦ , ,* 


X 


*4:#4:************* 


♦ YES 






* YES 

X 
***** 


***** 

♦ JR * 

* HI* 
* * 

* 




X 






*JQ * 


EXIT 


X 








* A3* 






.*. 



4c«**«F ]^ ********** 

* SET ON PUB- * 

* OWNER BIT FOR * 

* CURRENT * 

* PARTITION ♦ 

* *K5 * 

4c««***«********** 



*4c***G 1********** 

* * 

* SET OFF * 

* EOJ-BIT * 

* IN PUB * 

* * 

4i«#4c:|c:|c*«4t30c******* 



ASSGN *. YES 










.* IT THIS 


TO ...... 








* 


. PARTITIONS 


'. UA .* 










♦. PIBX 


♦ . .♦ 




***♦ 






♦ . .* 


*. .* X 




* * 






*. ,* 


* NO ***** 




* E3 * 






* NO 


♦JR ♦ 




* * 








♦ HI* 




**** 








* * 
* 




I 






• 


EXIT 










X 


X 




X 




SAMELUB .*. 


**g2******* 


4c4c***E3 ********** 




E4 *. 


* TURN OFF * 




SVC2 


* 




.* ♦ 


CyCTgHf CTip *: 




FFTCH 


* 




.* SAMF 


EN INDICATOR * 




$$BOPENR TO 


* 


* 


. PUlNTtR IN 


* 




OPEN PCIL 


* 




*. LUB 



**«4i****4c:|e:4c 



4c****** *********«: 



***************** 



X 


SAMEDIB .*. 


««««4cp3 ********** 


F4 *. 


*MTNCNT GU * 


.♦ 


*-*_♦_♦_♦_♦_*_♦_:)« 


.* SAME 


♦ SEIZE ♦ 


*. STARTING 


* THE * 


♦.CYLINDER 


* SYSTEM * 


*. .^ 


;»«4c«*>|c«c**:«e«****4c* 


*. .♦ 



.♦ASSIGNMENT ♦. NO 
FOR .*... 
♦. SYSIN .♦ 



.♦ IS ♦. 
.♦ASSIGNMENT *. NO 
.X*. FOR .*.... 

*. SYSOUT .* 



««Q34i**4c*** 

* RESET * 
SYSTEM FILE 

OPEN 
INDICATOR 

* * 

^;<c:4c#4(4c***** 



H3 *. 

.* WAS ♦. 
.* OPEN 
*. SUCCESSFUL 



G4 *. 

.* PCIL *. 

.* CONDENSE *. 

*.0R ALLOW EXEC. 

*. BIT ON .* 



INVASGN 

«4i*4c«H4********** 
*UNPA3 KH* 

*_*_*_♦_♦_♦_*_♦_♦ 



«#>(c«it(^5 4t**«****** 

♦ NULL THE * 

♦ JIB POINTER ♦ 

♦ IN ♦ 

♦ NEW LUB ♦ 

♦ * 

4<««itc«*4c««*:|c«4c4c*4c« 



***** 

♦ JM ♦ 

♦ C3 + 



***** 
*JN * 

* ni* 



*3te***E5 *♦♦*♦♦♦♦♦♦ 

* * 

* CLEAR ADDRESS * 

*0r LihiK OTfttu- * 

* TORY IN FETCH * 

* TABLE * 
*4<**************« 



4t4<***F5 **♦♦♦♦♦♦♦* 

♦ PUT # CYL ♦ 

♦ BLK/TRK AND ♦ 

♦ # T»KS/CYL IN * 

♦ FETCH ♦ 

♦ TABLE ENTRY * 

:Cc**** ************ 



***«*(;5 *4e******** 

♦ * 

♦ 8UTL0 SECOND ♦ 
♦LEVEL DIRECTORY^ 
♦FOR THIS SYSCLB^ 

♦ IF NEEDED ♦ 

*4c4c************** 



**** 

* * 

* A2 ♦ 

* * 
**** 



***** 
♦JO * 

* B5^ 



4c4e«:tc*J X********** 

* ♦ 

* SET SYSTEM * 

* TYPE, SYSTYP ♦ 

* FOR SYSIPT * 

* * 

**4c***4:4:********* 



««*4i«J2 ********** 

♦ * 

♦ SET SYSTEM * 

♦ TYPE, SYSTYP ♦ 

♦ FOR SYSLST ♦ 

♦ * 
4<**** ************ 



***#*J3 ********** 

♦ PUT SYSCLB ♦ 

♦ START ADDRESS ♦ 
♦IN FETCH TABLE ♦ 

♦ ENTRY OF * 

♦ SYSCLB ♦ 
***************** 



***************** 



***** 
♦KM * 
♦ D3^ 



***** 
*JR * 
♦ Hl^ 



ASSGN3I X 

*****K 1********** 
*INCR LUB ADDR, ♦ 

* LUBAD, BY 2 ♦ 

* TO POINT TO * 

* NEXT LUB * 

* SYSIPT/SYSLST * 
#***«*«********** 



*K5 
BYTE 0CMASK4-I IS ORED 
INTO THE PUBOWNER BYTE. 
NOTE: PUBOWNER BYTES ARE 

NOT LOCATED IN THE PUB 
BUT IN AN EXTRA AREA CON 
TAINING 2-BYTES PER PUB. 
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Chart JQ. $JOECTLD - ASSGN Stateirent 
Refer to Charts 08 and C9. 



Processor (Part 15 of 16) 



♦ Al * 



*♦♦** 

♦ JP ♦ 

♦ C3* 



ASSGN3A X 

*4<«««A1*«*4'««4'«'*'« 
♦MOVE CLASS AND ♦ 

* ORDER TO ♦ 

* USYSTN ♦ 

* DTF+6 FROM ♦ 
♦LOCATION CLAORD* 



«4(**«B !♦♦♦♦♦♦♦♦♦♦ 

* MOVE INPUT * 

* MASK, HEX OA, ♦ 

* TO IJSYSIN * 

* DTF+21 ♦ 

* -INPUT FILE- * 



♦ MODIFY FILE * 

♦ NAME IN * 

♦ IJSYSIN DTF * 

♦ +27 TO IN * 

♦ * 



.♦UNIT SYSRDR+. YES 
OR .*.... 
♦. SYSIPT .♦ 



**♦♦ 

♦ * 

♦ A2 ♦ 

♦ ♦ 
♦♦♦* 



* MOVE OUTPUT ♦ 

* MASK, HEX 08, ♦ 

* TO IJSYSIN ♦ 

* DTF+21 ♦ 

* -OUTPUT FILE- * 



♦ MODIFY FILE * 

♦ NAME IN * 

♦ IJSYSIN DTF ♦ 

♦ +27 TO PH ♦ 

♦ * 



♦ * 

♦ RESET KDD IN ♦ 

♦ SYSPCH DIB+9 ♦ 

♦ TO DECIMAL 81 ♦ 

♦ ♦ 



.♦ IS 
UNIT 
♦. SYSPCH 



♦ MODIFY FILE ♦ 

♦ NAME IN ♦ 

♦ IJSYSIN DTF ♦ 

♦ +27 TO LS ♦ 



ASSGN41 X 

4:«#«*A2^^«^^^^^^^ 

* LOAD SYSLST ♦ 

* DIB ADDR IN ♦ 

* P0INT2 FROM * 

* POINTl ♦ 

* ♦ 



* SET JCSWl ♦ 

♦ BIT 1 ON TO ♦ 

♦INOICATE-RETURN+ 

♦TO CALLER IF ♦ 

♦OPEN FAILS ♦ 



♦♦C2+^^^++^ 

RESET SWITCH^ 

♦BYTE, IJSYSIN^ 

* DTF+21, TO ♦ 

♦ HEX 08 ♦ 

* * 



_♦-*-*_♦_♦_♦_♦_♦ 
♦RELEASE SYSTEM, ♦ 
*SET SYSTEM MASK^ 
* TO HEX FF ♦ 



*««««£ 2 ♦♦♦♦♦♦♦♦♦♦ 

* ♦ FETCH ♦ ♦ 

* ♦$$BOPEN TO ♦ ♦ 

* OPEN THE FILE ♦ 

* SPECIFIED BY+ ♦ 

* IJSYSIN DTF.^ ♦ 



*MTNCNT GU ♦ 

♦ SEIZE SYSTEM, ♦ 
♦SET SYSTEM MASK^ 

♦ TO HEX FF ♦ 



**G2^+^^^^^ 

♦ SET JCSWl ♦ 

BIT 1 OFF TO I 

♦ND. NO RETURN T^ 

♦ CALLER IF ♦ 

♦OPEN FAILS ♦ 



.♦ DID 
. FILE OPEN 
♦.CORRECTLY. 
♦. ♦K2 .♦ 



:(i4c««* A3 ♦♦♦♦♦♦♦♦♦♦ 

♦ LOAD LUB ♦ 

♦ ADDRESS OF ♦ 

♦ THIS UNIT IN ♦ 

♦ WRKRG3 ♦ 

♦ * 



^i*4i**B3** ******** 
♦CHKASG GU ♦ 
*_♦_♦_*_*_♦_♦_*_♦ 

♦ CHECK ASSIGN- ♦ 

♦ MENT OF THIS ♦ 

♦ UNIT ♦ 

:f*****i^*# ******** 



IS UNIT 
ASSIGNED 



*♦♦** 

♦ JR * 

♦ H1 + 



E3 ♦. 

♦ IS ♦. 
DEVICE 
DISK OR 

3540 

♦ . .♦ 



* * 

* Al ♦ 

* * 
**** 



**** 

* * 

* G3 ♦ 

* ♦ 
**** 

X 

*****QJ********** 

♦ * 
♦UPDATE DIB FOR ♦ 
♦THIS UNIT FROM ♦ 

♦ IJSYSIN DTF ♦ 

♦ ♦ J5 ♦ 
***************** 



*****^^2********** 

* * 

♦ INSERT NUMBER ♦ 
♦OF RECORD/TRACK^ 

♦ INTO DIB ♦ 

* * 

********-Kf***:^1ti*** 



***** 

♦ JR * 

♦ H1+ 



******** 



*****K I********** 

♦ RESET KDD IN ♦ 

♦ SYSLST DIB+9 ♦ 

♦ TO DECIMAL ♦ 

♦ 121 ♦ 

♦ * 
***************** 



***** 
«JR ♦ 
♦ Hl^ 



♦ K2 
TEST SWITCH BYTE AT 
IJSYSIN DTF + 21. 
HEX 04 INDICATES A 
CORRECT OPEN 



ASSGN40 X 

***B4************ 
EXCPROG KL 
*_*_*_*_*-♦_*_*_♦ 

SENSE I/O 
♦ FOR THIS ♦ 
DEVICE 
***************** 



DEVICE 

TO LOAD 

POINT 



*****[)it********** 
*MTNCNT GU ♦ 

*_*_*_*_*_*_*_*_* 

♦RELEASE SYSTEM, ♦ 
♦ SET SYSTEM ♦ 
♦MASK TO HEX FF ♦ 
***************** 



«****E4*****«**** 

♦ * 

♦ PICK UP ♦ 

♦ UNIT CLASS ♦ 

♦ OF NUMBER ♦ 

♦ * 
***************** 



*****P4«;4(**4(«***« 

♦ GET RF TABLE ♦ 

♦ ADDRESS ♦ 

♦ FROM COMREG ♦ 

♦ EXTENSION ♦ 

♦ * 
***************** 



**G4******* 

♦ POST OPEN ♦ 

REQUEST 
IN COMREG 
EXTENSION 

* * 
*********** 



*****H4********** 

♦ SVC 2 ♦ 

♦ FETCH ♦ 

♦ $$BOPEN ♦ 

♦ TO OPEN ♦ 

♦ DEVICE ♦ 

****************j4c 



*****J4********** 
♦MTNCNT GU ♦ 

♦ SEIZE ♦ 

♦ SYSTEM ♦ 

♦ * 
***************** 



****K4^^^^^^^^^ 

♦ BRANCH TO ♦ 

♦ CONTROL IN ♦ 

♦ tJOBCTLA ♦ 
*************** 



***** 
♦JP * 

♦ H3^ 
* * **«* 
* * * 
...♦ 85 ♦ 
* * 
**** 
UNASSRN X 

*****B5 ********** 
♦UNPA3 KH^ 
*_*„#_*_♦_*_*_*_♦ 

♦ UNASSIGN THE ♦ 

♦ LUB FOR ♦ 

♦ THIS UNIT ♦ 
***************** 





C5 ♦. 




.♦ IS ♦ 





.♦ASSIGNMENT 




♦ . FOR 




♦ . SYSTN 




♦ . .♦ 


X 


♦ . .♦ 


***** 


♦ YES 


*JR * 




♦ Hl^ 




* * 




* 




EXIT 





*****|r)5 ********** 

♦INCR LUB AODR, ♦ 

♦ LUBAD, BY 2 ♦ 
♦BYTES TO POINT ♦ 

♦ TO SYSIPT ♦ 

♦ * 
************,)(*«** 



*****E5 ********** 
♦UNPA3 KH^ 
♦_*_*_*_♦_*_*_*_♦ 

♦ UNASSIGN ♦ 

♦ SYSIPT ♦ 

♦ LUB ♦ 
***************** 



♦ "01 NT TO ♦ 

♦ ERROR MSG ♦ 

♦ -IA80D- ♦ 

♦ * 
***************** 



****G5********* 

♦ BRANCH TO ♦ 

♦ OERRTN IN ♦ 

♦ SJOBCTLA ♦ 
*************** 



THE DIB CURRENT 
ADDRESS, BBCCHHR, IS 
SET FROM THE DTF+58 . 
THE R VALUE OF THE 
CURRENT ADDRESS IS 
SET TO 1. 

THE BB VALUE OF THE 
END ADDRESS IS SET 
EOUAL Tn jHE B8 VALUE 
OF THF CURRENT ADDR. 
THE CCHH OF THE END 
ADDRESS IS SET FROM 
THE OTF+54. 
THE UPPER HEAD LIMIT 
IS SET FROM DTF+71 
THE LOWER HEAD LIMIT 
IS SET FROM DTF+54. 
THE NUMBER OF RECORDS 
PER TRACK IS SET UP 
FROM A DEVICE TABLE. 
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Chart JR. $JOECTLD - ASSGN Statement Prccesscr (Part 16 of 16) 
Refer to Charts 08 and C9. 



♦♦»♦* 

* Bl* 



♦♦*♦ 

* * 

* B2 * 

* * 



ASSNALT X 

* PUT ALT ♦ 

* ASSIGNMENT IN * 

* NEW JIB AND ♦ 

* FLAG IT AS ♦ 

* ALT ASSIGN ♦ 



>|t*Dl:(e*4e4e*:tc:4> 



4c4i*4i««4c«4<*« 



«*3(t3|t^4e«4t**4<*«4e:ii«4c 



*****G1********«* 

* * 

* ATTACH JIB * 

* TOT SYSLST * 

* AS WELL * 

REFERENCES ***************** 
TO JRHl: ^^^^ 
JPB2, JPC3 ***** 
JPD2, JPH5 * ** „ 
J0C4t JQE3 * * *«X- 
JQH3, JQJ2 l^^^* 
EXIT 

Hi 



* ISSUE * 

ASSIGN 
* MESSAGE * 

1T20I 



*. NO 
TAPE .*.*X 



♦ ♦ 

SENSE 

****«*j|i***«#4c4i*** 



X 

.*. 

F2 *. 

.* ♦. 

.* IS TAPE ♦. NO 

♦.FILE PROTECT .*.,, 



*. 



* ATTACH JIB * 

* TO SYSLST LUB * 

* AS WELL * 



*******««**««4t4t«« 



♦ * 

♦ MOVE MESSAGE ♦ 

♦ TO BUFFER * 

♦ AREA * 

♦ 4< 



♦MSGOUT GJ * 

*-♦_♦_♦-♦_*_»_*_♦ 



*****4t:»*4i *#****** 



4e3|c*«K2****««*** 

* BRANCH TO ♦ 

* CONTROL IN ♦ 

* SJOBCTLA * 
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Chart JS, $JOBCTLD - CLOSE Stateirent Prccesscr 
Refer to Chart 09. 



♦♦♦♦A 14t****«4>4<« 

♦ * 

• CLOSE * 



CLOSE X 

4<**««B I********** 
♦INITL KA* 
»_*_♦_♦_♦_*_♦_♦_♦ 

♦INITIALIZE FOR * 

* REALLOCATION * 

♦ ♦ 



*««4c4(C !*♦*****♦♦* 
♦SCANR2 GK* 

* POINT TO ♦. 

* OPERAND ♦ 

* -SYSXXX- ♦ 



*A2 
SYSXXX IS CHECKED FOR VALIDITY AND THE 
FOLLOWING INFORMATION IS MADE AVAILABLE. 
. LUB AODR OF 1ST UNIT OF CLASS IN FLOC AND 

SLAOO. 
. NUMBER IK CLASS OF THE SPECIFIED UNIT IN 

NOG AND SNICL. 
. THE SYMBOLIC UNIT ADDR, CLASS AND ORDER, 

IN CLAORD. 
. THE LUB ADDR OF THE SPECIFIED UNIT IN 

WRKRG2 AND LUBAO. 
. THE PUB ADDR OF THE SPECIFIED UNIT IN 

OLD PUB. 
. THE LOGICAL UNIT TYPE IN NEWTYP. 



CLOSED X 

* LOAD POINTER * 

* TO THE * 

* OPTIONAL * 

* OPERAND IN * 

* WRKRG3 * 



IS *. NO 
OPERAND .*... 
ALT .* 



.♦. 

C2 ♦. 

.* DID ♦. 

.♦ SCAN END ♦. 

.X*.WITH A BLANK . 

*,0R COMMA .* 

♦ . .* 



CLOSEB 

**C5******* 

* SET CLOSE * 

♦ SWITCH ON * 
* -BANKl, ♦ 

* BIT 0- * 

* * 

I ♦♦♦* 
. ♦JA * 

..X* D3 * 



*-♦-*-*-*-*-♦_♦-♦ 

* CHECK XXX AND * 

* GET SYMBOLIC * 
♦UNIT ADDR ♦A2+ 
^^^^♦^(♦♦♦♦♦♦^^♦♦♦^ 



X 

.♦. 

EI ♦. 


^f^***£2********** 


.♦ IS ♦. 


♦TSTPROC KN+ 


NO .♦ UNIT ♦. YES 


♦_♦_♦_*_♦_♦_♦_♦_* 


.,.♦. ASSIGNED .♦ 


..X+ TEST ♦ 


♦. +£5 .♦ 


♦ LANGUAGE ♦ 


• ♦. .♦ 


♦ RESTRICTION ♦ 


X ♦. .♦ 


^itot!**^*^^*****^!** 


«••*♦ * 




«KM ♦ 




• B2^ 




• * 





^^♦♦D3^^^^^^^^^ 


.♦ ♦. 




BRANCH TO ♦ 


YES .♦ IS ♦. 




NVSERR IN * 


...♦. DEVICE .* 




SJOBCTLA ♦ 


♦. DISK .* 




«;)<*«♦♦♦♦*«♦♦*♦« 


♦ . .♦ 

X ♦. .♦ 
*#**♦ * NO 

♦ KM ♦ 

♦ B2* 






* * 


♦E5 




♦ 


THIS CHECK IS 




INDVTP 


DONE BY A 




X 


BRANCH AND 




««E44<*«***>t( 


LINK TO CHKASG3 




♦ SET CLOSE ♦ 


SUBROUTINE. 




♦ SWITCH ON ♦ 






♦ -BANKU ♦ 






♦ BIT 0- ♦ 





*4i4t«*F !♦♦♦♦♦♦♦♦♦♦ 

♦ GET PUB ADDR. ♦ 
♦AND MOVE DEVICE^ 
♦TYPE TO DEVTYPE^X. 

♦ FROM PUB ♦ 

♦ ♦ 



IS DEVICE ♦. 
DISK OR 
3540 .♦ 



CLOSET .♦. 

G2 ♦. 
.♦ 
.♦ IS 

...X^. DEVICE 
♦. TAPE 



***** 

♦ KM ♦ 

♦ B2^ 



.♦ IS ♦ 




.* * 


DEVICE A 


♦ . YES 


.* 


PROGRAMMER 


.♦. ... 


♦. PROGRAMMER 


. UNIT 


.♦ 


♦. UNIT 


♦ . .♦ 




♦ . .♦ 


♦ . .♦ 


X 


*. .* 


♦ NO 


***** 
♦KM ♦ 
♦ Bl^ 


♦ YES 



H3 ♦. 






IS ♦ 






THERE A 


* 


NO 


SECOND 




♦ .... 


OPERAND 


.♦ 




«. .♦ 






♦ . .♦ 




X 


♦ YES 




**** 
* 

♦ D3 
♦ 

**** 



*********** 



♦ CLOSE ♦ 

♦ DESIRED ♦ 

♦ UN I T ♦ 

************4c**** 



*_♦_*_♦_!([_♦_♦_*_* 

♦RELEASE SYSTEM, ♦ 

♦ SET SYST.MASK ♦ 

♦ TO HEX FF ♦ 
***************** 



*****H4********** 

♦ INIT PEGS ♦ 

♦ AND 1 FOR EOV ♦ 

♦ B TRANSIENT ♦ 
♦FETCH ♦HS^ 



PEG IS LOADED 
WITH THE SYMBOLIC 
UNIT ADDRESSt CLASS 
AND UNIT. 
REG I IS LOADED 
WITH THE ADDRESS 
OF THE PHASE NAME 
BEING FETCHED. 



***** 



i*ie!4t]te 



IS DEVICE 


* 


NO 








YES .♦ 


TAPE 


* 


♦ . ... 






*x. .. . 


*. 






* 


*♦. .♦' 














♦s s* 




X 










♦ YES 




***** 
♦KM ♦ 
♦ B1 + 
* * 
* 














ILUS 






X 








CL0SE2 


.♦. 




Kl ♦. 










K2 ♦. 




.♦ IS ♦ 










♦ IS ♦. 




THERE A 


* 


NO 




.♦ 


THERE 


♦ . NO 


SECOND 




,♦. ... 


* 




A SECOND 


.♦... . 


. OPERAND 


* 






* 


OPERAND . 


♦ 


♦ . .♦ 










*. .♦ 




♦ . .♦ 




X 






♦. .♦ 


X 


♦ YES 




**** 

♦ * 

♦ D3 ♦ 






♦ YES 


***** 
JKC^JCLOSEl 


X 




* * 






X 


* * 


4i*** 




**** 






*♦♦* 


♦ 


* ♦ 










♦ * 




♦ A4 ♦ 










♦ A4 ♦ 




* * 










* * 




**** 










**** 





.♦ IS ♦ 




THE UNIT 


♦ . NO 


SYSPCHtLST 


...... 


. OR OUT 


,* 


*. .♦ 












* 


***** 




♦ KM ♦ 




♦ B1+ 



*****J4*:|c******** 

♦ * * * 

♦ ♦ SVC 2 ♦ ♦ 

♦ ♦ FETCH ♦ ♦ 

♦ ♦ $$BCMTOT ♦ ♦ 

♦ * * * 



*****K4********** 
♦MTNCNT GU * 
*_*_*-*_*_*_*-*-* 

♦ SEIZE SYSTEM, ♦. 

♦ SET SYS MASK ♦ 

♦ TO HEX FF ♦ 
***************** 



****K5 ♦♦♦♦♦♦♦♦♦ 

♦ BRANCH TO ♦ 

♦ CONTROL IN ♦ 

♦ SJOBCTLA ♦ 
*************** 
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Chart KA. $JOECTLD - Miscellaneous Sutroutines (Part 1 cf 9) 
Refer to Charts C8 and C9. 



♦ INITL * 



INITL 

iK*4c4c4cB !*'«'* '(<4<4'«**« 

* ZERO SW BANKl ♦ 

* LOAD WRKRG2 * 

* AS POINTER * 

* ROOT PHASE * 

* AREA * 

««4c«3|e4i«4c4c«*«4c3|E**4' 



♦ INITIALIZE ♦ 

♦ CCW -WRKCCW- ♦ 

♦ WITH THE I/O * 

♦ AREA ADDRESS * 

♦ OF BUFFER * 



NORELSW .♦. 

01 *. 
.* HAS ♦. 
.♦RELOCATION *. 
*. BEEN 

♦.PERFORMED.* 



♦ * 

♦ B2 * 



♦ * 
SET SWITCH 
NORELSW TO 

BRANCH 

* * 



ni*^:lc^*i^*4'*******-* 



* RETURN TO * 

* CALLING SEQ * 

* ♦ 



♦ PUT NUMBER ♦ 

♦ OF ENTRIES ♦ 

♦ RElCjCai jiOn * 

♦ IN WRKRG2 * 

♦ *E2 ♦ 



♦ LOAD THE AODR * 

♦ OF START OF * 

♦ RELOCATION * 

♦ -4 IN A REG. * 

♦ -POINTl- * 



ADR,PTR 
RELLOP A 

4c«4c4c«G !♦♦♦♦♦♦♦♦♦♦ 

♦ INCREMENT * 

♦ POINTl BY 4 ♦ 

♦ TO POINT TO * 

♦ NEXT ENTRY * 

♦ * 



#««#4iHl***«<<***** 

♦ PUT THE VALUE * 

* OF THE FIRST * 

* ADCON INTO * 
♦LOCATION AODR. ♦ 

♦ OF 2ND ADCON ♦ 



EACH ENTRY CON- 
SISTS OF A PAIR 
OF S TYPE 
AOCONS. 



«*««A3 ♦♦♦♦♦♦♦♦♦ 

« ♦ 

♦ 6ETLAN ♦ 

♦ * 



GETLAN 

«*«««B3^* ♦♦♦♦♦♦♦♦ 

♦ COMPUTE LUB ♦ 

♦ ADDRESS OF ♦ 

♦ DESIRED UNIT ♦ 

♦ IN WRKRG2 ♦ 

♦ ♦J2 ♦ 



)|e4i«iit«C3 ♦♦♦♦♦♦♦♦♦♦ 

♦ MOVE NUMBER ♦ 

♦ IN CLASS ♦ 

♦ FROM PIB ♦ 

♦ TO WRKRG3 * 

♦ * 



««**4eD3 ♦♦♦♦♦♦♦♦♦♦ 

♦ SAVE NUMBER ♦ 

♦ IN CLASS IN ♦ 

♦ NOC AND ♦ 

♦ SNICL FROM ♦ 

♦ WRKRG3 ♦ 

«4c*4t4e4(**«** ****** 



♦ SAVE LUB ♦ 

♦ ADDRESS IN ♦ 

♦ FLOC FROM ♦ 

♦ WRKR62 * 

«««4<«4>*«4c4c4e^3tt**«4c 



* RETURN TO ♦ 

* CALLING SEQ ♦ 

* * 



♦ * 

♦ CHKRNG ♦ 

♦ ♦ 



♦ INITIALIZE ♦ 

♦ WORK ♦ 

♦ REGISTERS ♦ 

♦ ♦H4 ♦ 



IS 

CURRENT 
. CHAR LT . 
♦ . .♦ 



RNGTOP .*. 

D4 ♦. 
.♦ IS *. 
.♦ CURRENT ♦. YES. 
♦ . CHAR GT MAX .♦..X 
♦. CHAR .♦ 
♦. +62 .♦ 
♦ . .♦ 
♦ NO 



* ♦ 

* INCR WRKRG3 * 

♦NEXT CHARACTER ♦ 

* * 



♦ NUMCON ♦ 

♦ ♦ 



NUMCON X 

4c 4>*««B5 ♦♦♦♦♦♦♦♦♦♦ 

♦ SET MAXIMUM ♦ 

♦ CHARACTER TO * 

♦ F9 IN RNGTOP * 

♦ OF THE CHKRNG ♦ 

♦ SUBPOUTINE ♦ 
4c4<4t4>4>4t*«*^4<**^*4t* 



**4c4t4tC5 ♦♦♦♦♦♦*♦♦♦ 
♦CHKRNG KA* 

♦-♦-♦-♦-*-♦-*-♦-♦ 

♦ CHECK PARAM, ♦ 

♦ FOR CHARACTER ♦ 

♦ RANGE F0-F9 ♦ 

«4<«4(*4<«4c4e«««**«4i* 



4i4«(«4cD5 ♦*♦*♦***♦* 

♦PACK PARAMETER ♦ 

♦ IN WPKFLDl ♦ 

♦ CONVERT TO ♦ 

♦ BINARY IN ♦ 

♦ WRKRG3 ♦ 



♦G2 
RNGTOP IS A COMPARE IMMEDIATE 
INSTRUCTION. THE CALLING 
SEQUENCE MOVES THE MAXIMUM 
CHARACTER INTO THIS 
INSTRUCTION BEFORE BRANCHING 
TO THIS ROUTINE. 



J2 


'bg*' 


*F4'*rF3" 


F2 


Fl . 


NICLS 


SS.PP 


SS.PP. SS.PP 


SS.PP 


SS.PP. 


FICLS 


SS.PP 


SS.PP. SS.PP 


SS.PP 


.SS.PP. 



THE FORMAT FOR LOCATIONS 
FICLS AND NICLS WHERE — 
SS = SYSTEM CLASS 
PP = PROGRAMMER CLASS 



NO .♦ LAST 
. ..♦. CHARACTER 
♦. CHECKED . 
♦ . .♦ 



*4c4e4<G4^^^^^^^^* 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ SEQ ♦ 

:|c4e»«4c4t4c«««*««*« 



WRKRG3 IS SET TO THE PARAMETER 
START ADDRESS FROM POINTl. 
WRKRG4 IS SET TO THE NUMBER OF 
CHARACTERS IN THE PARAMETER BY 
LOADING A VALUE 1 GREATER THAN 
THE CONTENTS OF P0INT3. 



POINTl CONTAINS DISPLACEMENT FROM 
ENTRY POINT (MAY BE NEGATIVE). 
CALCULATE PROPER FICLS AND NICLS 
USING PIK (PIK = 'lO* FOP BG, 

•20' FOR F2, '30' FOR Fl). 
FICL X 2 + LUBADD = LUB 
ADDRESS OF FIRST UNIT OF 
DESIRED CLASS IN DESIRED 
PARTITION. 



#«**4c«4c*4c#**4>«# 



**4t4>F5 ♦♦♦♦♦♦♦♦« 

♦ BRANCH TO ♦ 

♦ NVSERR IN ♦ 

♦ SJOBCTLA * 
4i4e «***«««*«* *4> 4t 
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Chart KB. $JOECTLD - Niscellanec\3s Subroutines (Fart 2 cf 9) 
Refer to Charts 08 and 09. 



♦♦♦*A1**«»***** 

♦ * 

♦ SKIPLN * 

♦ * 



SKIPLN 

♦ CLEAR BUFFER * 

♦ TO FORCE * 

♦ A * 

♦ BLANK LINE * 

♦ TO PRINT ♦ 



**m*/i^2********* 



ilf^f^,^li:f********if* 



**C2******* 

*SET BITS 1 ♦ 

*AND 2 OFF IN ♦ 

*JBCSWA TO ALLOW* 

* OUTPUT ON ♦ 

SYSLST.SYSLOG 



* ♦ 

* OUTPUT 2 * 

* * 



***#A4********* 

* ♦ 

* OUTPUTS * 

* ♦ 



OUTPUTS 

♦OUTPUT KB* 

* PRINT A LINE * 

* ON SYSLOG * 

* OR SYSLST * 
4c4t«4i4i4c«***)tc**4t4c«* 



*««:««C4********** 

♦SKIPLN KB* 
*_♦_*_♦_*_♦_♦_♦_♦ 

* PRINT A BLANK ♦ 
♦LINE TO EFFECT * 

* A SPACE * 
«*4t******^*^***** 



««4t*A5 ♦♦♦♦**«*♦ 

♦ ♦ 

♦ OUTPUTl ♦ 

♦ ♦ 

4ci|i*«4i4t********* 



OUTPUTl X 

4r4>4c4r4<B5 ♦*♦*♦♦♦♦♦♦ 

♦OUTPUT KB* 

♦ PRINT A LINE * 

♦ ON SYSLOG * 

♦ OR SYSLST * 
It****^'***** ****** 



* BRANCH TO * 

* LSTOUT IN * 

* fJOBCTLA ♦ 
»«****♦♦♦♦*♦**♦ 



♦♦♦«03***+^**^* 

* BRANCH TO ♦ 

* LOGOUT IN * 

* SJOBCTLA ♦ 
♦♦♦**♦♦*♦♦****♦ 



0UTPUT2 

♦CLEAR TEMPORARY* 

♦ FIELDS, TMOOE ♦ 

♦ AND TCMNT, * 

♦ TRANSIENT * 
♦AREA TO BLANKS * 
«4'4t«**«*****4'**** 



««#iic«E44t«4<i|i««)tc*** 

♦ * 

♦ CLEAR THE I/O ♦ 

♦ BUFFER TO ♦ 

♦ BLANKS ♦ 

♦ * 



4c««4tF4***^^^^*^ 

* RETURN ♦ 

* TO ♦ 
» CALLING SEO ♦ 
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Chart KC. $JOBCTLD - Kiscellanecias Subroutines (Part 3 cf 9) 
Refer to Charts C8 and 09. 



*iH^*(^2********* 



«4i**4i*««4i**««*« 



****A3 **♦*♦***♦ 



**«4<4i**«*4t4t*4<** 



♦HEXCON KC* 

* CONVERT HEX * 

* CUU TO * 

* BINARY ♦ 



* LOAD WRKRG3 * 

* WITH PUB TBL * 

♦ ADDRESS * 

♦ FOR LOOK UP * 

« * 



TXC 
TXC 



UUl 

UU4 X 

4c4c«#4'E2 ********** 

■ SEARCH PUB * 

TABLE FOR * 

DESIRED * 

DEVICE * 

-CUU- * 



DEVICE 
FOUND IN 
. TABLE 



***** 

♦ KM * 

* B3* 



♦ SAVE DEVICE * 

* TYPE AND * 

♦ PUB ADDRESS * 

* * 



.* 
. .* 
♦ YES 



♦♦♦♦*C3 ******** ** 

* * 

* TRANSLATE * 

* EBCDIC -CUU- ♦ 

* TO HEX -CUU- * 

* A-F TO FA-FF * 



♦CHKRNG KA* 

♦-^♦-♦-♦-*-* _♦_* _♦ 

* CHECK * 

* CHARACTER * 

* RANGE * 
**m*if**iif**i)iif*if*** 



* V AL I D 

CHARACTERS 
*. FO-FF . 



♦PACK HEX -CUU- ♦ 
*T0 BINARY -CUU-* 

* MAKE RESULT * 

* AVAILABLE IN * 

* WRKRG3 * 

', **** 



4c««4iC3«*#«4i«««# 



««3(!«4c«««#«*««*4c 



, 


*H3 






1. 


A WRITE TAPE MARK 


. 




COMMAND IS SET IN 


UU3 X 


2, 


PO NTl IS LOADED 


*4i«4t«H2 ♦♦*♦♦♦♦♦♦♦ 




WITH THE SYMBOLIC 


* * 




UN T ADDRESS, CLASS 
AND ORDER, OF THE 
DE IREO TAPE UNIT. 


* COMPUTE THE * 




♦ PUB POINTER * 




♦ *K2 * 


3. 


P0INT2 IS LOADED 


* « 




WITH THE PUB 


««4c4t«««*««*««*«## 




ADDRESS OF THE 


, 




DESIRED UNIT. 


*■*** . 






* * , 






* J2 *.X. 






♦ * , 






**** 







♦ CLOSEl * 

* * 
iH4i*^cif ********** 



* K2 *.X 



**** 
CLOSEl X 

He 14c 4i4c!|tB4** ♦♦♦♦♦♦♦♦ 

* INIT WRKRG3 * 

* AS POINTER * 

* TO PUB FOR * 

* THIS UNIT. * 

* * 



,* . 

C4 *. 

.* IS *. 
.* DEVICE ♦. YES 
♦ TAPE CAPTPIOGE. + ... 
♦ . READER .♦ 



♦♦** J2 ♦*♦♦***♦♦ 

* RETURN TO * 

* CALLING SEQ * 

* * 

if*1tt*********:ti** 



♦. DEVICE TYPE 
♦, TAPE .♦ 
♦. ♦AS .* 



* INIT CCW AND ♦ 

♦ REGISTERS * 

♦ TO WPITE ON ♦ 

♦ DESIRED UNIT ♦ 

* ♦HS ♦ 

* *** * i(c * Ht^c * >|( * « * 4e :|( * 



EXCPROG KL 

♦ WRITE * 
TAPEMAPK 



♦ CLEAR I/O APEA ♦ 
♦BUFFER TO BLANK* 

♦ MOVE TRAILER ♦ 
♦IMAGE TO BUFFERS 

♦ FROM CEOVl ♦ 



* * 

* MODIFY CCW 
* TO WRITE TO 

* TAPE 

* * 



♦♦♦J4************ 

EXCPROGl KL 

♦ WRITE * 

TRAILER 



* * 

* B5 ♦ 

* ♦ 
***♦ 



***BS ♦***♦♦♦*♦♦*♦ 
EXCPPOG KL 

♦_ ♦- *- *_♦_♦_ «_ ♦_♦ 

WITE 
♦ TAPEMAPK ♦ 

4!«*4c4c4<*********** 



«*C5 ♦♦♦♦♦♦♦ 

* * 

♦ MOniFY CCW 
♦ TO REWIND 

♦ AND UNLOAD 

* ♦ 



PEWINO 

* AND ♦ 

UNLOAD 

«#««:(c«4i*****4t4t*** 



♦.CLOSE SWITCH .♦. 



* * 

♦ SET CLOSE 

SWITCH 

♦ OFF 
*BANKl,BITO * 



ittii,ilK^C^^*itii^r^***** 

* PFTUPN ♦ 

* TO * 

* CALLER * 

*4i:(c#«#:(c#4<*****« 



*>(c :t(:(cH 5 ♦♦♦♦♦♦♦♦ ♦ 

* BRANCH TO ♦ 

* CONTROL IN * 

* SJOBCTLA ♦ 
itf^lf*i^*it' ********* 



CURRENT PUB ADDRESS, WRKRG3, MINUS 

PUB TABLE ADDRESS EQUALS PUB DISPLACEMENT. 

PUB DISPLACEMENT DIVIDED BY 8 EQUALS THE 



PUB POINTER. 
THE PUB POINTER 
LOCATION NEWLUB. 



S SAVED IN THE 



* * 

* MODIFY CCW 
♦ TO WRITE 

♦ TAPEMARK 

* * 



«itc;(<«K5 ♦♦♦♦♦♦♦♦♦ 

♦ BRANCH TO * 

♦ NVSERR IN * 

♦ iJOBCTLA * 

««]|c««!«c««!(e*4t*««* 



**** 

* ♦ 

* 85 * 

* * 
♦*** 
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Chart KD, $aoECTLD - Miscellarecus Subroutines (Part «♦ of 9) 

Refer to charts C8 and C9, 



* CLRDIB * 

* * 



♦ INIT WORK * 

* AREAS AND * 

♦ REGISTERS * 

* * 



♦*♦♦ 

♦ * 

♦ B2 * 

♦ * 



* LOAD DIB ADDR * 

* OF SELECTED * 
♦UNIT IN P0INT2 * 

* * 



IS 
UNIT 

SYSPCH 



* SET FILE 

* NAME TO 


« 


♦ 


♦ PH 


* 


* 


* 


4t*««*««3((«««4c4<«iOc3|c« 


♦*** 






* ♦ 






♦ C2 *.X 






* * 






♦**♦ 






TSTEXT X 




4«*4(4cC 2 «**♦*« *♦'*'« 


« 


« 


* GET ADDRESS 


♦ 


♦ OF OL 


) PUB 


* 





CLRDIBl .*. 




84 *. 


4<*#*B3««i«« «*«*«; 


.* *. 


BRANCH TO * 


YES .♦ IS *. 


NVSERR N ♦X.. 


*. UNIT .* 


SJOBCTLA * 


*. SYSIN .* 


«*]|e«4c*«4(«4t«4t!tc4t« 


*. .* 




*, ,* 




* NO 




**** 




* * , 




* C4 *.X. 




* * . 




♦♦** 




CLRDIB2 X 




*««9|C4cC4'i'*******«* 




* * 




* LOAD POINTI * 




* WITH ADDRESS * 




* SYSIN DIB * 



Nn 


,* 


IS 




..* 




UNIT 






* 


. SYSLST 








*. 


♦ 






♦ * .♦ 








* YES 



♦***E1********** 

♦ * 

♦ SET FILE * 

♦ NAME TO ♦. 

♦ LS * 

♦ * 



♦ LOAD WRKRG3 ♦ 

♦ WITH LUB * 

♦ TABLE * 

♦ DISPLACEMENT ♦ 

♦ OF SYSIPT * 
4c4c*4t>|t4t*«4c4<««4«*3«3f* 



♦CHKAS6 GU * 
*-♦-*-♦-*-*-*-*-♦ 

♦ CHECK SYSIPT * 

♦ ASSIGNMENT * 

♦ ♦ 



IS 

SYSIPT 

.ASSIGNED 



*«4c)ec;|cJ 14(**«4c«4c4c** 



4c4c«««*«4c***4c*«4!«* 



^t^c^^^K I********** 

♦ LOAD WRKRG3 * 

♦ WITH LUB * 
TABLE 



Ic^^li^^^^^O******* 



IS 

IT 

3540 



4t«*4<4cE 2 ♦*♦*♦****♦ 

* * 

* GET CLASS AND * 
♦ORDER AND STORE* 

* IN OTF ♦ 

* * 

«4<]ec4(« * 4<4c*: «4c ♦« )|(4< ** 



eODAODR X 

♦ * 

♦ SET DTF TO * 
♦OUTPUT AND OPEN* 

♦ SET LAST VOL ♦ 

♦ IND ON ♦ 
^^♦♦♦♦♦♦♦♦♦♦♦^'♦♦^ 

♦*♦♦ \ 

♦ ♦ . 

♦ G2 *.X. 

♦ ♦ . 
*♦♦♦ , 

CLSDU X 

««#*^G2^^^^^*^^^* 
♦SET HDRl LABEL ♦ 

♦ NUM IN DTF ♦ 

♦ IND SCONTROL ♦ 

♦ CLOSE ♦ 

♦ * 

4c«4<:4c4< * ♦^c*^'*^'^' ♦«4<* 



^^^'♦♦H2^^*^^^^^^^ 

♦ * 

♦ MOVE DEV TYPE ♦ 
♦IN DTF RELEASE ♦ 

♦ CONT ♦ 

♦ * 



4c 4<4c«4'J2 ♦♦♦♦♦♦♦♦♦♦ 



:ti:^t*************i* 



**K2 ♦♦♦*♦♦* 

* * 

♦ RESET JOB * 
♦CONTROL SWITCH ♦. 

♦ ZERO DIB ♦ 

* ♦ 
«««*«4c4c4c*^4< 



♦ ♦ 

♦ E3 * 

♦ ♦ 



3(c4c4c^«E3^^^*^^***^ 

♦CHKASG GU ♦ 

*_♦_♦_♦_♦-*-♦-*-♦ 

♦ CHECK ♦ 

♦ SYSRDR ♦ 

♦ ASSIGNMENT ♦ 
4c 4i4c^*4c4t ♦♦♦*♦♦♦*♦* 



.♦ IS 

*. SYSRDR 

♦.ASSIGNED 



4c4c«4c^^^^^^^^^^4i^4c 



«4c4c4c^D4*^^^^^^^** 

♦ ♦ 

♦ GET OLD ♦ 

♦ PUB ♦ 

♦ ADDRESS * 
4< * 
4(4c^4(4c4c4c4c4c^^^4c4<*^4c 



IS ♦. NO 

IT .♦... 

3540 .* 



«*** 4cp4«)(c ««)([« 4c^ 4:4c 

♦ 4c 

♦ SET DTF TO ♦ 
♦INPUT AND OPEN * 

♦ SET FILE NAME * 

♦ TO IN * 
^(ic**m** ********** 



G3 ♦. 






* !|c)(e* 4e(;4«4c««4c4c4c 4c4c4c 


.♦SYSRDR ♦. 






* 4c 


♦ AND ♦ 


. YES 




♦ GET CLASS ♦ 


SYSIPT SAME 


♦ ..X 




♦ AND ORDER ♦ 


♦. DEVICE .♦ 






♦ AND STORE * 


♦ . .♦ 






♦ IN DTF ♦ 


♦ . .* 


X 


*:{c:((4c4'4t4c^4c4c4c4c4c4c^4<4t 


♦ NO 


*i 


*:** 


, 



IS 

UNIT 
SYSIN 



♦ C4 ♦ 

* * 

♦ ♦4c 4= 



4c4c4c4eK3^^^^^+^ + + 

♦ RETURN ♦ 

♦ TO CALLING * 

♦ SEQUENCE ♦ 
*************** 



♦ 4C4C4C4CC 5 ♦♦♦♦♦♦♦♦♦♦ 
4c 4c 

♦ SET CURRENT ♦ 
♦ADOR EQUAL END ♦ 
♦AODR IN DIB OF ♦ 

♦ SELECTED UNIT ♦ 

4e4c4c 4<4c4t^4>^^^ 4c4c4c4>^4c 



NOEXC X 

♦ ■1t*4c;+D5 4c4c4c4c4c4c4c4c4c* 

♦ ZERO THE KDD ♦ 

♦ FIELD OF ♦ 
♦CURRENT AODR IN^ 
♦DIB OF SELECTED^ 

♦ UNIT ♦ 

4c4c4c4c4c4c^4c4c^4c4c4c4c4c^^ 



«4c](c)tc4cE5 ♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ STORE CURRENT ♦ 
♦AODR BBCCHHRKDD^ 

♦ IN WRKFLD2 ♦ 

4c 4c 

« 4c« i«( « 4(;(c3tc 4c 4c4c 4c4c 4c4c 4c4c 



dt(****pi5 ********** 



St<:(<#4'4c4<4e4c4c 



♦ ♦♦**G5 4c4«4c4c4c4c4«^^^ 

♦ ♦ 
♦INITIALIZE FOR ♦ 

♦ WRITING FILE ♦ 
♦MARK ON SELEC- ♦ 

♦ TED UNIT 4c 
««4c4<4i««4c4c4c^4c4c4c4c^4c 



♦ WRITE FILE ♦ 

♦ MARK ON SE- ♦ 

♦ LECTED UNIT ♦ 
«««:|c;(c4c4c4c4:4c4c4c4c4c4!^^ 



♦ ZERO CURRENT ♦ 

♦ ADDR IN DIB ♦ 

♦ FOR SELECTED ♦ 

♦ UNIT 4c 
:^ 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4:4c 4c 4c 4c 4c 



:«t4c*« k5 :«c*:«:4c4c4c 4c4c4< 

* RETURN TO ♦ 

* CALLING SEO ♦ 
4c 4c 

4c*!(c4c«4c4c4c4c^^4c4c^^ 
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Chart KE. $JOBCTLD «* Kiscellanecus Subroutines (Part 5 cf 9) 
Refer to Charts 08 and 09. 



« « 

♦ RSTSTO ♦ 



RSTSTD X 

4>:^>»4c«B I********** 

* INIT SSTDLUB ♦ 

* TO HEX FFFF ♦ 

* -STORED * 

* STANDARD * 

* LUB ID- ♦ 



♦ MOVE JIB * 

♦ POINTER FROM ♦ 

♦ CURRENT LUB * 

♦ TO WORK AREA, ♦ 

♦ JIBCHN+l * 



♦SCNJIB KJ* 
♦-♦-♦_♦-♦_*-*-♦_♦ 
*MOVE STORED LUB* 

♦ IF ANY, TO * 

♦ WORK AREA * 





♦ ♦♦♦ 




RSTSTD4 I 

RSTSTDS X 

]tc4i«4>*D2**4>****4<** 
*UNPA KH* 
*_♦-♦-♦_♦_*-♦-♦-♦ 

* UNASSIGN * 

♦ LUB * 



^itC*^!***^***^***^* 



♦ * 

♦ GETJ IB ♦ 

♦ * 



GETJ IB 

4t4<4c*«B4***4<4<*4c**4< 

♦ LOAD THE * 

♦ ADDRESS OF * 

♦ FAVP IN ♦ 

♦ WRKRG3 * 

♦ * 



* MOVE JIB ♦ 

* POINTER FROM * 
» FAVP TO * 

* JIBCHN+l * 

* ♦ 



♦SCNJIB KJ* 

♦_♦-♦_♦_♦_«_*_♦_♦ 

♦COMPUTE ADDR OF* 

♦ FREE JIB CHAIN * 

♦ STAPT * 
4t*«i»i«**«4c****««** 



«**«*B5 ♦♦♦♦♦♦♦♦♦♦ 

* MOVE JIB ♦ 

* POINTER FROM * 

* CURRENT LUB ♦ 

* TO JIBCHN+l * 

* * 
4c*4i4t**>|i***«4>***** 



«4>4c «4<C 5 ********** 

* INIT P0INT3 ♦ 

* AS POINTER ♦ 

* TO PREVIOUS * 

* LUB * 

* * 
^t^*************** 



GETJIB2 

«*«*4(05 ********** 
*SCNJTB KJ * 

♦_♦_♦_♦_*_♦_*_♦_♦ 

* COMPUTE ADDR * 

* OF NEXT JIB * 

* IN CHAIN * 

«4c4( ****** ******** 



RSTSTDl .♦. 

Fl *. 
.* DOES *. 
**JIB CONTAIN*. NO 
♦STORED STANDARD*... 

*. LUB .* 



RSTSTD3 

*****(; !*********« 
* MOVE STORED * 



***************** 



*****H1*** ******* 
*SET STORED STD * 

* LUB FLAG OFF * 

* IN JIB+2 * 

* -BIT 0- * 

* * 
***************** 



Jl ^ *. 
.* ENTRY *. 
.* FROM THE *. NO 
.RESET ROUTINE.*.... 
*. *H2 .* 



*E3 
GETJIBSW ON=CH, 
OFF=LH. 

THIS SWITCH SET 
ON BY ASSGN 
ROUTINE. 



YES .* END * 






* END *. f 


...*. OF JIB 


I* 


*! 


OF JIB .* 


*. CHAIN .* 






*. CHAIN .* 


. *. .* 






*, .* 


X *• •*^ 






*. .* 


*KM * . 






i ^rES 


* 04* 








* * , 
* . 








NOMRJB 








X 






X 


*«***P4***«*«**** 


*****(:•; *«**«**«** 


*SAVE JIB ADDRf 


* 


* 


MOVE FAVP TO * 


* OF FIRST JIB, 


♦ 


* 


CHAIN BYTE ♦ 


* IN WRKRG4 


* 


* 


LAST JIB * 


♦ FROM P0INT3 


* 


* 


IN CHAIN * 



***************** 



****«*********4c4(* 



****Q2********* 

* RETURN TO * 

* CALLING SEQ * 

* * 
***«***#««**«** 



*H2 
THE SWITCH, 

IF ENTRY WA_ . .._.. ..._ 

ROUTINE. THE RESET ROUTINE 
IS USED FOR RESET STATEMENT 



****K 1********* 

♦ RETURN TO * 

♦ RESET ROUTINE * 

♦ *K2 * 
*************** 



*K2 

RETURN IS To THE RESET ROUTINE 
BY BRANCHING TO THE ADDRESS IN 
LINKR3+4. THE ADDRESS OF 
RSTSTD4 IS SET IN LINKR4 AS A 
RETURN TO THIS SUBROUTINE. 



.* IS *. YES 

*. RETSW .* 

*. ON .* 
*. .* 

♦ . .* 
* NO 


* POINTER OF * 

* FIRST JIB IN * 

* CHAIN TO FAVP * 

***************** 


GETJ IB 1 X 

*****H4********** , 

* LOAD REG * 

:'2JBJiis"S" t , 

* NEWLUB * 

* * 
***************** 


*****H5 ********** 

♦ MOVE END OF ♦ 

* CHAIN FLAG * 

♦ LAST JIB IN * 
» NEW CHAIN * 

* * 
***************** 


YES .* SW *. 
...*. GETJIBSW .* 
*. ON .* 
*. *E3 .* 
*. .* 
* NO 


X 
*****j5**** ****** 

* LOAD THE ADDR * 

* OF 1ST JIB * 
*CHAIN IN P0INT3* 

* FROM WRKRG4 * 

* * 
***************** 

>..........xl 


GETJIBSW X 

*****K4** ******** 

* LOAD REG * 

* P0INT3 WITH * 

* ADDRESS OF * 

* LUBAD * 


X 
****K5 ********* 

* RETURN TO * 

* CALLING SEO * 

* * 



***************** 



*************** 



♦ B5 * 

* * 
**** 
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chart KF. $JOECTLD - Miscellaneous Sutroutines (Part 6 of 9) 
Refer to Charts C8 and C9. 



* ♦ 

* SFPPE ♦ 

* * 



SFPPE X 

♦ MOVE THE PUB * 

♦ POINTER TO ♦ 

♦ LUBCOM FROM * 

♦ NEWLUB FOR ♦ 

♦ COMPARISON ♦ 



♦♦♦* 
♦KG * 

♦ H2 *... 

♦ ♦ , 
♦*»* 

SFPP5A X 

» ♦ 

♦ TURN OFF 

♦ PRIMARY EQ 

* SWITCH 

♦ * 



* ♦ 

* C4 * 

* * 
♦ *♦* 



#:|c«««#4<*4i4i4c 



*«♦♦ 

♦ KH ♦ 

♦ E3 ♦.X 



**♦♦ 
SFPPE2 X 

♦ SET WRICRG2 * 
*T0 A 1 TO START* 

♦ SCAN AT ♦ 

♦ BEGINNING OF * 

♦ LUB TABLE * 



♦ F3 *.X 



♦♦** 
SFPPE02 

♦ STORE SCAN ♦ 
♦CONTROL CHAR IN* 

♦ CTYPE FROM * 

♦ WRKRG2 * 

♦ ♦ 
♦**♦♦♦*♦♦♦♦♦♦♦♦♦♦ 



4c*4c**p i«««******« 
*SCNLUB KJ* 

♦_*_♦_*_*_♦_♦_♦_ :»c 

* MOVE LUB TO * 

* WORK AREA * 

* JIBCHN * 

Ic^c^lc**^'********** 







♦ END ♦. 


NO 


♦OF LUBS OF 


♦. 


. . .* 




THIS 


.♦ 


; 


** 


..^"".. 


♦ 


X 




*. .* 




♦**♦ 




♦ YES 




* 








83 * 








t * 








**** 








SFPPEA 










HI ♦. 








.♦ ♦ 




NO 


,♦ 




'*. 


...* 




RETSW 


,♦ 




'♦ 


ON 


,* 






*. ,♦ 




X 




♦ . ,♦ 




**** 




♦ YES 




t * 








^ 04 * 










K * 










*«*♦ 




) 


< 




****J 14c#4i«***«* 


* 




RETURN TO 


♦ 


* 




CALLING 


♦ 


♦SEQUENCE ♦J2* 




|c* 


►♦♦♦♦^ 


Ic^e****^'^ 



♦G2 
THIS RETURN TO 
THE CALLING SEQ 
INITIALIZES LINKR4 
TO RETURN 
CONTROL IN LINE. 



SFPPE5 


.♦. 






C3 *, 






.♦ DOES * 


NO 


,* 


THIS LUB 


...♦ 




iAVE EQUAL 




♦ 


. POINTER 



♦ ♦ RETURN ♦ ♦ 

♦ ♦TO CALLING ♦ * 

♦ ♦ SEQUENCE ♦ * 
♦G2 " • 



♦ ♦ 



♦ ♦ 



4c4t^««*^«*4c*^^*«#>i' 



F3 ♦. 
.* IS *. 

.♦ $$BLISTIO *. 

. TRANSIENT . 

♦. ACTIVE .* 

♦ . ,♦ 



««*««G3 ♦*♦♦♦♦**♦* 
♦OUTPUT KB* 

^-♦_)(t_*_#_3|t _♦_*_♦ 

♦ CLEAR OUTPUT ♦ 

♦ AREAS TMODE * 

♦ AND TCMNT * 



♦ ♦♦♦♦ 

♦ KG ♦ 

♦ C2^ 



04 *. 

.* IS *. 

.* THERE A ♦ 

. PUB ADDR IN 

♦. OLD PUB .* 

*. .♦ 

♦ , ,♦ 



PUBMSK 

♦RESET PUBOHNER ♦ 
♦BIT FOR CURRENT* 

♦ PARTITION * 

♦ ♦ 

♦ ♦GA * 

4c«#***](i4i4(«:«***^^)»t 



*INCR CLASS BY 1* 

* -POTNTl * 

* EO POINTl + 1 * 

* * 



♦ ♦♦♦♦ 

♦ KH * 

♦ E3* 



X 
*♦♦♦♦ 

♦ KG ♦ 

♦ C4* 



♦ G4 
THE MASK FOR RESETTING 
BY AN AND INSTRUCTION 
IS STORED NCMASK 



IS NOT INITIALIZED TO RETURN CONTROL, 
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Chart KG. $JOECTLD - Miscellauecus Subroutines (Part 7 cf 9) 
Refer to Charts 08 and C9« 



**♦♦ 

* ♦ 

♦ A3 ♦ 



*♦*♦ 

* * 

♦ Bl ♦ 



SFPPEIO X 

♦ SET THE STD* 

♦ ASSIGNMENT * 
♦ FOUND SWITCH 

♦ STDFOSW, * 

♦ ON. * 



*«4t4e«C I********** 
♦SAVE THE STORED^ 
♦STANDARD LUB IN^ 

♦ SSTDLUB FROM ♦ 

♦ BYTES AND 1 ♦ 

♦ OF JIB * 



♦*♦♦♦ 
*KF ♦ 
♦ G3^ 



♦TURN OFF STD 
♦ FOUND SW, 
♦ STDFDSH. 
♦ * 



♦ Dl *.X 



♦♦♦♦ 
SFPPE8 X 

♦SCNJIB KJ^ 

♦-♦-♦-♦-*- ♦-♦- ♦- ♦ 

♦ GET ADDRESS ♦ 

♦ OF ♦ 



END 

OF 

JIBS 



A3 ♦. 
.♦ IS ♦. 
$$BLSTIO ♦. 
TRANSIENT . 
. ACTIVE .♦ 
♦ . .♦ 

♦ . .♦ 
♦ YES 



*«««*B34>»#4c4c)tc*>|i«4i 

♦ MOVE CHARS f ♦ 

♦ ALT, TO THE ♦ 

♦ COMMENTS ♦ 

♦ WORKFIELD ♦ 

♦ TCMNT ♦ 



♦ ENTERED * 

FROM LISTIO 
♦. ROUTINE .♦ 



♦♦♦♦D3^^ ♦♦♦♦♦♦♦ 

♦ RETURN TO ♦ 

♦ CALLING SEQ ♦ 

♦ ♦JS ♦ 



.♦ DOES ♦. 

♦ THIS LUB *. NO 

HAVE EQ PUB .*... 
♦. POINTER .♦ 



,♦ ♦, ♦*** 

.♦ RETURN *. YES ♦ ♦ 
.SWITCH, RETSH.+....X^ 03 ♦ 



♦♦♦♦ 

♦ KF * 

♦ E4 ♦.X 



SFPPE13 

^^^^^^^^♦♦♦♦♦♦♦♦♦^ 

♦ MOVE THE ♦ 
♦CURRENT LUB TO ♦ 

♦ JIBCHN FROM ♦ 

♦ LUBCOM FOR ♦ 

♦ ALT SCAN * 



X 
.♦« 

Fl ♦. 

.♦ IS ♦. 

.♦ $$BLSTIO ♦. NO 

. TRANSIENT .♦•.. 

♦. ACTIVE .♦ 

♦ . .♦ 



«*4c^^G !♦♦♦♦♦*♦♦♦♦ 
♦0UTPUT2 KB+ 
♦_♦-*_*_♦_♦_♦_♦_♦ 

♦ CLEAR OUTPUT ♦ 

♦ AREAS TMODE ♦ 

♦ AND TMCNT ♦ 

«4c4»tc:|c*4c4c« *♦ ♦♦♦♦*♦ 



E2 ♦. 
.♦ IS ♦. 
.♦ THE STD *. NO 
♦. ASSGN FOUND .♦... 
♦. SWITCH .♦ 
♦. ON .♦ 
*« .* 
♦ YES 



♦MOVE THE STORED^ 

♦ STD LUB FROM ♦ 

♦ SSTDLUB TO * 

♦ WORK AREA ♦ 

♦ JIBCHN FOR ♦ 
^^♦♦♦♦^♦♦♦♦♦♦♦♦♦* 



SFPPE8A .♦. 




HI ♦. 




.♦ DOES ♦. 




.♦JIB CONTAIN^ 


YES 


♦. STORED 


♦ . ... 


♦. STD .♦ 




*. LUB .♦ 


. 



G2 ♦. 
.♦ IS ♦. 

$$BLSTIO ♦. 

TRANSIENT . 
. ACTIVE .♦ 



♦MOVE CHARS STD ♦ 
♦TO THE COMMENTS^ 

♦ WORK FIELD ♦ 

♦ TCMNT ♦ 

♦ * 



SFPPE201 X 

♦ LOAD LOGICAL ♦ 
♦UNIT TAPE, SCAN^ 

♦ CONTROL CHAR ♦ 

♦ IN WRKRG2 AND ♦ 

♦ DOUBLE IT ♦ 
^(^(♦^♦♦♦♦♦♦♦♦♦♦♦♦^ 



X 
♦♦*♦* 

♦ KF ♦ 

♦ £!♦ 







X 










.♦. 










Jl ♦. 










.* DOES ♦ 






NO 


♦ 


JIB 


♦ • 




...♦. 


CONTAIN 


.♦ 






♦ 


. AN ALT 


♦ 








♦.ASSGN.^ 






X 




♦ . .♦ 






♦♦*4t 




♦ YES 






♦ 










Dl ♦ 










♦ 




X 






♦♦♦♦ 




♦♦*♦ 

♦ ♦ 

♦ A3 ♦ 

♦ ♦ 
♦♦♦♦ 




♦K2 
1. 

2. 



♦♦*♦♦ 
♦KF ♦ 
♦ B3^ 



♦ J3 
THIS RETURN TO THE 
CALLING SEQUENCE 
INITIALIZES LINKR4 
TO RETURN CONTROL 
TO SFPPE8. 

THIS CHART BLOCK 01 



THE FREE JIB ADDRESS IS LOADED 

IN WRKRG4 FROM POINTS. 

THE JIB TABLE ADDRESS IS SUBTRACTED 

FROM WRKRG4 LEAVING THE FREE JIB 

DISPLACEMENT IN WRKRG4. 

3. THE DISPLACEMENT IN WRKRG4 IS DIVIDED 
BY 4 TO DEVELOP THE FREE JIB POINTER. 

4. THE RESULTANT POINTER IS STORED IN 
FAVP FROM WRKRG4. 



..4X 



SFPPE15 X 

«4c««^D4^^^^^^^^^^ 
♦SCNJIB KJ^ 
♦_♦-*-*_♦-*-♦-♦-* 
♦GET ADDRESS OF ♦ 

♦ JIB ♦ 

♦ ♦ 



.♦ END 

OF JIB 
♦. CHAIN 



♦ * 

♦ MOVE THE ♦ 

♦ LUB TO LUBCOM * 

♦ FROM ♦ 

♦ JIBCHN ♦ 



♦ LOAD THE ♦ 

♦ ADDRESS OF ♦ 

♦ THE FAVP IN ♦ 

♦ WRKRG3 ♦ 
**««*♦« ♦♦♦♦♦♦♦♦*itt 



^^♦♦♦H4^^^^^^^^^^ 

♦ COMPUTE FREE ♦ 

♦ JIB POINTER ♦ 

♦ AND STORE ♦ 

♦ IN FAVP ♦ 

♦ ♦K2 ♦ 
#«*«♦♦♦*««♦♦«♦♦#« 



.♦. 

J4 ♦. 

.♦ DOES *. 

.♦JIB CONTAIN^. 

. A STORED 

♦. ALT .♦ 

♦ . LUB .♦ 

♦ . .♦ 

♦ NO 



«4( 4t « p 5 4. * #1(1 4c :(( :|t « 4( 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ SEQUENCE ♦ 



*«iOc*«K4^^^^ ♦♦♦♦♦♦ 

* * 

♦ZERO THE FIRST ♦ 

♦ THREE BYTES ♦ 

♦ OF THE JIB ♦ 

* * 



♦ZERO THE FIRST ♦ 
X+ THREE BYTES ♦ 

♦ OF THE JIB ♦ 

♦ ♦ 



X 
*♦*♦♦ 

♦ KH ♦ 

♦ Fl^ 
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Chart KH. $JOBCTLD - Kiscellarecus Subroutines (Part 8 cf 9) 
Refer to Charts 08 and 09, 



* UNPA * 

♦ ♦ 



UNPA X 

♦ LOAD WRKRG3 * 
*WITH THE ADDR. * 

♦ OF LUB TO BE * 

♦ ASSIGNED * 

♦ FROM LUBAD * 



♦ ♦ 

♦ SAVE THE ♦ 

♦ LUB IN ♦ 

♦ LUBCOM * 

♦ * 



♦***A2********* 

♦ ♦ 

♦ UNPA3 * 

♦ ♦ 



UNPA3 X 

* INITIALIZE * 

* SSTDLUB * 

* FOR * 

* UNASSIGN ♦ 

* X«FFFF« ♦ 

^:t::f ************** 



****cz********* 

* * 

* UNPAl * 

* * 



4i)|t*4tA3 ********* 

* * 

* UNANENT * 

* * 

7lf*:ti*if^*iti4t****** 

**** 

* * 

* B3 ♦.X 

* ♦ 
♦*** 

UNANENT X 

4c«**4cB3«)(c«4<*4ti|c*«« 

* ZERO WRKRG4. ♦ 

* LOAD THE ADDR * 

* OF LUBCOM IN * 

* WRKRG3 * 

* *K3 * 
iH**********i^***** 



tc****C3********** 
♦CHKASG GU * 

*_♦_♦_♦_♦ _<t_#_*_* 

♦ COMPUTE PUB ♦ 

♦ POINTER IN * 

♦ WRKRG4 * 



****/l^£^*i^titt****** 

* _ * 

* eerpBowN ♦ 

* ♦ 



♦ SET WRKRG4 



**it,t************* 



.* DOES *. NO 
♦ .LUB POINT TO .*..• 
♦. A PUB .* 



UNPAl X 

* LOAD WRKRG3 * 

* WITH ADDRESS * 

* OF LUB TO BE * 

* ASSIGNED * 

* FROM LUBAD * 
*if *************** 



♦ MOVE CONTENTS ♦ 

♦ OF SSTDLUB * 

♦ TO CURRENT * 

♦ LUB ♦ 

♦ *J3 ♦ 

*♦*♦ 
♦KG ♦ 

♦ J5 ♦ 

♦ * 
**** 

SFPPE03 

4i*4e:^4cF I********** 

♦ * 

♦ ZERO ♦ 

♦ REGISTER ♦ 

♦ POINTl ♦ 

♦ * 



« # « 4t « 03 *« «>«( # 4c «# 4: 4< 

♦ SAVE PUB ♦ 

♦ POINTER IN ♦ 

♦ OLDPUB ♦ 

♦ ♦ 


***4i4c04********** 

* LOAD ♦ 

* ADDRESS OF « 
♦PUBOWNER BYTES ♦ 

* INTO WRKRG4 ♦ 

* *H4 * 

*****«4e********** 


♦KF ♦ . 




'X....,.ees 


♦ D5 ♦.X. 

♦ ♦ , 




♦*** 
SFPPE3 X 

♦GETLAN KA^ 
*_♦-♦-♦-*-♦-♦-*-♦ 

♦ COMPUTE LUB ♦ 

♦ ADDRESS AND ♦ 

♦ NO, IN CLASS ♦ 

:ti*4i*Jl^^4i:t'********* 


X 
*]|(**E4«******** 

* RETURN ♦ 

* TO * 

* CALLER * 
***4<*«********« 


X 
***** 

*KF ♦ 
* 01^ 

* * 
* 




SFPPE2 







♦ H4 
WHEN GETPBOWN IS CALLED, 
WRKRG3 POINTS TO A LUB. IF THIS 
LUB HAS A PUB POINTER, THEN 
WRKRG4 IS LOADED WITH THE AOORtSS 
OF THE 1ST OWNER BYTE FRO THIS PUB 
(20 OWNER BYTES/PUB) 



IF ENTERED AT UNPAl 
THE LUB IS TO BE 
UNASSIGNED AND 
SSTDLUB CONTAINS 
HEX FFFF. 

IF ENTERED AT UNPA THE 
LUB IS TO BE ASSIGNED 
AND SSTDLUB CONTAINS 
THE STORED STANDARD 
ASSIGNMENT-IF NONE 
X'FFFF' . 



♦ K3 
WRKR63 CONTAINS THE 
ADDRESS OF LUBCOM. LUBCOM 
CONTAINS THE OLD LUB 
THAT IS TO BE USED BY 
THE SUBROUTINE CHKASG3. 
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Chart KJ. $JOECTLD - ^.iscellanecus Subroutines (Part 9 cf 9) 
Kefer to Charts C8 and 09. 



« * 

* SCNLUB * 



• SET SWITCH * 

EOLSW ONt 

* TO INDICATE ♦ 
♦ END OF LUBS* 



*«4<4c«C I********** 

♦ LOAD THE NO. ♦ 

♦ OF LUBS OF * 

♦ THIS CLASS * 
♦BE CHECKED, IN ♦ 

♦ WRKRG3 ♦ 



4c i|eE !♦♦♦♦♦♦♦ 
♦SET SWITCH * 
♦ EOLSW OFF, 
-NOT END OF 

♦ * 



♦ LOAD WRKRG4 ♦ 

♦ WITH ADDR OF * 

♦ NEXT LUB TO * 

♦ BE CHECKED * 

♦ FROM SLADD * 



♦ HOVE THE LUB * 

♦ TO WORK AREA, * 

♦ JIBCHN * 

♦ -2 BYTES- * 

♦ * 
^^♦♦♦♦♦♦♦♦♦♦♦♦♦♦« 



♦INCR WRKRG4 TO ♦ 

♦ POINT TO NEXT ♦ 
♦LUB. SAVE THIS ♦ 

♦ ADDR IN SLADD * 

♦ * 



♦DECR WRKRG3 BY ♦ 

♦ 1 TO INDICATE ♦ 
♦NUMBER OF LUBS * 

♦ REMAINING AND ♦ 

♦ SAVE IN SNICL * 

♦ ♦♦* 



♦♦♦♦K l*****+**+ 

♦ RETURN TO ♦ 

♦ CALLING SEQ ♦ 

♦ *KZ ♦ 



♦♦♦♦ A2 ♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ SCNJIB ♦ 

♦ ♦ 



SCNJIB .♦. 

B2 ♦. 
.♦ IS ♦. 
.♦ THERE A ♦. NO 
♦. JIB .♦... 
♦. POINTER .♦ 
♦ . .♦ 
♦. .♦ 
♦ YES 



4e«*4>^C 2 ♦♦♦♦♦*♦♦«♦ 

♦ COMPUTE ADDR ♦ 

♦ OF JIB. - JIB ♦ 

♦ POINTER X 4 ♦ 
♦PLUS JIB TABLE ♦ 

♦ ADDR- ♦ 
^^'♦♦♦♦♦♦♦♦^♦♦♦♦♦^ 



«««*«02 ♦♦♦♦♦♦♦♦♦♦ 

♦ MOVE STORED ♦ 

♦ LUB TO JIBCHN ♦ 
♦FROM JIB BYTES ♦ 

♦ AND I ♦ 

♦ * 



4t4t«4<E 2 ♦♦♦♦♦♦♦♦♦ 

♦ RETURNING TO ♦ 

♦ CALLING SEQ ♦ 



« * 

♦ CHKOPN ♦ 

♦ ♦ 
*«*4i4<4c4< )!<♦♦♦«♦♦* 



♦ INIT DFB CTR ♦ 

♦ TO 7 IN REG ♦ 

♦ POINT 2 ♦ 

♦ ♦ 
«***«««««*«♦*♦*♦* 







♦♦** 

♦ * 

♦ B4 ♦ 

♦ ♦ 

♦ ♦♦41 


CHK0PN2 .♦. 

B4 ♦. 

NO .♦' LAST 
♦. DFB 

♦. CHECKED 



CHKOPNl 

4i4t^*4<C3^^^^^^^^«^ 

♦ LOAD POINTl ♦ 

♦ FROM P0INT2 ♦ 

♦ AND MULTIPLY * 

♦ POINTl BY 4 ♦ 

♦ +£4 * 



*ifiti:^*jy^ ********** 

♦ * 

♦ LOAD THE ADDR * 

♦ OF DFB TO BE ♦ 

♦ CHECKED IN » 
♦POINTl ♦E4+ 
***************** 



♦♦♦**E3 ♦***♦*♦*♦* 

♦ LOAD LUB ♦ 
♦POINTER FOR THE+ 

♦ ASSOCIATED ♦ 

♦ *F4 ♦ 
***************** 



*****f^********** 

♦CHKASG GU ♦ 
*_♦-*-*-*-♦_*_»-* 

♦ CHECK ASSIGN- ♦ 

♦ WENT FOR THIS ♦ 

♦ UNIT ♦ 
***************** 



.♦ IS ♦. NO 

LUB .♦... 

♦.ASSIGNED .♦ 



H3 ♦. 

.♦ IS ♦. 

.♦ THE DFB ♦. YES 

♦.FOR THIS DEV..^..X 

♦. COMPARE .♦ 

• CUU .♦ 



*****Q/^********** 

♦LOGCHK GL+ 

♦-♦_♦_♦_♦-*-♦-♦-* 

♦ SET SYSLOG ♦ 

♦ ASSIGNMENT ♦ 

♦ SWITCHES ♦ 
***************** 



****Q/^********* 

♦ RETURN TO * 

♦ CALLING SEO ♦ 

♦ ♦ 
*************** 



♦ E4 
THE RESULT IS AN INDEXING VALUE 
IN REGISTER POINTl USED TO SELECT 
THE CORRECT DFB ADDRESS. 
THE DFB'S APE CHECKED IN THE 
FOLLOWING SEQUENCE LGO, LGI, 
LNK, LST, PCH, IPT, RDR. 



LUB 


POINTER 


DFB 




. 08 




LGO 




:"6k' 




•••'lgi' 




. 10 




LNK 




. 06 




LST 




. 04 




PCH 




. 02 




.....^.. 




:"66' 




"••ror* 





♦ . 



♦ NO 



*****J2********** 

♦ * 

♦ SET OPEN FLAG ♦ 

♦ OFF IN DFB * 

♦ FLAG BYTE ♦ 

♦ * 
***************** 



♦K2 
IF THE LAST PUB OF A CLASS 
HAS BEEN PROCESSED, RETURN 
IS TO THE ADDRESS IN LINKRl. 
IF MORE LUB'S ARE TO BE 
PROCESSED, RETURN IS TO 
LINKRl+4. 
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Chart KK. $JOECTLD - SYSxxx Operand Processor 

Refer to Charts C8 and C9. 





*A2 


*A3 






1. 


SAVE SCAN POINTER 1. 
POINTl IN P0INT2. 
WRKR62 EQ 0. 


RESTORE THE SCAN 






ROUTINE POINTER 




2. 


POINTl t FROM PO NT2 
INCREMENT POINTl BY 




3. 


WRKR63 EQ TABLE . 2. 


*4"I<*A l**4'**4<«4>« 




ADDRESS LESS 5 BYTES. 


3 BYTES TO POINT TO 


* * 


4. 


WRKG4 EQ END OF TABLE 


XXX OF SYSXXX. 


* SYSXXX ♦ 




ADDRESS. 3. 


SET POINTS TO A 2 


« * 






TO INDICATE A PARA- 


iK$i>$c4i##«:Sic«:4t^)|l*:ict 






METER LENGTH OF 3. 



.* *. 

.♦ OPERAND *. NO 
*• START WITH .♦*,. 
♦. SYS .* 



4u|i«>4e«C l>K*'f«4"i(*4<*4' 



♦THE ADDRESS OF * 

* THE IA4ND * 

* ERROR MSG RTN * 



* BRANCH To * 
.X* NVSERR IN * 

* SJOBCTLA * 



SY$XXX4 X 

«i|(:(c«*A4***^*'t'**=(''t' 

♦ SET REGISTERS * 
*F0R THE NUMERIC* 

* CONVERSION * 

♦ ROUTINE * 

* *A3 * 



*NUMCON KA * 
!«,_♦_♦_*_♦_♦_*_*_* 

* CONVERT XXX * 

* TO ♦ 

* BINARY ♦ 



*C3 
WRKRG2, ORDER WITHIN 
CLASS, TIMES 2 PLUS 
VALUE IN FOCL, ADDRESS OF 
THE FIRST UNIT IN THE 
CLASS, EQUALS LUB ADDRESS 
OF SPECIFIED UNIT. 



.* 
.* 
YES 



SVSXXXl 

* INIT REGS, * 

* FOR SYS TABLE * 

* LOOK UP ♦ 

* ♦A2 ♦ 

* ♦A 2* 

♦ ♦♦♦ 



* Fl *.X 



♦*** 
SVSXXX2 X 

♦ INCREMENT ♦ 
♦TABLE POINTERf * 

♦ WRKRG3* BY ♦ 

♦ TO POINT TO ♦ 
» NEXT ENTRY * 



♦ SAVE ♦ 

♦ DISPLACEMENT ♦ 

♦ FROM WRKRG2 * 

♦ IN WRKRFL02 ♦ 

♦ ♦ 



.* END *. 
*. OF TABLE 
♦ . .♦ 

*. .* 



♦ KM ♦ 

♦ Bl* 



* ♦ 

* E3 ♦ 

* * 



*♦ IS 
♦. UNIT 
*, SYSOUT 



* SET ♦ 

* DISPLACEMENT * 

* IN WRKFLD2 ♦ 

* TO 000 2 FOR * 

* SYSPCH ♦ 

«4C«««liC3|t:t>*4!4< ♦♦♦«♦♦ 



:(c***4(G2 ♦♦♦*♦♦♦♦*♦ 

* * 

* INITIALIZE ♦ 
♦FOR PROCESSING * 

* SYSIN *K3 * 

* ♦ 



SYSXXXOl 

«:|c«)f*G3 ♦♦♦♦♦♦*♦♦♦ 

♦ SET LOGICAL * 
♦UNIT TYPE FROM ♦ 
*TABLE, ARGUMENT* 

♦ PLUS 3 BYTES, * 

♦ IN NEWTYP ♦ 



X 

.*. 

Jl ♦. 



«*4c«4cK l^^*******^ 

♦ * 

♦ INCREMENT ♦ 

♦ DISPLACEMENT, * 

♦ WRKRG2, BY * 

♦ * 



SYSXXX6 X 

4i«*4c*H2**^*^^**^* 

* INITIALIZE * 
*P0INT1 TO ZERO ♦ 

* FOR SYSTEM * 

* CLASS * 

* * 
^^^^^^^^'♦♦♦♦♦♦♦♦it 



♦-.*_♦-.♦_*-*_♦-♦_♦ 
* COMPLETE LUB * 
♦ADDRESS AND NO.* 
*IN CLASS *»3* 



««*«*K2^***^^**^* 

* RESTORE CLASS * 

* -LOGICAL UNIT * 
♦TYPE-IN WRKRG2 * 

♦ FROM WRKFL02 * 

♦ ♦ 



* SET POINTl TO * 
♦A 1 TO INDICATE* 

* PROGRAMMER * 

* CLASS * 

* * 



♦GETLAN KA* 

♦_*_*_♦_*_♦_*_♦-♦ 

♦ COMPUTE LUB * 
♦ADDRESS AND NO.* 
*IN CLASS ♦HB* 



.* XXX ♦. 




hJO 


. IN SYSTEM , 


* 




*. *K4 .♦ 






♦ . .* 






*. .* 




X 


♦ YES 




*♦*♦♦ 

♦ KM * 

♦ 81* 
* * 

ILUS 



SYSXXX5 X 

♦ SAVE SYMBOLIC ♦ 

♦ UNIT ADDRESS * 
♦IN CLAORD FROM * 

* POINTl AND * 

* WRKRG2 ♦ 



♦ COMPUTE LUB ♦ 

♦ ADDRESS OF * 
♦SPECIFIED UNIT ♦ 
*IN WRKRG2,LUBAD* 

♦ *C3 ♦ 



«3|C«««C5^*****^*** 

♦INIT REGISTERS * 

* WRKRG3 AND ♦ 
♦WRKRG4 FOR THE * 
♦CHKASG3 SUBRTN ♦ 

♦ *J3 * 



♦CHKASG3 GU ♦ 

* COMPUTE PUB ♦ 

* POINTER IN ♦ 

* WRKRG4 * 



* SAVE PUB * 

* POINTER AND ♦ 

♦ RESTORE ♦ 
♦REGISTER P0INT4^ 

♦ *J4 ♦ 



4t4c#*4(F4**^^^***** 

* LOAD WRKRG2 * 
*WITH THE BINARY* 
*VALUE OF XXX TO* 

* BE USED AS * 

* DISPLACEMENT * 

« «]|c# * 4c )|c# «*« :(c« 4t« *« 



»](t«*«G4********^* 

* ♦ 

* HEX 8000 IS ♦ 

* MOVED TO THE ♦ 

* FIELD NEWTYP ♦ 

* ♦ 



THE LUB ADDRESS OF THE FIRST UNIT OF A CLASS 
IS RETURNED IN THE FIELDS FLOC AND SLADD. 
THE NUMBER IN CLASS FOR THE SPECIFIED UNIT 
IS RETURNED IN THE FIELDS NOC AND SNICL. 



♦ J3 
WRKRG3 CONTAINS LUB. 
ADDRESS OF UNIT 
WRKRG4 IS ZEROED. 



*J4 

l.THE PUB POINTER 
SAVED IN OLD PUB 
WRKRG4. 

2. REGISTER P0INT4 IS 
RESTORED AS A POINTER 
TO THE INVALID STATE- 
MENT ERROR ROUTINE. 



*J5 
THE SYSCLB LUB IS NOT IN 
FROM THE LUB TABLE. IT IS 
FOUND BY SUBTRACTING 
(PIK/8J FROM THE PI BX 
ADDRESS. IF ASYNCHRONOUS 
PROCESSING IS NOT 
INCLUDED, WRKRG2 IS 
INCREMENTED BY 16 
TO OFFSET THE 
EXCLUSION OF AN 
ALL BOUND PIBX. 



*K3 
WRKFLD2 EQ 
NEWTYP EQ HEX 
0003. 



*K4 
THE BINARY VALUE OF XXX 
MUST BE EQUAL TO OR LESS 
THAN THE NUMBER OF 
PROGRAMMER UNITS AS 
SPECIFIED IN NOC, THE 
NICL VALUE. 



♦ ♦ 

♦ Fl ♦ 

♦ ♦ 
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Chart KL. $JOECTLD - EXCP Si;brctitines 
Befer to Charts 08 and C9. 



♦ ♦ 

♦ EXCP * 

♦ * 



EXCP 

♦ SAVE RETURN * 

♦ ADDRESS IN ♦ 

♦ LINKSA * 

♦ ♦ 

♦ * 



* ♦ 

* UPDATE ♦ 

* SYSIN OIF ♦ 

♦-ijSYSiN- ♦ca * 

* ♦ 



♦MTNCNT GT* 

♦RELEASE SYSTEM ♦ 
♦AND SET SYSTEM ♦ 
♦MASK TO HEX'FF'* 



♦ * SVC ♦ * 

♦ ♦ EXECUTE ♦ ♦ 

♦ * SPECIFIED * ♦ 
I/O 



♦ ♦ 

♦ EXCPR06 ♦ 

♦ ♦ 



EXCPROG 

♦ MOVE DENSITY * 

♦ FROM PUB TO * 

♦ SET MODE * 

♦ CCW * 

♦ * 



♦C2 
I. STORE CCW ADDRESS 
IN OTF+8 FROM 
REGISTER 0. 
2. STORE SYMBOLIC 

AND ORDERt IN 
DTF+6 FROM 
REGISTER 1. 



♦♦♦4tA5 ♦♦♦♦♦♦♦*♦ 

* * 

* EXCPROGl ♦ 

* ♦ 



EXCPROGl X 

4c)|i**«B5 ♦♦♦♦♦♦♦♦♦♦ 

♦ MOVE DENSITY ♦ 

♦ FROM PUB TO ♦ 

♦ SET MODE ♦ 

♦ CCW ♦ 

♦ ♦ 
^^^^■^^^♦♦♦♦♦♦♦♦♦♦^ 



♦MODIFY SET ♦ 
♦ MODE CCW 
FOR STANDARD 

♦ 
* ♦ 



♦ * 



♦ ♦ 



*«*«*4c:tc4e*4ci(c:(t](<«4<«4i 



D4 *. 

,♦ *. 

WRITE 

TAPEMARK 

. COMMAND . 

♦ . .♦ 

♦ . .* 

♦ NO 



**«4c4tE4^^^*^^^^t^ 

♦ SET CHAIN * 

♦ BITS OFF * 

♦ IN CCW ♦ 



«f«4(!(c]|c*:(t*Hc4ct^^^«^ 



EXCPP0G3 X 

♦ SET CHAIN ♦ 

♦ BITS ON ♦ 

♦ IN CCW ♦ 



*«i|t*«#4c«««^^**4i)|t« 



•*. 

Fl ♦, 

.* *. 

.♦ ♦ 

♦,I/0 COMPLETE 

*, ,* 

♦ . .♦ 

♦ , .* 

♦ YES 



***:it«G X^^^* ♦♦♦♦♦♦ 

♦MTNCNT GU * 

♦ SEIZE SYSTEM * 
♦AN^ SET SYSTEM ♦ 
♦MASK TO HEX»FF«+ 



«!|t;|i4ci(tH !♦♦♦♦♦♦♦♦♦* 
♦RESTORE RETURN ♦ 

♦ ADDRESS IN ♦ 

♦ LINKRl FROM ♦ 

♦ LINKSA. ♦ 

♦ ♦ 



♦ ♦♦♦J l«#4c^^^*^« 

♦ RETURN TO ♦ 

♦ CALLING ♦ 
♦^^ SEQUENCl ♦ 



♦♦♦♦♦F2+^^^^^^^^+ 



* * 



* ♦ 

♦ * 



SVC 7 

X^ * WAIT FOR * »• 

♦ * I /O TO 4L ♦ 

♦ ♦ COMPLETE » * 



♦ INITIALIZE ♦ 

♦ REGISTERS FOR * 

♦ EXCP *F5 ♦ 

♦ ♦ 



«;tt*««G4^^ ♦♦♦♦♦♦♦♦ 

♦EXCP KL^ 

♦ -,*_♦_*_♦-♦_*-♦-:► 

♦ EXECUTE ♦ 

♦ SPECIFIED ♦ 

♦ I/O ♦ 



♦♦♦♦^^^♦♦♦♦♦♦♦♦^ 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ SEQUENCE ♦ 



♦F5 
I. SYMBOLIC UNIT ADDRE$S» 

CLASS AND ORDER IS 

STORED IN REGISTER 

FROM POINTl. 
2. CCW ADDRESS IS 

STORED IN REGISTER 

ZERO. 



Charts ia7 



Chart KM. $JOECTLD - Error Subroutines 
Refer to Charts 08 and 09. 



♦♦*♦* REFEftI 


NCES 


;"*:Rg««Nj|s 


♦♦»♦♦ REFEI^ENCES 


***♦* 


***** 


* * TO I.MBl: 


: .:3?o./!!?ii 


*JL * 


*JF * 


♦ ♦♦ JAC3, 
♦ * JCC4, 


JAF2 


♦ JSElf JSG2 


* El* 


* F2* 


JCC4 




« * 


* « 


♦ JSHl, 


JSJl 


* 


* 


* 


JSJ3, 


KKE4 










KKF2 




. 




. 


. 


LUS X 




INDVTP X 


TXCUU1S8 X 


IVDS X 


SFNC X 


***4t*Bl*****4i***'ti 




4i4c4<«*B2*4<*4'*4>*4<«4> 


:llHcilfifit'B3**^*******'^ 


t:f***B^********** 


***4i:tcB5 *****♦♦*♦* 


♦ POINT TO ♦ 




* POINT TO ♦ 


* POINT TO ♦ 


* POINT TO * 


* POINT TO * 


* ERROR * 




* ERROR * 


* ERROR * 


* ERROR * 


* ERROR * 


* MESSAGE ♦ 




* MESSAGE * 


♦ MESSAGE * 


* MESSAGE * 


* MESSAGE * 


* -1A4N0- * 




* -1A2N0- * 


* -1A5ND- * 


♦ -1A7ND- * 


* -IA9ND- * 


* ♦Fl » 




♦ ♦FI * 


* *F1 * 


* *F1 * 


* ♦Fl ♦ 


4:4i«4<:4c#4t4t*4(4<***4i** 




X 


X 


X 


:(c4t4'************** 

,,.,, ..xT 












.............xl 







***** REFERENCES 


***** 


***** REFERENCES 


***** 


* * TO KMDl: 


*JL * 


* * TO KMD3: 




* **JAH3, JLFl 


♦ Gl* 


*^ ** JBF2, 


JDG3 


* ** 


* * JLJ2 


♦ ♦ 


** JEB2, 


JEHl 


♦ * . 






* JGDl, 


JGG3 


* REFERENCES* 






* "l^fi?' 


JHE3 


• TO KM04: * 


• 


• 






• JHG3, KEE4* 


TIAERR X 


CNIOAG X 


FNIOAG X 




NOMRJB X 


*4t***0I********** 


4(4!***D2********** 


***««03«3te «#«***** 




:(e«4c*«04********** 


* POINT TO ♦ 


* POINT TO * 


* POINT TO * 




* POINT TO * 


* ERROR * 


* ERROR * 


* ERROR * 




♦ ERROR * 


* MESSAGE * 


♦ MESSAGE * 


* MESSAGE * 




* MESSAGE * 


* -1A6ND- * 


* -lAIND- * 


* -lAOND- * 




* -1A3ND- * 


♦ *F1 * 


* ♦Fl * 


* *F1 ♦ 




* ♦FI * . 


«*«*4(************ 


4t**************** 


i|i4i*««#i(c** «**«**«* 




4c«4c«**«4(4'*4:4i4(«:(c*4i , 


. 


X 


X 




X 



ERPRTN 

*«4c:«(*CS ****♦*♦*** 

*SAVF POINTER TO* 

* MESSAGE TO * 

* DISPLAYED IN * 

* WRKFLDl FROM * 

* POINTl * 

4<4:**************^ 



♦ Fl 

Imess age' r * descr I pf ion 

riAOND** * r * ' INVALID* i/6 'ASSIGNMENT 

riAiND*"'**c6NFLicf INg'i/O 'assignment" " 

r£A2ND*"r*INVALiD*DEViCE*fYPE 

riA3ND"T*Nd*FREE*j!BS 

riA4N6*"I"lNVALID*L6GiCAL*UNif*SPECiFicI 

TlA 5ND" *r"DEV ICE 'NOf* DEFINED 

riA6N6'*'r**UNlf 'cURRENTLy'uNASSIGNABLe'** 

!lA7f3D"T*iNVALiD'DEV ICE* STATUS 

riABOD "". "sYSf EM "fILE 'oPEN *FA I LURE 

I IA9ND* * "." SYSTEM * F ILE 'nOT *Cl6 SED ' * * 



4[4t4t«K4^******** 

* branch to * 

* errrtn in * 

* sjobctla * 

4c************** 



*LOAD WRKRG3 AS * 
♦POTNTER TO LOG-* 
♦ICAL TRANSIENT * 

* BUCKET IN THE * 

* ATTENTION PUB * 
>|c«i(c4i*««4citc«i((4i*4c**4i 



««4c**F 5 **♦♦♦***** 

* MODIFY PSW IN * 

* SAVE AREA TO * 

* FORCE RETURN * 

* TO ERRRTN2 * 

* * 

* *])( ]«(« * *4:iO< « ^^t*** ** 



«4t«:|c«Q5 ««««****** 

* MTNCNT GU ♦ 
«_*_*-*_♦_*_♦_*-♦ 

* RELEASE ♦ 

* SYSTEM ♦ 

* * 

«)«c«4(* ♦****♦*♦♦*** 



««#«H5 ********* 
*SVC 11-SIMULATE* 

♦ RETURN FROM B * 

* TRANSIENT * 

♦***♦*******♦♦* 



ERRRTN2 X 

* ♦♦♦♦ J5 i^itf*****i>c** 

*MTNCNT GT* 
*_*_*_♦_«_*_♦_*_♦ 

* RELEASE * 

* SYSTEM * 

* * 

««:)[************** 



ERPRTNl 

,tnn**^K5 ***♦♦***** 

* RESTORE REG, * 

* POINTl, WITH 



1 Nl 1 , W 

OINTER _ 

* MESSAGE TO ♦ 

* BE DISPLAYED * 

«:((«********«****♦ 
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chart KN. $JOBCTLD - Test Procedure and GETPUE Sufcroutines 
Refer to Charts 08 and 09. 



• * 

• TSTPROC * 

• « 
*************** 



.* PROCEDURE *. NO 
*. BEING .*... 

♦.EXECUTED .* 



****BZ********* 

* * 

♦ GETPUB ♦ 

*************** 



Dl *. 

.DOES STMT. 

RDR .♦ CONTAIN *. NO 

...*. REFERENCE TO .*... 

*. IN ' .♦ 
*. .♦ 
♦ IPT 



El ♦, 

.* DOES *. 

* PROCEDURE • 

CONTAIN 

f. SYSIPT . 

*.DATA .♦ 

*. .♦ 

* YES 



* GET NEXT ♦ 

* ENTRY OF ♦ 

* INFO TABLE ♦ 

* ♦ 
***************** 



**D4******* 



ANY 
ENTRIES 

utFT 



*********** 



it:**mQS ********* 

* * 

* RETURN * 
*************** 



****E2 *♦*♦*♦♦** 
« RETURN * 

♦ TO CALLING * 

* SEQUENCE ♦ 
*************** 



**** 

♦ * 

♦ D4 * 

♦ * 
**** 



*, *****!£ s^m********* 

*, * * 

J- *. YES * SCAN PUB TAB * 

5T .♦..,*.... X* FOR PUBENTRY *. 

,* * WITH MATCHING ♦ 

.* * CUU ♦ 

,♦ ***************** 

¥ NO 



* SET POINTER ♦ 

* TO ERROR ♦ 

* MESSAGE IM5ND * 

* * 
***************** 



****Ql********* 



*******m******* 



DEVICE- 
TYPE 
LIST 



*****f^********** 

* * 

* SCAN PUB TAB * 
.X* FOR PUBENTRY *. 

* WITH MATCHING ♦ 

* DEVICE TYPE * 
***************** 



**PS******* 

* * 

* TURN 

♦ DND-SWITCH- 

♦ OFF 

* * 
*********** 



*^**Q^********* 

* * 

* RETURN * 

* ♦ 
*************** 



Charts 1^9 



Chart LA. $JOECTLE • EXEC Statement Processor 
Refer to Chart IC. 



(Part 1 of 8) 



♦♦♦*A1********* 

* * 

* SJOBCTLE * 

4(« « * * * 4t « * 4t «4< ♦ 3(< * 



* * 

* RESET FLAGS ♦ 
FOR 'NO PHASE 

* NAME* AND * 

* OPERAND ♦ 



♦ SCANR2 GK * 
♦_*_*_♦_♦_*_♦_♦_♦ 

♦ GET FIRST ♦ 

* OPERAND OR * 

* KEYWORD * 



♦ * 

♦ SET ERROR * 

♦ COUNTER TO ♦ 

♦ ERROR MESSAGE * 

♦ 1M7ND * 



KEYWORD 
EQUAL TO 
. PROC 



♦♦♦* 






♦**♦ 




***♦ 


*♦** 


* ♦ 




* * 




♦ ♦ 


♦ ♦ 


♦ B2 * 




* 83 * 




♦ B4 ♦ 


♦ B5 * 


* * 




♦ ♦ 




♦ ♦ 


♦ ♦ 


♦♦♦* 




♦*** 




♦**♦ 


*♦♦♦ 


I 




X 




• 


X 


.♦. 


EX120 .*. 


INIT X 


EX150 .♦. 


B2 *. 




83 *. 




>K«B4**«^^^^ 


B5 ♦. 


.♦ *• 




.* HAS ♦. 




♦ ♦ 


.♦ ♦. 


k MORE *. NO 




.♦PHASE NAME ♦. NO 


♦ SET SWITCH ♦ 


YES ,♦ SYSFIL ♦. 


OPERANDS .*.... 




*. CORRECT .*. 




♦ FOR JOB ♦ 


....... SUPPORT .♦ 


. PRESENT .* 






*. LENGTH .♦ 




ACCOUNT RECORD^ 


♦.AVAILABLE-* 


♦ . .* 






*. «* 




♦ WRITTEN ♦ 


♦ . .♦ 


*, .* 






♦ . .♦ 


X 


4c*««*4!*4c^^« 


*, ,♦ 


* YES 






* YES 


* * 

* G5 ♦ 




♦ NO 


• 








• 


I 










* ♦ 






* 








♦ *** 


I 


I 


X 






X 




X 


X 


♦*C2******* 






«i(c«4(*C3*4<«* ♦♦♦*♦* 




^tt*^*C^********** 


4c*«*«C5 ♦♦♦♦♦♦♦♦♦♦ 


* 






* * 




* ♦ 


♦ ♦ 


POST * 






* SAVE PHASE ♦ 




♦RELOCATE CCB«S ♦ 


♦ SAVE ♦ 


OPERAND ♦ 






♦ NAME IN * 




♦ AND CCW'S ♦ 


♦ PROCEDURE DFl * 


FLAG * 






* ROOT PHASE * 




♦ ♦ 


♦ INTO PRCDIB ♦ 


« 






* AREA * 




* 4t 


♦ ENTRY ♦ 








4c4()|!4i«)(<*4t«4<«4<««*** 




^^^^(♦♦♦♦«**«4<4>4c4c* 


)^«*«4<«>K4c4c«««4c4i4>** 


X 




I 






EX160 X 


D2 ♦. 




^^.^^^DBf^^c^^****^' 




04* *♦. 


4i]|<4t«;|cQ5 «4!:(c# *«4ii|[4i« 


,♦ *, 




* * 




-♦ TS ♦. 


♦ * 


PHASE ♦. YES 




* SAVE LENGTH * 


PROC .♦PROCEDURE*. NONE ♦ CAUSE ♦ 


NAME ...... 




♦ OF PHASE NAME * 

♦ * 




.♦.AND OVERWRITE.^... 


.. .. X+ RECORD OF ♦ 


. PRESENT .* 


♦.EXECUTED .♦ 


♦ $JOBCTLA ♦ 


*. .* 




* ♦ 




♦ . .♦ 


♦ ♦ 


♦. .* X 




^^^^^^♦'(t^O^c**^'*** 


X 


♦ . .♦ 


.(.^'♦■('♦♦♦♦♦«4< ♦♦*♦♦♦ 


* NO ♦♦** 




♦♦♦* * BOTH 




* 


♦ 




♦ 


♦ 




♦ 83 


* 




♦ B5 


♦ 




♦ 


* 




* 


* 




**** 




**♦* 




X 




X 




X 


X 


4c4E2*««*««« 




4<>«<E3**«#*«* 




t****EA*********'<f 


««E5 4<4<«4c*«* 


# 




« * 




* ♦ 


♦ * 


POST NO ♦ 




* SET OFF * 




♦ GET DISK ♦ 


♦ RESET * 


PHASE NAME ♦ 




* SWITCH FOR * 




♦ ADDRESS OF ♦ 


♦ PROGRAM MASK ♦ 


FLAG * 




♦ EXEC BLANK * 




♦ SAVE AREA FOR ♦ 


♦ IN PSW TO * 


* 




* ALLOWED ♦ 




♦OVERWRITE STMT ♦ 


♦ ZERO ♦ 


4e«4(*4'*4c4<*4'4' 




. . .. . ...xl 




**4c«^«^^**^«4>^4<^« 


^^^(♦♦♦♦4<««4< 

X 
***** 




... 




♦ LB ♦ 




NOS ET X 




X 


♦ Bl* 






4c«F34c*4<*««>|t 




«4i4i4(«F4^«^*^^*^«^ 


♦ ♦ 






* ♦ 




« 3(C 


♦ 






* INDICATE * 




♦ SAVE ♦ 








* NO SET SVA * 




♦ OVERWRITE ♦ 










* ALLOWED * 




♦ STATEMENT ♦ 





EXOlO 


.♦. 
Gl ♦. 
♦ 


.♦ 
♦ . 

♦ 


KEYWORD 
EQUAL^TO 



X 
***** 

♦LP ♦ 

♦ Al^ 



X 
***** 
♦LQ ♦ 
♦ 04+ 



**Q2******* 

* * 
POST 

OPERAND 
FLAG 

♦ ♦ 
*iif***^itt**** 



*****^lit,^******^t* 
*SCANR3 GK ♦ 

♦-♦-♦-♦-♦-♦-*-♦-♦ 

♦ GET ♦ 

♦ PHASENAME ♦ 

****************^i 



♦ SET ERROR ♦ 
.X^ COUNTER TO ♦ 

♦ ERROR MESSAGE ♦ 

♦ 1M6ND ♦ 



«*♦♦**♦#♦«« 



G3 ♦. 
.♦ ♦. 

♦ JOB 
ACCOUNTING 

♦ . SUPPORT ,■■ 

♦ . ,* 
♦ . .♦ 
♦ YES 



.♦. 

H3 ♦. 
.* ♦. 
♦ RECORD 

ALREADY 

*. WRITTEN . 

♦ . .♦ 

♦ . .♦ 

♦ NO 



1^****J^^i**:ti****** 



***************** 

X 

♦*♦♦ 

♦ ♦ 

♦ 85 ♦ 

♦ ♦ 
**** 



*^**(^^ ********* 

♦ BRANCH TO ♦ 

♦ NVSERR IN ♦ 

♦ SJOBCTLA ♦ 
*^*ti *********** 



H4 ♦. 




.♦ *. 




FIRST ♦. 


YES 


EXEC AFTER . 


♦ .. .. 


JOB .♦ 




♦ . .♦ 




♦ . .♦ 


X 


♦ NO 


♦**♦ 




♦ 




♦ B4 




* 




**♦♦ 



♦ PHASE ♦. YES 


♦ GET ADDRESS ♦ 


NAME ...... 


♦ OF JOB ♦ 


♦. PRESENT .♦ 


♦ ACCOUNTING ♦ 


♦ . .♦ 


♦ TABLE ♦ 


♦. .♦ X 


^i^'*************** 


♦ NO ♦♦♦♦ 




♦ ♦ 




♦ 83 ♦ 




X ♦ * 


X 


***** **** 


♦♦♦♦ 



i)i***ifj/^*itl******** 

♦ * 

♦ POST VECTOR ♦ 

♦ TABLE VALUES ♦ 

♦ FOR LOADING ♦ 

♦ SJOBCTLN ♦ 



****\{ it**:t!****** 

♦ BRANCH TO ♦ 

♦ FETCHRF IN ♦ 

♦ $JOBCTLA ♦ 

*******itc******* 
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chart LE. $JOBCTLE - EXEC Stateirent Processor (Part 2 of 8) 
Refer to Chart 10. 



♦♦♦♦♦ 

♦LA * 
♦ E5* 



♦ B2 ♦ 

♦ ♦ 
♦♦*♦ 



♦ LF ♦ 

♦ H5* 



♦ ♦ 

* B4 * 



* B5 ♦ 
**** 



*HTNCNT 6U ♦ 

♦-♦-♦-*-♦-*-*-♦-♦ 

♦ RELEASE ♦ 

♦ SYSTEM ♦ 

♦ * 



♦lOROUTH NN* 

»_♦_♦_♦_♦_♦_♦_♦_♦ 

♦ WAIT FOR ♦ 

♦ SYSLOG I/O ♦ 

♦ ♦ 



Dl *. 

.♦ IS ♦. 

.♦ PROCEDURE ♦ 

••.WITH OVERWRI- 

♦.TE EXECU-.* 

♦. TED .* 



IS IT *. 
EXEC 
LNKEDT .♦ 



IS IT 
EXEC 

MAI NT 



♦ YES 



♦ WAIT FOR ♦ 

♦ I/O OF OV * 

♦ STATEMENT ♦ 



♦*»**D2********** 

♦ * 

* INDICATE TO * 

* MAI NT NO * 

* AUTOMATIC * 
♦CONDENSE LIMITS^ 

*♦*♦ I 

♦ ♦ .X. ....... 

♦ E2 ♦.X. 



♦*♦♦ 
SEEKSTRT X 

4(«*itc*E2 ♦♦♦♦♦♦♦*♦♦ 
♦SEEKINIT ^ ^ LL't' 

♦I NIT SEEk'aDDR ♦ 
♦TO START SEARCH^ 
♦ FOR PHASENAME ♦ 
^^^^^^■^'♦♦♦♦♦♦♦♦♦^ 



.♦ JOB ♦. 
.♦ACCOUNTING ♦. NO 
...X^. INTERFACE .♦... 
X ♦. SUPPORT .♦ 



« ♦ 

♦ PUT PHASE ♦ 

♦ NAME INTO ♦ 

♦ ACCT TABLE ♦ 
4> * 



♦♦03 ♦♦♦♦♦♦♦ 

* * 
POST JOB 

STEP RECORD 
INDICATOR 

* ♦ 



* * 

♦ SET OFF ♦ 

* SWITCH FOR ♦ 
♦PROGRAM NAME ♦ 

♦ SAVED ♦ 

4c#««*4e«*4t4c* 

♦♦♦* I REFERENCES 

* ♦^ „. TO LBC4: 

* ♦^♦.X. LCK3t LKJ2 
:**** : LLGA 

RESFCH X 

* RESET BITS ♦ 

* IN OPTN BYTE ♦ 
..X* FOR CH END ♦ 
. * APPENDAGE AND ♦ 
. * ANCHOR TAB ♦ 



♦ C4 * 



-*-♦_♦_♦-*-♦ 



***#*4!4<4i4(*iti4i](c4i«*« 



itt*4t«;4(D4^^^^^^^^^^ 



« *«« ]|c* 4i4c« :|t* *♦#♦ 4c* 



*4e4t«*E4^^^^^^^^^* 

* ^ ^^^ ^ _ * 

* ^'■OF*^BBOX"' ♦ 

* * 

* * 
*4(4t4c4t**4<«4>*««4E«)((4i 



X 
*♦♦♦♦ 

♦ LD ♦ 

♦ Bl^ 
* * 



■HtH^TiS ******* 



^c^c^^^c****** 



X170 X 






• ♦. 






ACCTIGNl X 




X 




4i4(4>«4tF I********** 






F2 ♦. 








*****P3 ********** 




««4(:(c*P4«4i******** 




♦MTNCNT GU ♦ 






.♦ ♦. 








* * 




* * 




♦-♦-♦-*-♦-♦-♦-♦-♦ 






.♦ EXEC ♦. NO 






♦ SAVE PROGRAM ♦ 




* GET SPECIAL ♦ 




♦ SEIZE ♦ 






♦. BLANK FOR .♦ 








♦ NAME AND ♦ 




* PART ENTRY ♦ 




♦ SYSTEM ♦ 






♦.CATAL J08.+ 








♦INDICATE SAVING^ 




* FROM BBOX ♦ 




♦ ♦ 






♦ . .♦ 








* * 




* * 




4c4<4i4'*#4c#4'4'4c4r4>4'4<*4< 






*. ,* 




X 




^^c*************** 




i«t4c4K************** 




, 






♦ YES 


**♦* 






, 












♦ 




* 










^ 






^ 


« 


B3 


* 






, 












* 




« 










. 






. 




It*** 


X 
.♦. 




. 




X 






X 










X 




4(4c***G 1 ♦♦♦♦♦♦♦♦♦♦ 






4C4CG2 ♦♦♦♦♦♦♦ 








G3 ♦. 




:)c****G4^^^^^^^^^^ 




♦ ♦ 






♦ ♦ 








.♦ ♦. 




♦ * 




♦ CLEAR ♦ 






♦ SET SWITCH ♦ 








.♦ IS IT ♦• YES 


* MOVE PAGE ♦ 




♦ PHASE NAME ♦ 






♦ TO GET NAME ♦ 








♦. EXEC .♦ 




* TABLE ADDR ♦ 




♦ STORAGE AREA ♦ 






♦OF CATALOGED ♦ 








♦. LNKEDT .♦ 




♦ TO APT ♦ 




* * 






♦ PHASE ♦ 








♦ . .♦ 




* * 




4t4>4<«4c*«*«4:^^^*4<^^ 






**«**« 4<*««4t 

* 








♦ . .♦ 
♦ NO 


X 
***** 

♦ LC ♦ 

♦ Bl^ 

* * 
* 


**4e************** 


















X 


EXCEDT 


X 










X 








-*. 




.♦. 




HI ♦. 






4t«H2^^^^^^^ 








H3 ♦. 




H4 ♦. 




.♦ ♦. 






* ■¥ 








• ♦ ♦. 




.* *. 




»♦ PHASE ♦. NO 




* SET SWITCH ♦ 








.♦ IS IT ♦. NO 


.* MORE ♦. NO 


♦ . NAME .♦. 






♦ FOR EXEC ♦ 








♦, EXEC .♦ 




*. OPERANDS .♦ 




♦. PRESENT .♦ 






♦ BLANK NOT ♦ 








♦. RPG .♦ 




♦ . .♦ 




♦ , .♦ 






♦ ALLOWED ♦ 








♦ . .» 




♦ . .♦ 




♦ . .♦ 




X 


*4c4<4<*«4c4c*4c^ 








♦ . .♦ 


X 


♦ . .♦ 


X 


♦ YES 


♦*** 










♦ YES 


**** 


♦ YES 


***** 




♦ 


* 












* * 




♦ LE ♦ 




♦ 


E2 ♦ 












* B4 ♦ 




♦ B2^ 




* 


* 


X 










♦ * 


X 


* * 




*♦♦* 


***** 










**** 


***♦ 


* 








♦LF ♦ 












* * 


NOTVIRT 


X 






* Bl^ 








X 




♦ B5 ♦ 




^^^t^citt J !♦*♦♦♦♦*♦*« 






* * 








*****J3********«* 




* * 




* * 






* 








* * 




***♦ 




♦ GET SAVED ♦ 






ROD I R EC 








♦ MODIFY ♦ 








♦ PHASE NAME ♦ 














♦ PHASENAME ♦ 








* ♦ 














♦ TO RPGl * 









«*:«(************** 



***** 

♦ LE ♦ 

♦ B2^ 



***************** 



*********** ****** 



♦*** 

* * 

* 82 ♦ 

* ♦ 
♦*♦* 



**** 

* * 

* C4 ♦ 

* * 
**** 
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Chart LC, $JOECTLE - EXEC Stateirert Processor (Part 3 of 8) 
Refer to Chart 10. 



***** 

*LB ♦ 
* G3* 



♦ MOVE ♦ 

* SLNKEDT ♦ 

♦ IN PHSNMF * 

* * 
***************** 



CI *. 

.* *. 

.* LINK *. 

». OR CATAL 

*. SPECIFIED.* 



X 
***** 
♦LL) * 
♦ C5* 

* * 

* 

OTSERR 



,♦ 
* CAT 
SPEC I 



*« .♦ 




X 


* NO 




*♦♦♦ 






♦ i 


• 




* H3 * 

♦ i 
**** 


X 






.*. 






El ♦. 






.♦ ♦ 






.* PRIVATE 


*♦ 


. NO 


♦. LIBRARY 
♦.ASSIGNED 


.* 


*••••.. 





*****fl********** 

* * 

♦MOVE START ADDR* 

♦ OF PC 10 FROM * 

* FETCH TABLE * 

♦ TO LNKRSEEK ♦ 

****************3^ 



*****f2******'**** 

♦ * 
♦MOVE START AODR* 

♦ OF CIO FROM ♦ 

♦ FETCH TABLE ♦ 

♦ TO LNKRSEEK ♦ 
***************** 



***Ql************ 

♦ READ ♦ 
DESCRIPTOR 
• ENTRY ♦ 

****iti*****4t****** 



*****iil*********if 

♦ * 
♦CALCULATE DtSK ♦ 

♦ ADDR OF FIRST ♦ 

♦ UNUSED TRACK ♦ 

♦ IN DIRECTORY ♦ 
**********if*****iii 



*****j I********** 
♦^ STORE THIS ♦ 
♦DISK ADDRESS AS^ 
♦START ADDR FOR ♦ 
♦LINK DIRECTORY ♦ 
♦IN FETCH TABLE ♦ 
***************** 



* B3 '^ 

* ♦ 
*♦♦♦ 



*****Q'i,^********* 

♦STORE NUMBER OF^ 

♦ TRACKS FOR ♦ 

♦ LINKAREA IN ♦ 

♦ LINKAREA DES- * 

♦ CRIPTOR ENTRY ♦ 
***************** 



*****Q-i********** 
♦STORE NUMBER OF^ 
♦BLOCKS AVAILA- ♦ 
♦BLE IN LINKAREA^ 

♦ DESCRIPTOR ♦ 

* * 
***************** 



*****Oii*****i,***ic 

* INITIALIZE ♦ 

* NUMBER OF ♦ 

* BLOCKS USED ♦ 

* TO ONE ♦ 
***************** 



*****£^*******4t** 

♦ * 

♦ SET TTR AND ♦ 

♦ NUMBER OF * 

♦ ACTIVE PHASES ♦ 

♦ TO ZERO ♦ 
***************** 



*****f^*****iif**** 

♦ * 

♦ MOVE DISKADDR ♦ 

♦ OF LINKAREA ♦ 

♦ TO LNKCCHH ♦ 

♦ ♦ 
***************** 



***Q3************ 
WRITE DESCRIP- 
♦ TOR ENTRY AND ♦ 
DUMMY PHASE 
♦ NAME INTO ♦ 

LINKAREA 
*********,tiilf****** 

**** 



**** 
NOLNKDIR 

*****\^2*********'* 

♦ * 

♦ LOAD ADDR OF ♦ 

♦ OUT AREA INTO ♦ 
♦WRKRG3 AND SET-+ 

♦ UP ENTRY STMT ♦ 
********iii******** 



*****j-^********** 
♦EXCPRG GQ^ 

♦ WRITE ♦ 

♦ ENTRY ♦ 

♦ STATEMENT ♦ 
******it,*****itt**** 



«*««4tK3 ♦*♦♦♦♦♦♦♦♦ 

♦ CLEAR SYSLNK * 

♦ ADDR IN DIB ♦ 

♦ TABLE. ♦ 
♦INDICATE SYSLNK^ 

♦ AS CLOSED ♦ 

***^****iK3lf******* 



***** 
♦LB ♦ 
♦ C^* 
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Chart LD. $JOECTLE - EXEC Stateirert Prccesscr (Fart 4 cf 8) 
Refer to Chart 10. 



»♦*♦ 

* B4 * 



.* DELIMITER *. YES 






.* IS IT *. NO 








♦ OPERAND ♦. YES 




.♦ TOO ♦. YES 


.* CORRECT *. NO 


*. = .♦. 






*. SIZE .*.... 




* 


TOO ...... 


♦. LONG .♦..., 


♦. LENGTH ...... 


♦ . .* 






♦ . .♦ 






♦. LONG .♦ 




*, .* 


♦ . .♦ 


*. .* 






♦ . .* 






♦ . .♦ 




♦ . .♦ 


*. .* 


* . .* 


X 




*. .♦ X 






♦ . .♦ 




♦ . .♦ . 


♦ . .♦ X 


* NO 


***♦ 


♦ YES ♦»** 




♦ NO 




♦ NO 


♦ YES ♦♦** 




* 


♦ 


♦ 


* 










♦ * 




♦ 61 


* 


* K5 


* 










♦ K5« 




♦ 


* 


♦ 


« 










* ♦ 




*♦*♦ 


**♦* 










**4i* 














X 




X 


X 








X 






.♦. 




• ♦• 


TLOOP .♦. 


**ci******* 






itc,ti^^:tcC2********** 






C3 ♦. 




C4 ♦. 


C5 ♦. 


* ♦ 






*SCANR3 GK ♦ 






.* *. 




.* ♦. 


.♦ ♦. 


♦ SET ON ♦ 






♦_♦_♦-♦-♦-*-♦-*-* 






♦ IS IT ♦.NO 




.♦ IS IT ♦. NO 


.♦ ALL ♦. NO 


♦ REAL SWITCH * 






♦ GET NEXT * 




* 


AUTO .♦..X 




♦. AUTO .♦..X 


♦. CHAPS ...... 


♦ ♦ 






♦ OPERAND * 






♦ . .♦ 




♦ . .♦ 


♦. DECIMAL .♦ 


♦ * 






♦ ♦ 






♦ . .* 




♦ . .♦ 


*, ,* 








X 






♦ . .♦ X 
* YES ♦♦•♦ 

*, ♦ K5 ♦ 

»*♦♦ 


♦ . •♦ 
♦ YES 


♦. .♦ X 

* YES ♦♦•* 
♦ ♦ 

: :"J 

♦**♦ 


X 










X 


X 


X 


]|E*««4!01*')'***>»>**** 






02 *. 






♦♦D3+^*^^+* 


«4(Q4******* 


*]|i4t**D5 ********** 


♦ TESTREAL LU * 






.* ♦. 






♦ SET AUTO ♦ 


* * 


* * 


♦_♦-*-*_*_♦_*_*_* 






.* DELIMITER ♦. YES 




* SWITCH FOR * 


♦SET AUTOSWTC ♦ 


* PACK AND ♦ 


* CHECK FOR * 

♦ REAL * 






*. •*.«... 




* 'AUTO' AND * 
♦ »AUTO« ♦ 


♦ TO AUTO ♦ 
* * 


♦ CONVERT THE ♦ 


♦ . .* 


♦ VALUE FOR ♦ 


* * 






♦ . .* 






♦ ONLY ♦ 


* * 


* SIZE ♦ 


I 






* NO 
X 






X 
***** 

♦ LE ♦ 


*********** 


*********** *Ki**** 
X 


X 






• *. 






♦ B2^ 


X 


.♦. 


mm***El********** 






E2 *. 






» ♦ 


****#e4*****^*^** 


E5 *. 


*SCANR2 GK * 






.* *. 






* 


♦SCANR3 GK ♦ 


.♦ *. 


»-♦-. *_:>_♦-. ♦_♦_*_♦ 






.♦ DELIMITER *. NO 






NOTVIRT 


«_#-.*_♦_#-.*_ *_ *_ « 


.♦ IS ♦. YES 


♦ GET NEXT * 






♦. BLANK .*.... , 








♦ GET NEXT * 


♦. VALUE ...... 


♦ OPERAND * 






*. . * 










♦ OPERAND ♦ 


♦, ZERO .♦ 


4> * 






*. .* 










* ♦ 


♦ . .♦ 


*4t*«4c*4t#:tcite4c4>*4t4c*« 






*. .* 
* YES 










«««*««««********* 


*, ,* X 

* NO ♦•♦• 

* #r 








X 












X 


*#4i« 




• * 


• • 


X 


X 








• *» 




AUTONK .*. 


.* . 


.*. 


Fl *. 






F2 ** 








F3 *. 


F4 ♦. 


f5 ♦. 


.♦ *• 






.* *. 








.♦ ♦. 


.♦ ♦. 


, .♦ ♦. 


•* DELIMITER *. NO 




.* OPERAND *. NO 








♦ FIRST ♦. NO 


.♦ LAST SIGN ♦. NO 


.♦ IS IT ♦. YES 


♦ • .* 






*. PRESENT .*..X 






* 


CHARACTER ...... 


♦. IS .♦..X 


♦. A MULTIPLE .♦..•. 


*. .* 








♦ , .♦ 








♦ . M' .♦ 




♦. BLANK .♦ 


*. OF 2 .♦ 


♦ , .♦ 








*, ,* 








♦ . .♦ 




♦ . .* 


, ♦. .♦ . 


♦ . .* 








♦ . .* 








♦ . .♦ 




*, ,* 


♦ . .♦ X 


* YES 








* YES 








♦ YES 




♦ YES 


* NO *♦*♦♦ 


*m** 






















♦LE ♦ 


* * , 






















♦ CI* 


♦ 61 *.X. 






















♦ * 


* * . 






















♦ 


•»*» X 








X 












X 




TiSTSlZe .*. 








*♦. 












.♦. 


X 


61 *. 








G2 *. 






*4c««4<G3«***'«<**>i>*'»< 




G4 ♦. 


, *4(Q5******:|t 


.* ♦. 








,* ♦» 






* 


INCREASE ♦ 




.♦ ♦. 


, ♦ * 


.* OPERAND *. NO 






»* VALUE ♦. NO 






♦ 


POINTER TO * 




.♦ IS ♦. NO 


♦SET AUTOSWTC ♦ 


♦. PRESENT .♦. 


.X 






», AVAILABLE .♦•.X 






♦SECOND CHAR AND^ 




♦ . THERE A .*..X 


♦ FOR ODD N ♦ 


♦ . .* 








*. .* 






* 


DECREASE * 




♦. VALUE .♦ 


, * * 


*. .* 








*. ,* 






♦ 


LENGTH BY ONE * 




*, ,* 


♦ ♦ 


*, ,* 








♦• ,* X 




at(*««#*«*#««*«««*:»c 




♦ . .♦ 


, *4e«******** 


* YES 








* YES *♦* 


tc 








♦ YES 












*♦♦* , * 

* * . * K5 

* H2 ♦.X. * 

* * . **♦' 


* 
* 
* 
it 










X 
***** 


X 








♦*♦* X 










X 


♦ LE * 


.*. 






TESTNK .*. 










.♦. 


♦ Bl^ 


HI *. 








H2 ♦. 






H3 ♦. 




m ♦. 


♦ ♦ 


.* *. 








,* *. 






.♦ ♦. 




.♦ ♦. 


♦ 


.* CORRECT *. NO 






.* UPPER *. YES 






,♦ OPERAND ♦. NO 




.♦ UPPER ♦. NO 




♦. LENGTH .♦ 


.X 






*. BYTE IS .*.... 




♦ 


PRESENT .♦..X 




♦. BYTE IS .♦..X 
*. J .* 




*, ,* 








*. K .* 






*, ,* 






*, ,* 








«. ,* 






*, .* 




*. .* 




*, .♦ 


X 




♦. .* X 






♦ . .♦ 




♦ . •♦ 




* YES 


*♦** 


♦ NO *♦* 


C 




♦ YES 




♦ YES 




* 


* 




. * 


* 














* K5 


* 


♦ B5 


* 














* 


# 


♦ 


♦ 














**♦* 


*♦♦ 




















X 






X 








X 






.*• 






.♦. 




X 




«*J1*«««««« 






J2 ♦. 






J3 ♦. 




* ««* * J 4«4e******** 




* ♦ 






,* *, 






.* *. 




* * 




♦ SET ON * 






.* WAS IT ♦. YES 






♦ TOO ♦. YES 




♦ DECREASE ♦ 




♦SIZE INDICATOR ♦ 






*. (AUTO , NK> ...... 




♦ 


SMALL .♦..X 




♦ LENGTH ♦ 




« * 






*. .* . 






*. ,* 




♦ REGISTER ♦ 




* * 






*. .* . 






♦ . .♦ 




* * 


1 **** 


««*4:««*4t:4e4c4c 






♦. ,* X 
* NO ♦♦♦ 
* 
* K5 


It 
* 




*. .* X 

* NO **** 

♦ ♦ 

♦ K5 ♦ 


*4c*************** 


♦ ♦ 

♦ K5 ♦ 
, * * 

**** 


X 






X * 


« 




X * * 






«*«« 






*♦♦* *♦» 
* * 






*«** ♦*♦» 
* ♦ 


X 


. ...........X. 


* * 




* B2 * 






* 82 * 






♦ B4 * 


.♦. 


• • * 


* * 






♦ * 






♦ » 


K4 ♦. 


. . X 


**** 






**«* 






**** 


.♦ ♦. 
,♦ VALUE ♦. NO 
♦. AVAILABLE .♦..X 
♦ . .♦ 


, . **««K?^^^^^*^^^ 
. . * BRANCH TO ♦ 

♦ NVSERR IN ♦ 

♦ ^JOBCTLA ♦ 






















*, .* 


4<**««******4i4(*4c 



♦ H2 * 

* ♦ 
*♦♦* 
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Chart LE. $JOECTLE - EXEC Stateirent Processor (Part 5 cf 8) 

Refer to Chart IC. 



♦LD * 
♦ G5* 



***** REFERENCES 

% ** JgE5.^PBgl 
** L003 



♦ ♦ 

♦ B3 * 



♦ * 

♦ B4 * 
« * 



♦ * 

♦ ROUND UP * 

♦ BY ADDING * 

♦ ONE * 

♦ * 



♦LD ♦ 

* F5 ♦.X 



♦ * 

♦ LOAD POINTl * 

♦ WITH ORIGIN * 

♦ OF VIRTUAL * 

♦ PARTITION * 



* * 

* LOAD POINT 2 * 

* WITH END OF ♦ 

* VIRTUAL * 

* PARTITION * 



* LOAD P0INT4 ♦ 
..X*WITH ORIGIN AND* 
. ♦ P0INT2 WITH ♦ 
. ♦ END OF PART ♦ 

♦ *♦♦ 

♦ ♦ 

* B2 ♦ 



.♦. 

C2 *. 

.* *. 

.♦ REAL ♦. 

*. PARTITION .♦ 



FLOAT 
POINT 
FEAT 



.* 
. .* 
* YES 



itt*4t**03********** 



!tc*if**********:1f*** 



***** 

♦ LU * 

* B4* 



RPSERR 

NOFP X 

**«**E3 ********** 



.* 
.* 
YES 



4i****p X********** 

♦ LOAD POINTl * 
♦WITH ORIGIN AND* 
♦P0INT2 WITH END* 

♦ OF REAL * 

♦ PARTITION * 

*«**«**:([«******** 



♦ CALCULATE * 
♦PARTITION BEGIN* 

♦ AND SIZE * 

♦ * 

********«:(c«***«** 



.♦. 

HI *. 

.* BEGIN *. 

eSIZE 

GT END OF 
. PART 



.* 



.* 



**4t**J I********** 

* * 

* STORE BEGIN * 

* eSIZE TO * 

* NDBGARl * 

* * 
4t4>4(************** 



***♦ 

* * 

* B2 * 

* * 



.* DOES 
*. PARTITION 
♦.ORIGIN - . 
♦. END .♦ 



*♦** 

* ♦ 

* K2 ♦ 

* * 

**** 





F2 ♦. 


,* * 


.* 


WAS 




SIZE 


* 


SPECIFIED 




♦ , ,♦ 




*. .* 




* NO 



*****G2 ********** 

* * 

* STORE END ♦ 

* OF PARTITION * 

* IN NDBGARl * 

* * 
***************** 



****)tcH2 ********** 

* ♦ 

* STORE SAVE * 

* AREA ADDR * 

* IN CPSUSTRT * 

* * 
***************** 



* B3 * 

* * 
♦*** 



****K2 ********* 

* BRANCH TO * 

* NVSERR IN * 

* SJOBCTLA * 
***««******«*** 



******«4e*«««**#4(4: 



iit***f 3 ********** 

* * 

* SAVE START * 

* ADDR OF * 

* PARTITION * 

* * 

****** **«««3|C***** 



**4<4t«G3 ********** 

* ADD LENGTH * 

* OF LABEL * 

* AREA TO FIND * 

* PROGRAM START * 

* ADDR * 
««««*«*«:f ******** 



*****H3*******«** 

* * 

* S AV E * 

* PROGRAM * 

* START ADDR * 

* * 

«4c«***«********** 



**4E«#B4«*****4c4t*« 

* * 

* CLEAR * 

* OUTPUT * 

* BUFFER * 

* * 
*******4<********* 



OUTPUT 

ON 
SYSLST 



**D4******* 

* * 
* TURN ON THE * 

* ALLOW OUTPUT * 
♦ON SYSLST SW * 

* * 
#*«*«*****« 



* SPACE ONE * 

* LINE ON * 

* SYSLST * 

«:*:(c;|c4c************ 



«#«>(C4C9(I««*******«4C 



STMT 


* 


NO 


OUT OF 




*.. .. 


.SEQUENCE 


* 


, 


*. .* 






*. .* 




X 


* YES 




***** 

*LF * 

♦ Bl* 

* * 

* 


X 




RDDIREC 


.* . 






H4 *. 






.* * 






EOJ 


* 


NO 


PROCESSING 




*•• .. 



**J4******* 

* * 
TURN OFF 

SW FOR STMT 
OUT OF 

* SEQUENCE * 

*:(c*«j)(****«4: 



***** 
*LU * 
* C5* 
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Chart LF. $JOBCTLE - EXEC Stateirent Processcr (Part 6 cf 8) 
Refer to Chart 10, 



***** REFERENCES 


**** 






**** 




**** 


***** 


♦ * TO LFBl: 


* * 






* * 




* ♦ 


*LG * 


* ** LBH2, LEG4 


♦ B2 * 






* B3 * 




* B4 * 


♦ H2* 


* * LGE3 


* ♦ 






♦ ♦ 




* * 


* * 


^ 


**** 






**** 




**** 


* 


• 


X 






X 




X 


• 


RDDIREC X 


.*• 






.*. 


TESTRELOC .*. 


UPADDP X 


4t4.*4'*B I********** 


B2 ♦. 






B3 *. 




B4 *. 


*****B5 ********** 


* * 


.♦ FIRST ♦. 






.* *. 




.* *. 


♦ * 


* LOAD REG 1 * 


.♦READ IN LNK*. NO 






.* *. YES 


.*RELOCATABLE*. NO 


* POINT TO * 


* WITH AODR OF ♦ 


♦.DIRECTORY FOR.*., 






*. HIGHER .* 




*. PHASE .*... 


* NEXT ENTRY * 


* CCB TO READ * 


*. LINK GO .* 






*. .* 




*, .* 


* * 


* DIRECTORY ♦ 


*.STEP .* 






*• .* 




*. .* 


* * 


4c«>it«*#4c4c********* 


♦. .* 


X 




*. .* 


X 


♦ . .* 


>ic)t<*>K*******4<*«*** 




* YES 


•«*♦* 


* NO 


*♦** 


♦ YES 




**** * 


. * 




* 




* * 






♦ * . 


* 


F2 


* 




♦ B5 * 






* CI ♦•X. 


* 




♦ 




* * 






♦ « , 


♦*** 




***♦ 






♦*** 








X 






X 


EXCP X 


X 






.*. 




X 


.*. 


*4'***C I********** 


4i4>C 2 ******* 






C3 *. 




**4t**C4********** 


C5 *. 


♦MTNCNT GU * 


*SET LNKSWTC* 






.* IS IT *. 




* * 


.* NEXT ♦. 


♦_*-♦-*-♦-*-♦_ ♦_nt 


*T0 LINK. GO. * 






.* SEARCH OF *. NO 


* ADD * 


.* DIRECTORY *. NO 


* RELEASE ♦ 


♦ SET GTNAME TO * 






*. MAIN .* 




* PARTSTRT * 


*. BLOCK .*.... 


♦ THE * 


NOT FIRST READ* 






*. DIRECTORY.* 




* TO P0INT4 ♦ 


*. NEEDED .* 


* SYSTEM * 


*FOR LINK-GO* 






*. .* 




* ♦ 


*. .* • 


«4i#««4<****«****** 


«4c**,^**4c*«4i 






*. «♦ 


X 


*«4'**«*********** 


*. .* X 










* YES 


**** 




* YES **** 




: 






X 


* « 

* E3 * 

* ♦ 

**** 




. * * 

* G2* 

X * * 

**** **** 

* * 


X 


X 






.*. 




X 


* CI * 


*4>*D 1******** *** * 


*i|i4c**02 ********** 






D3 *. 




*****Q4********** 


* * 




* MOVE FIRST * 






.* *, 




* SUBTRACT PART * 


**** 


* READ * 


* LINKED PHASE * 






.* SVA *. YES 


* START ADDR * 




DIRECTORY 


* FROM LINKAREA * 






*. ELIGIBLE .* 




♦DURING LINKEDIT* 




* BLOCK * 


* DESCRIPTOR * 






*. .* 




* TIME FROM * 






* TO PHSNMF * 






♦ . .♦ 




* P0INT4 * 


**** 


«*4<4c************* 


«4c*««*4'*****4***« 






*. .* 
* NO 


X 
***** 


***************** 


* * 

♦ E5 * 




• REFERENCES 
TO LFE3: 


**** 

* ♦ 


♦ LG * 


Ix. ......... 


* * 
**** 




LGCl 


LGG2 


* * *.X. 


* ♦ 








. LG63 






* ♦ 
**«* 


* 
LOOK SDL 




• 


X 


GTNAMEl .*. 




NOTINSVA X 




X 


CATNAME X 


«#4c4>«EX********** 


E2 *. 






*4<««*E3********** 




*«*4t*E4****«***** 


=(c*E<S ******* 


*MTNCNT GU * 


.*SEARCH *. 






* * 




* * 


* * 


m-*- *-*-*-*-*-«- « 


NO ^*FOR NAME OF*, 






* CALCULATE * 




* ADD P0INT4 * 


* SET OFF *^ 


* SEIZE * 


...*. CATALOGUED .* 






X* LENGTH * 




* TO teoiGTH -i * 


* SWi i Cri J-uH ^ 


* THE ♦ 


*. PHASE ,* 






* OF PHASE ♦ 




* OF PHASE * 


* LINK-GO * 


♦ SYSTEM * 


*. .♦ 






♦ * 




* IN WRKRG4 * 


* * 


*«4'**«***:«**«**«* 


X ♦. .» 




. 


*4>*******«******« 




***************** 


*********** 



NO •* END *. 

,..*. OF 

♦.CYLINDER .* 



**«**G I********** 
♦INCREASE CYL NO* 

* IN SEEK ADDR ♦ 

* WITH 1 AND * 

* SET TRACK * 

* NO TO ZERO * 

#*;4c*%:tc4t«4c:4e4<****** 



.*END OF *. 
.* CYL ON *. YES 
.SEARCH ON KEY.*.... 
*.HI OR EQ .* 



*****f:2******«*** 

♦POINT TO FIRST * 
..X*OIRECTORY ENTRY* 
. ♦ IN DIRECTORY * 
. ♦ BLOCK ♦ 

«**«** *4c^:(,«**«**# 

***» , 

* * 

♦ F2 ♦ 



«**«30ip3**4c******* 

* * 

* SUBTRACT * 

* ONE FROM * 

* THIS LENGTH * 

* * 
«***«*****«*«***« 



NXT 


.♦. 




X 




G2 *. 




**«**63**i|i4c4t*(t*!(c« 




.♦ LAST *. 




* * 




* ENTRY OF 


♦ . YES 


♦LOAD LOADPOINT ♦ 


..X*I 


SEARCHING 


...... 


* AT LINKEDIT ♦ 




♦LINK DIREC, 


♦ 


♦ TIME IN ♦ 




♦.TORY .♦ 




♦ P0INT4 ♦ 




*. .* 


X 


«i(c4c************** 


*** 


♦ NO 


***** 




* 




♦ LG * 




G2 * 




♦ B3* 




* 
*** 


• 


* * 

* 


• 




X 


ENDIRRD 


X 




.♦. 




.♦. 




H2 ♦. 




H3 ♦. 




.* * 




.* ♦. 




♦ LINK 


*. YES 


.♦ SELF ♦. 


*', 


GO 


.♦. ... 


*. RELOCATING .* 




♦. STEP 


♦ 


*. PHASE .♦ 



.♦THIS PHASE ♦. 

^. TO BE .♦ 

♦.EXECUTED .♦ 



!(c4t:f**G4********** 



#4c^(c4t##:|E#!(I«#4Eitc««4I« 



*♦** 

*LG * 

♦ K2 *.X 



3|c4t4c***«********** 



.♦. 




J2 ♦. 




.♦FIRST 4^. 




♦ CHAR OF ♦, 


YES 


PHSNMF LOWER . 


♦ .... 


THAN NAME IN* 




♦.ENTRY.* 




*. .♦ 


X 


♦ NO 


***** 




*LG ♦ 




♦ B3^ 


X 


* * 


♦♦** 


* 


♦ ♦ 


ENDIRRD 



4e****J3*«*4c****** 

* * 

* LOAD ♦ 

* PROGSTRT ♦ 

* IN P0INT4 ♦ 

* * 

4t4:««»****««*****4: 



* WRKRG4 ♦ 

HIGHER THAN 

*. HIPROG .♦ 

♦ . .♦ 



*«]tc**j4*****«**** 

♦ * 

♦ STORE * 

♦ WRKRG4 * 

♦ IN HIPROG ♦ 

♦ * 

*««********4e***** 



**!= 5 ******* 

* ♦ 
♦ SET OFF 

♦ SWITCH TO 
♦COME BACK TO 

* CATNAME ♦ 

«*4!******** 



**« *«(;5 3(c:|(«*«#)|c**4e 

♦RE I NIT TO START* 

* ADDR OF MAIN * 

* DIRECTORY AND * 

* TO SYSRES * 

* LOGICAL UNIT * 

**3|c4c«*****4E«*:*i|t«* 



«4c4c#4iH5 *♦♦♦♦***** 

♦SEEKINIT LL* 

♦_:(,-.♦_♦_♦_♦-*-#-.♦ 

* I NIT SEEKADDR * 
♦TO START SEARCH* 
♦FOR CAT. PHASE ♦ 
***************** 



***** 

♦ LB ♦ 

♦ B3^ 
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Chart LG. $JOECTLE - EXEC Statement Processor (Part 7 of 8) 
Refer to Chart IC. 



**♦♦♦ 

♦LF ♦ 
* D3* 



***** REFERENCES 

* *; TO LGB3: 

* « LFG2, LFJ2 



♦ SAVE ENTRY * 

* NAME IN * 

♦ NAMESDL * 

* * 



ifHiilf:llfiitiQ2 ********** 

* * 

* LOAD NEW * 

* BEGIN IN * 

* WRKRGI * 

* * 



:tiiti**tDl****iti***** 

* * 

♦POINT TO FIRST ♦ 

♦ ENTRY IN SDL * 

♦ IN WRKRGI * 

* * 



4i4(4i4c«El **♦♦♦♦*♦♦« 

* * 

* LOAD ADDRESS * 

* OF LAST ENTRY * 

* IN WRKRG2 * 

* * 



**** 
NXTSDL X 

tt:iltilf4:*fl****it'***** 

♦ * 

♦ ADD BEGIN AND * 

♦ END ADDRESS AND+ 

♦ DIVIDE BY 2 ♦ 

♦ ♦ 



««4c:(c« ♦ D2 * 

♦LF ♦ ♦ * 

♦ E3+ **** 

♦ * 
* 
NOTINSVA 

UPDEND X 

:tft***U2********** 



♦SUBTRACT ENTRY ♦ 

* LENGTH FROM * 

* NEW ADDRESS ♦ 

* ♦ 



^^•(^'♦♦E2 ♦♦♦♦♦♦♦♦♦♦ 



4:j([4c«*4'««^4>:(<#«i«c3|c«* 



.♦ NAf«ESDL = ♦ 
. NAME IN SDL 
*. ENTRY .* 



.♦ 
.♦ 
NO 



**♦♦* 

♦ LU ♦ 

♦ D2^ 



* ♦ 

* INDICATE ♦ 

* SECOND * 

* SEARCH ♦ 

* * 
^^'♦♦♦^•♦♦^♦♦♦^♦♦lic 



*Hiif**E3********** 

* ♦ 
♦SWITCH LOGICAL ♦ 

♦ UNIT AND SEEK ♦ 

♦ ADDRESS ♦ 

* * 

HtHt^tti^^f ********'>'***' 



♦**♦* 

♦ LF ♦ 

♦ Bl^ 



♦ LOAD LOADADDR ♦ 
X+ INTO ♦ 

♦ POINTS ♦ 

♦ ♦ 



.♦ LINKAREA 

TO BE 
♦.SEARCHED 



.♦ IS IT ♦. 

♦// EXEC LNKEOT. 

♦ . .♦ 



***** 

♦ LH * 

♦ Bl^ 



****4cF^^^^^ ♦♦♦♦♦♦ 

♦ * 

♦ CALCULATE IN ♦ 
♦P0INT2 ADDP OF * 

♦ FETCH TABLE ♦ 

♦ ENTRY ♦ 
***«*4c*4<3(c** ****** 



* YES **♦♦♦ 
♦LH ♦ 
♦ Bl* 
* ♦ 
♦ 
TESTAUTO 
X 

**]|<«*|: 5 ««*:«««***« 

♦LOAD IN P0INT2 ♦ 

* START ADOP OF ♦ 

* FETCH TABLE ♦ 

* * 

**«**])c*4:!(i«««****4c 



Gl ♦. 

.* NEW ♦. 

.♦ADDR POINTS^. 

*, TO BEGIN OF . 

♦. ENTRY .♦ 

♦ . ,♦ 

♦ . .♦ 



*«**«HI***^^^^**^ 

♦ * 

♦ SUBTRACT 17 ♦ 

♦ FROM NEW ♦ 

♦ ADDRESS ♦ 

♦ * 
****«******«****4< 



♦. ,♦ 




X 


♦ YES 




♦♦*** 

*LF ♦ 

♦ E3^ 

♦ ♦ 

* 






NOTINSVA 








H2 ♦. 






* 






PHSNMF 


♦ 


NO 


NAME IN 




♦ .... 


SDL 


♦ 




. ENTRY. ♦ 






♦. .♦ 




X 


♦ YES 




***** 

♦ LF * 

♦ B5^ 



WRKRGI 
WRKRG2 



***** 

♦ LF ♦ 

* E3+ 



***«JteQ44t4c******](|t* 

♦ * 

♦ZERO OUT LINK- ♦ 

♦ AREA ADDR IN ♦ 

♦ FETCH TABLE ♦ 

♦ ENTRY ♦ 



***** 
*LH ♦ 
♦ Bl^ 



.♦ NAMESDL ♦. YES 
*. < NAME IN ...... 

*.SDL ENTRY. ♦ 



*♦** 

♦ ♦ 

♦ D2 ♦ 

♦ ♦ 
♦*** 



*****J2 ********** 

♦ * 

♦ CALCULATE ♦ 

♦ LOADPOINT IN ♦ 

♦ SVA AND STORE ♦ 
♦IT IN LOADADDR ♦ 



***«*K2 ♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ LOAD ♦ 

♦ PROGSTRT - 1 ♦ 

♦ IN WRKRG4 ♦ 

♦ * 

:(c4<:«c«:(c:tc«4i 4c ;)!******* 



***** 
♦LF ♦ 

♦ H4^ 
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Chart LH, $JOECTLE - EXEC Stateirert Prccesscr (Part 8 cf 8) 
Refer to Chart 10 • 



*♦*♦♦ REFERENCES 


**** 


* ♦TO LHBIJ 


* « 


* ** LGDA, LGE5 


♦ B2 ♦ 


* * LGG4 


♦ * 


« 


**** 


EST AUTO .♦. 


X 


Bl ♦. 


***4i^Q2********** 


.♦ *. 


♦ ♦ 


.* AUTO ♦. NO 


♦ LOAD ♦ 


*. Specified ...... 


♦ WRKRG3 WITH * 


♦ . .* 


* NDBGARl * 


*. .* 


♦ « 


». .♦ X 


«4c«*4t * 4t*4(4t4>«* 4i*** 


♦ YES ♦*♦♦ 




. * itt 




♦ H2 * 




, ♦ ♦ 




♦*♦♦ 




X 


«***«C l*»******** 


C2' *♦. 


♦ ♦ 


.♦ ♦. 


♦ LOAD WRKRGl * 


.* WAS H *. NO 


♦ WITH * 


*.ODD IN SIZE= .♦.. 


* HIPROG ♦ 


♦. NK .♦ 



♦ ♦ 

♦ 83 ♦ 

♦ ♦ 



* STORE START ♦ 

* ADDR IN LOAD * 

* ADDR ♦ 



*«4i4c«««*«**#*«**4c 



fi^^^^Dl***'*'****** 



«:*4c4c*4t«#*>tt4e4t4>al'*** 



«««#*E1*******«** 



4c**4(*4t*#*«**«4e*«* 



* * 

* SUBTRACT ♦ 

* IK FROM * 

* WRKRG3 * 

* ♦ 



♦ *♦* 
TEMPENO X 

* ♦ 
*CALCULATE TEMP ♦ 

* PART END AND * 

V STORE IT ^~ 

* IN WRKRGl * 



* « 

♦ BUILD PTA ENTRY* 
.♦WITH HIGH ADDR ♦ 

♦ BIT ON ♦ 

* * 



4t«*«3C««*4!*4c«!***** 



««***&!♦♦♦♦♦♦♦♦♦♦ 

* * 

* LOAD ORRPART ♦ 

* IN WRKRG2 ♦ 

* LOAD ENRPART ♦ 

* IN P0INT3 ♦ 

«:4E4t***««««**4c4<*4>* 



4i*4t«#H !*♦♦♦♦♦♦♦♦♦ 



4i4c«4>4c*««*«**««4<«« 



.♦ WRKRGl ♦. 
. GT P0INT3 . 



t****Q2********** 



*«#4c««*«**«**««** 



«*««4'H2 ♦♦♦♦♦♦♦♦♦♦ 

* * 
♦INITIALIZE NEW ♦ 
*START ADDR FOR ♦ 
iSYSLNK IF OPEN ♦ 

* ♦ 



♦ ♦ 

♦ MOVE PROGRAM * 
♦NAME INTO SAVE-+ 

* AREA * 

* * 

*i),*:t,iffiii:f ********** 



3te*4c4E*«*«»**«***** 



♦♦♦**G3 ♦♦♦♦♦♦♦♦♦♦ 

* * 
♦LOAD REGISTERS * 

* WITH PROPER ♦ 

* PARAMETERS * 

* ♦ 



^♦**H3********* 

* * 

* SVC58 ♦ 

* * 



♦♦♦*J3********* 

* BRANCH TO ♦ 
.X* NVSERR IN ♦ 

* SJOBCTLA * 
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Chart LJ, $JOECTLE - FCMAINT Routine (Part 1 cf 2) 
Refer to Chart 10. 



♦ ♦ 

♦ FCHMAINT ♦ 

♦ * 



* ZERO LABEL * 

* LENGTH IN * 

* C0MRE6 * 

* * 



4t4t4t*4cC I********** 



4c««4t*«***i|e«*«4(4c«« 



.♦NEW SUPER- *. NO 
♦ .VISOR CATALO-.+... 
♦. GUED ,♦ 



♦ * 

♦ LOAD ADDRESS * 

♦ CCB LOG IN ♦ 

♦ REG 1 * 

♦ ♦ 
^^^^^^^^(♦♦♦♦♦♦♦♦* 



♦ ♦ 
♦RESET SWITCH * 

♦FOR NEW SUPER- 
♦ VISOR CATA- * 

♦ LOGUED ♦ 



**♦♦ 

* ♦ 

♦ 82 ♦ 

♦**♦ 

X 

♦ READ * 

ANSWER 
* * 

^((^■♦♦♦♦♦♦♦♦♦♦♦♦♦♦« 



4c4<4<4!«C 2 ♦♦♦♦♦♦♦♦♦♦ 
♦MNTCNT GU * 

♦ SEIZE ♦ 

♦ THE ♦ 

♦ SYSTEM ♦ 
««4t:)i3tc4c4< ♦♦♦♦♦*♦**« 



^f^lti^;tc£j2 ********** 

* * 

* CONVERT ♦ 

* ANSWER ♦ 

* TO CAPITALS * 

* * 



E2 *. 
♦ ♦. 

ANSWER *. 

= .♦ 

IGNORE 



♦ . 



,* 
.* 
YES 



♦ Gl * 

* ♦ 
♦♦** 



♦ Gl ♦.X 



*♦♦* 
REISSUE X 

♦MNTCNT GU * 

♦_♦_*_♦-♦_*-*_»_* 

♦ RELEASE * 

♦ THE ♦ 

♦ SYSTEM * 



♦ ISSUE MESSAGE ♦ 
1C90D NEW 
♦ SUP CATALO- * 
GUED 



*****J I********** 

♦ * 

♦ SET WRITE * 

♦ CCW TO * 

♦ READ CCW t 

♦ * 



♦ CLEAR ACL ♦ 

♦ INDICATOR ♦ 

♦ BYTE ♦ 

« * 



ilHf1f1ti:i^Q2********** 

♦CILPCIL LM ♦ 
*_♦_♦_*_♦_♦_♦_♦_♦ 

♦CHECK AUTOMATIC^ 
♦CONDENSE LIMIT ♦ 
♦ FOR CIL ♦ 



♦♦H2 ♦♦♦♦♦*♦ 
♦ * 

SET SWITCH 

TO CONDENSE 

CIL 

« * 

i^^f4f*****if*^ 



1liittilfiHf!^2i ********** 

* * 
♦LOAD ADDRESS 0F+ 

♦ 'SLBTEST' * 

♦ IN LINKR2 ♦ 

* * 



*«**«C3 ♦♦♦♦♦♦♦♦♦♦ 
♦ROSYSDIR LN * 
♦_*_*_*_*-♦_♦_*-♦ 

♦ CHECK ACL FOR ♦ 

♦ RELOCATABLE ♦ 

♦ LIBRARY * 



♦♦D3*+*^*+* 

* * 
♦SET SWITCH TO^ 

* CONDENSE ♦ 
♦ RELOCATABLE ♦ 

♦ LIBRARY ♦ 



♦ LOAD ADDR ♦ 

♦ OF 'PRCTEST" ♦ 

♦ IN LINKR2 ♦ 

♦ * 



♦ROSYSDIR LN ♦ 

♦ CHECK ACL FOR ♦ 

♦ SOURCE STATE- ♦ 

♦ MENT LIBRARY ♦ 

♦ ^^^^(♦♦♦♦♦♦♦♦♦♦«# 



♦*G3 ♦♦♦♦♦♦♦ 
♦SET SWITCH ♦ 

♦ TO CONDENSE ♦ 
♦ SOURCE STATE- ♦ 

♦ MENT LIBRARY ♦ 
* * 

H,:tf********* 



* LOAD ADDR OF ♦ 

♦ "PRIVATE* ♦ 

* IN LINKR2 ♦ 

♦ * 



♦*♦* 

♦ * 

♦ B4 ♦ 

♦ ♦ 

X 

* ♦ 
♦SET SWITCH TO* 

♦ CONDENSE ♦ 
♦ PROCEDURE ♦ 

♦ LIBRARY ♦ 

^c4:********* 



i^Htitit*0^********** 

♦ * 

♦MOVE DISK ADDR ♦ 

♦ OF PCIL FROM ♦ 

♦ FETCH TABLE ♦ 

♦ TO COUNT ACL ♦ 

4e 4< «« K( «*«!(( jfcfe * 4t « )«e 3(c # 



♦ * 

♦ SET RECORD NO ♦ 
♦TO 1 AND CHANGE^ 

♦ LOG UNIT IN ♦ 

♦ CCB ♦ 



♦CILPCIL LM ♦ 

♦ CHECK ACL ♦ 

♦ FOR PCIL ♦ 

♦ * 



* * 

SET SWITCH 

TO CONDENSE 

PCIL 

♦ ♦ 



***♦♦ 
♦LK * 
♦ Bl^ 



*4c«««J2it<4*«*)t>*«#« 


*#**#J3** ******** 


♦ 


* 


* 


^DSYSDIR LN * 


♦ LOAD ADDRESS 


* 


*- 


-*_«-*-*-*-*-*-* 


♦ OF SYSTEM 


* 


♦ 


CHECK ACL FOR ♦ 


♦DIRECTORY DISK 


* 


* 


PROCEDURE * 


♦ ADDRESS 


♦ 


* 


LIBRARY ♦ 


*:t:**** *********** 


;^^l^c^:*^^^iti:/f ******** 


X 






X 


**♦♦ 






**♦* 


♦ ♦ 






♦ ♦ 


♦ B3 ♦ 






♦ B4 ♦ 


* * 






* * 


**** 






**** 
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Chart LK. $JOECTLE - FCMAINT Boutine (Part 2 cf 2) 
Refer to Chart 10. 



***** 

♦ ♦ 



*♦*♦ 

* * 

* B2 * 

* * 
**** 



•* PRIVATE * 
. RELOCATABLE 
♦.ASSIGNED .♦ 



.ASSIGNED 
*• 



****ittC l*********H, 

* * 

* OPEN IJSYSRL * 

* TO FIND * 

* EXTENTS * 

* 4< 
****4^************ 



***1lf:itiQl*********:t, 

♦ ♦ 

♦ MOVE START * 

♦ ADDR TO * 

♦ COUNTACL * 

♦ * 
mm*************** 



♦♦♦♦♦C2 ♦♦♦♦*•*♦** 

* * 

* OPEN IJSYSSL * 

* TO FIND * 

* EXTENTS ♦ 

* * 

********:ti*il,^4i**^* 



:ttHi*4i*[)2********** 

* * 

* MOVE START * 

* ADDR TO * 

* COUNTACL * 

* ♦ 

*t$i*:tf**:t:$,4t******** 



*****£l********** 

* * 

♦ SET LOGICAL ♦ 

• UNIT TO * 

* * 
****^***m******** 



*****^2********** 



:ti**************** 



*****f I********** 

♦ACLEXCP LN * 

♦ _♦-»_♦-*-.♦_♦_♦_* 

♦ CHECK ACL FOR ♦ 

♦ PRIVATE * 

♦ RELOCATABLE ♦ 

***************** 



*^***f2********** 
*ACLEXCP LN* 

* CHECK ACL * 

* FOR PRIVATE * 

* SOURCE STMT * 
********Ht******** 



**Ql1f****** 

* * 

* SET SWITCH ♦ 
TO CONDENSE 

* PRIVATE * 
♦RELOCATABLE* 

*********** 



**62******* 

* * 
♦SET SWITCH TO* 

♦CONDENSE PRIVA-* 
* TE ^SOURCE * 

♦ STMT * 
#«♦***««««* 



**** 

* * 

* B2 ♦ 

* ♦ 
**** 



.* ONE *. NO 
. LIBRARY TO .*... 
♦.CONDENSE .♦ 



* ♦ 
SET OFF 

SWITCH FOR 
MAI NT 

♦ ♦ 
*********** 



*****J2********** 

* * 

* MOVE 'MAI NT' ♦ 

* INTO ♦ 

* PHSNMF ♦ 

* ♦ 



♦♦♦*J3^^******* 

♦ SVC 14 * 

♦ EOJ ♦ 

♦ * 
m************** 



***** 
♦LB ♦ 
♦ C4* 



Charts 159 



Chart LL. $JOBCTLE - SEEKINIT St^brcutine 
Refer to Chart 10. 



* * 

* SEEKINIT ♦ 

* * 



CI ♦. 

.♦ *. 

* CATAL ♦. NO 
JOB .*... 
*. .* 



NO .* 


EXEC 


*. 


. ..♦. 


BLANK 


.♦ 


. ♦ 


. ALLOWED 

♦ , .♦ 


4> 


X 


*. .* 




*♦♦»♦ 


♦ YES 




♦LU ♦ 






• B5* 






♦ ♦ 






* 






OTSERRI 


X 




*«4»tc«El:(c«««:(c*4t4<*)|i 


* 




* 


4< 


SET PHSNMF 


* 


♦ 


TO HEX 


# 


« 


ZEROES 


♦ 



^:f******it'******** 



* * 

* SET DISPLCMT ♦ 
♦IN FETCH TABLE * 

* TO ZERO ♦ 

* * 



GI *. 

.* *. 

* SYSCLB * 

ASSIGNED 



♦♦♦♦ 

♦ ♦ 

♦ B2 * 

♦ ♦ 
♦**♦ 



.♦ ♦.NO 

♦. $ PHASE .♦.., 
♦ . .♦ 



♦ ♦ 
SET OFF 

SWITCH TO 
EXCHANGE 

♦ FIELDS * 
#*♦♦♦♦♦♦♦♦♦ 



♦ ♦ 

♦ CALCULATE ♦ 

♦ DISPLACEMENT ♦ 
♦IN FETCH TABLE ♦ 

♦ ♦ 



♦♦♦♦ 

♦ ♦ 

♦ B3 ♦ 

♦ ♦ 
♦♦♦♦ 

X 
«**4c4<B3 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 
♦POINT TO BEGIN ♦ 
♦OF FETCH TABLE ♦ 

♦ ♦ 

♦ ♦ 
^^^^^^^^^^^(♦♦♦♦♦^ 



^^^■♦♦C3^^^^^^^^^^ 
♦TSTSLD LM ♦ 

♦_♦_♦_*_♦_*_♦_♦_♦ 

♦CALCULATE STARTS 
♦AODR FOR SEARCH^ 
♦ CIL DIRECTORY ♦ 



«4"|e««03 ♦♦♦♦♦♦♦♦♦♦ 



^^^^^^^^^(♦♦♦♦♦♦♦* 



♦♦♦♦ 




♦ ♦ 




♦ B4 ♦ 




♦ ♦ 




♦*♦♦ 




INITLNK X 




*4i«**B4^^^^^^^^^^ 




♦ ♦ 




* SWITCH ♦ 




* LOGICAL UNIT ♦ 




♦ TO SYSCLB ♦ 




♦ * 




^(^^^^^'^(♦♦♦♦♦♦♦♦♦^ 




♦♦♦♦ I 




* * , 




♦ C4 ♦.X. 




♦ ♦ , 




♦♦♦♦ X 




INITLNKI .♦. 




C4 ♦. 




,* ♦, 




.♦ EXEC ♦. NO 


♦. BLANK .♦ 




♦. ALLOWED .♦ 




♦ , ,♦ 




♦ , ,♦ 


X 


♦ YES 


♦♦♦♦♦ 




*LU ♦ 




♦ B5^ 




♦ ♦ 




* 




OTSERRI 


X 




4i4>p44>4t*4i*itt4c 





E2 ♦. 




E3 ♦. 


.♦ ♦, 




.♦SWITCH ♦. 


.♦ PHSNMF ♦. YES 


.♦TO EXCHANGED. NO 


♦. BLANK .♦. 




♦. FIELDS .♦.. 


♦ . .♦ 




♦. ON .♦ 


♦ , .♦ 




♦ . .♦ 


♦. .♦ 


X 


♦ • .♦ 


♦ NO 


**** 

♦ * 

♦ B4 ♦ 

♦ ♦ 
♦♦♦♦ 


♦ YES 


X 




X 


>K4t^*^F2^^^^^^^^^^ 




,tiii^f*fi********** 


♦ ♦ 




* * 


: »sstikk'si : 




* EXCHANGE ♦ 




♦ LOGICAL UNITS ♦ 


♦ FETCH TABLE ♦ 




♦ AND COUNT WITH ♦ 


♦ ENTRY ♦ 




♦ COUNT I ♦ 


:H^*ili:^:ki4'** ******** 




^^♦Jtc**^' ♦♦♦*##*<>♦* 



)»«HI^^^^^^^ 
♦SET SWITCH ♦ 

♦ TO EXCHANGE ♦ 
♦SEEK ADDRESSES ♦ 

♦ AND LOGICAL ♦ 
♦ UNITS * 



^*4fiilf^t J l*i(if**if**iti^ 

♦ ♦ 

♦ INDICATE ♦ 

♦ TWO ♦ 

♦ SEARCHES ♦ 



♦ B2 ♦ 

♦ ♦ 
♦ ♦♦♦ 



^^^■♦♦G2^^^^^^^^^^ 
♦TSTSLD LM ♦ 
*_♦_♦_♦_ ♦_ «- *- 4C-* 

♦CALCULATE STARTS 
♦ADDR FOR SEARCH^ 
♦PCIL DIRECTORY ♦ 

nt:ti:tiHtn'************ 



*^***i^2********** 



^^^^^^^^■♦♦♦♦♦♦♦♦^ 



*4i:t<^G3^^^^^^^^^ 

♦ RETURN TO ♦ 

♦ CALLER ♦ 

♦ ♦ 
«4t4i4c*4c^^ ♦♦♦*♦♦♦ 



♦SET SWITCH TO^ 

♦GET FIRST NAME ♦ 

♦ LINKEDITEO ♦ 

* ♦ 



♦SET OFF SW ♦ 

♦ TO GET NAME ♦ 
♦OF FIRST PHASE 

♦ CATALOGUED ♦ 

♦ ♦ 

41 ^E^ ♦*♦♦♦*** 



41:^^*4' f^********** 

♦ * 

♦ ADD FETCH ♦ 

♦ TABLE ADDR ♦ 

♦ TO DISPLCMT ♦ 

♦ IN FETCH TABLE ♦ 

^LlttHtidl^'************ 



♦ ♦ 
♦MOVE DISK ADDR ♦ 

♦ OF LINKAREA ♦ 

♦ FROM FETCH ♦ 
♦TABLE TO COUNT ♦ 
itt**************** 



***** 
♦LB ♦ 

* C4* 





.♦ 


PHSNMF 


♦ • 


YES 


♦ 




BLANK 








♦. 


♦ . .♦ 

♦ NO 

X 
♦♦♦♦ 

♦ ♦ 

♦ B3 ♦ 

♦ ♦ 
♦♦♦♦ 


.♦ 


X 

*♦♦♦ 
♦ 

♦ C4 = 
♦ 

♦♦♦♦ 
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Chart LM. $JOECTLE - TSTSLC and CILPCIL Subroutines 
Refer to Chart 10. 



♦***A1 ********* 

* * 

♦ TSTSLO ♦ 

• * 
*************** 



4c*«4tA3********* 

♦ * 

♦ CXLPCIL * 

♦ * 



* LOAD CCHH ♦ 

* OF DIRECTORY * 

* IN WRKRG2 * 

* * 
««*4c*«4c4t«*4<4t***** 



4c4>***C l*****4t**«« 

* LOAD SLD ♦ 

♦ START ADOR ♦ 

♦ IN POINTl * 

* * 
*4<****4>****4t**«4>« 



* * 

* POINT ♦ 

* POINTl TO ♦ 

* FIRST ENTRY * 

* IN SLD * 
4i*4i«:4']ti*4'*****«*** 

♦*** ! 
» * . 

* FI *,X. 

* * . 
**** X 



.* PHSNMF 

*• ON THIS 

♦. TRACK 



«*4i*F= 2 ********* 

* RETURN TO * 
.X* CALLER * 

* * 



4i«4i*4<G 14<«4i4t4>**««i|t 



«4t4t4c#4t4i*#4'***3|>*4t« 



4e4(***J I********** 

* ♦ 

* UPDATE CC * 

* WITH 1 AND * 

* ZERO TRACK ♦ 
» NUMBER * 



* LOAD ADDR * 

* OF CCB IN * 

* REG 1 * 

* * 



*** ♦♦C3 ******** ** 
*MTNCNT GU * 
«-.*-#-*-«>*-*'* -♦ 

* RELEASE * 

* THE * 

* SYSTEM * 



*«4tD3 ************ 

* ^READ * 

DESCRIPTOR 
* ENTRY * 

^i******^'********* 



^r*^^if^2 ********** 
*MTNCNT GU * 

♦-♦_♦-.*-♦_♦-.*-♦-♦ 

* SEIZE * 

* THE * 

* SYSTEM * 
**«*«4c4c««4c:|i4t**«** 



.* ♦. 

NO .* NUMBER OF ♦. 
..•*DELETED BLOCKS.* 
*. GT 70 .♦ 



.*. 

H3 *. 

.* ACL *. 

.*GTE NUMBER *. NO 

.OF AVAILABLE .*... 

*. BLOCKS .* 



* * 

* INCREASE * 

* RETURN REG * 

* BY 4 NO * 

* CONDENSE * 

K(4c4c***4c**4c«***>l>»« 



«4t4<**K I********** 

* * 

* POINT TO * 

* NEXT SLD ♦ 

* ENTRY * 

* * 



****K3********* 

* RETURN TO * 

* CALLER * 

* * 



**** 

* * 

* Fl * 

* * 

♦*** 
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Chart LN, $J0BC1LE - BDSYSDIR Subroutine 
Refer to Chart 10. 



♦ * 

♦ ROSYSDIR ♦ 

♦ ♦ 



* LOAD ADDR * 

* OF CC8 IN * 

* REG 1 * 

* * 



* ♦ 
♦INCREASE POIN- ♦ 

* TER TO NEXT * 

* SYSTEM DIR * 

* RECORD ADDR ♦ 



* READ * 

SYSTEM 
♦ DIRECTORY ♦ 
RECORD 



NO .* NUMBER OP *. 
...♦DELETED BLOCKS.* 
♦. GT .* 



C3 


♦ . 


ACL 


= 


* 


.♦ * 
NO 



♦ , 


♦♦♦♦E2 ♦♦♦♦**♦** 


IS ♦. NO 


* RETURN TO 


LIBRARY .♦ 


...X* CALLER 


PRESENT .♦ 


♦ 



♦ ♦ 
♦MOVE DISK ADDR ♦ 

♦ OF LIBRARY ♦ 

♦ TO SEEKACL ♦ 

♦ * 



IHf ************'*' 



4>4c«*F2 *♦♦♦♦♦♦♦♦ 

* « 

* ACLEXCP ♦ 

* ♦ 



.♦ACL GTE*. 
.♦ NUMBER OF *. NO 
. AVAILABLE .♦... 
*. BLOCKS .* 



♦♦***E3** ♦♦***♦*♦ 

* ♦ 

* INCREASE * 
*RETURN REGISTER* 

* BY 4 NO * 

* CONDENSE * 



♦♦♦♦F3^**^****+ 

♦ RETURN TO ♦ 

♦ CALLER ♦ 

♦ * 

4(«*4i:|(***4>*4>***« 



♦ LOAD ADDR ♦ 

♦ OF CCB IN * 

♦ REG 1 ♦ 

♦ ♦ 



***H1************ 

* READ ♦ 
FIRST 
* DIRECTORY ♦ 
BLOCK 
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Chart LP, $JOBCTLE - EXEC FBOC« Statenrexit Processor 

Refer to Chart 10. 



***** 

♦LA ♦ 
♦ Fl* 



**** 

* * 

* A3 ♦ 

* * 
**** 



**** 

* * 

♦ A4 ♦ 

**♦* 



CALL .♦. 

Al *. 

• * *. 

.* PROC NAME ♦. 

♦. STARTS WITH . 

*. $$ ,* 



*****Q l***^c:f***** 

♦REPLACE SECOND ♦ 

♦ $ WITH * 

♦ PARTITION *. 

♦ IDENTIFIER * 

♦ * 

********^1Hf^i:^iti:tittiti 



CALLNORM 

*****f^2********** 

♦ SET ERROR ♦ 

♦ COUNTER TO ♦ 
...X+ MESSAGE ♦ 

♦ IM80D ♦ 

♦ ♦ 
**♦*♦♦♦♦♦♦♦*♦♦♦♦♦ 



♦ PROCEDURE ♦. NO 
WITH SYSIPT .♦.. 
*. DATA .* 



B2 *. 


***#*B3^^^^^^^^^^ . 


.♦ ♦. 


♦ IPTOATA LR ♦ 


,♦ IS ♦. YES ♦_♦_♦_♦_♦-*-♦_♦_♦ 


♦PROCEDURE BEINGS 


♦CHECK IF SYSFIL^ 


♦.EXECUTED .♦ 


♦ SUPPORT ♦ 


♦ . .♦ 


♦ IS AVAILABLE ♦ 


♦ . .♦ 


X *«**««*«*«4e«*4c4c«* 


♦ NO 


♦♦♦♦♦ 




♦ LQ ♦ 

♦E^* (X**... .•••«. 






♦ ♦ 




ERR0R2 


X 


CINIT X 


*****£ 2 ********** 


#**«#£3#4e«*4<^^^*« 


* * 


♦FTCHJIB LS ♦ 


* RELOCATE ♦ 


♦_♦_♦_♦_♦_*_*_♦_* 


♦ CCB'S AND ♦ 


♦ GET JIB(SJ ♦ 


♦ CCW'S ♦ 


f___.TQ SAyE_._ ♦ 



****4f ************ 



SCNRT 

4e«*4c^D2 ♦♦♦♦♦♦♦♦♦♦ 

♦SCANR3 GK+ 
♦-♦-♦-♦-♦-♦-♦-♦-* 

♦ GET PROCEDURE ♦ 

♦ NAME * 

♦ * 
^^^^(♦♦♦♦♦♦♦♦♦♦♦♦^ 



♦RORCIPTl LUB(SJ^ 

Tiff*************** 



*«#«^D3^^*^^^^«^^ 
♦PROCDIB LT * 
*_♦_*_*_♦_♦_♦_♦_♦ 

♦ INITIALIZE ♦ 

♦ PROCDIB ♦ 

♦ INTRY ♦ 

**ifTt:4t************ 



**l!^^******* 

♦ SET FLAG ♦ 
TO INDICATE ' 

PROCEDURE 
EXECUTION 

♦ ♦ 



T^***^^^4'******** 

♦ BPANCH TO ♦ 

♦ CONTROL IN ♦ 

♦ SJOBCTLA ♦ 



♦ CHECK SYNTAX ♦ 

♦ OF PROCEDURE * 

♦ NAME ♦ 
^♦^^^♦♦♦♦♦♦♦♦*««« 







X 






.♦. 






F2 ♦. 






.♦ 




* 


MORE 


♦ 




OPERANDS 



#«#«*92 ♦♦♦♦♦♦♦♦♦♦ 

♦ SCANR3 GK+ 
*_♦-♦-♦-*_♦_♦_♦_* 

♦ GET NEXT ♦ 

♦ OPERAND ♦ 

♦ ♦ 
^^♦♦^♦♦♦♦♦^♦♦♦♦♦* 



****if^2********** 
♦CHKOV LR+ 
*_*_♦_ ♦_♦_♦_*-*_* 

♦ * 

♦ CHECK OPERAND ♦ 

♦ ♦ 
**iti************** 



FIND 

**:l(f**J2********** 

♦FINDPRC LR+ 

♦_ *_*_ ♦-♦- ♦_♦_♦-.* 
♦FIND THE CALLED^ 

♦ PROCEDURE IN * 

♦ THE LIBRARY ♦ 
1^f*^^^iil^*l|^****Ht4i**** 



«4c4<^«K2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ UPDATE ♦ 

♦ ERROR ♦ 

♦ COUNTER ♦ 

♦ ♦ 
«««♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



«#«***««4':|c«4c*««4t« 



.♦ ♦. 

.♦ PROCEDURE ♦. NO 
. WITH SYSIPT .♦... 
♦ . DATA .♦ 



**!^:fffQ2********** 

♦PASSGN LS+ 

♦ ASSGN SYSIPT * 

♦ TO PROCEDURE ♦ 

♦ LIBRARY * 
***tt************* 



***t,li<^-i******Ht*** 



MODIFY 
SYSIPT OFB 



*«:*♦♦«♦♦*♦♦♦♦♦««« 



CSET 

^♦*««J34e!K<(^^^^^^^ 

♦ SAVE THE ♦ 
♦PROCEDURE NAME ♦ 

♦ INTO COMREG ♦ 

* FIELD ♦ 

* ♦ 



ifHt\(_^******* 

* SET FLAG ♦ 

♦ TO INDICATE ♦ 
THAT INPUT IS 

♦ FROM SYSRDR ♦ 

♦ ♦ 

***i)i****:tt*if 



**** 

♦ * 

♦ A3 ♦ 

♦ ♦ 
♦♦♦♦ 
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Chart LQ. $JOECTLE - Syntax Checking Subroutine 
Refer to Chart IC. 



♦ SYNTAX ♦ 

♦ ♦ 



SYNTAX 

♦ SET ERROR * 

♦ COUNTER TO ♦ 

♦ ERROR MESSAGE * 

♦ •1M9ND» ♦ 

♦ ♦ 



ERROR HANDLER: 

CONSISTS OF THE ROUTINE AND A SET 

OF THREE TABLES 

-OFFTAB: CONTAINS THE OFFSETS OF THE 

ASSOCIATED ENTRIES IN THE MycTAB? AND 
FLAGS FOR OPERAND NUMBERING AND 
AUTOMATIC CANCEL 

-MVCTAB: 

-TXTTAB; CONTAINS THE POSTED ERROR MESSAGES. 



#««:«« REFERENCES 

* * TO LQC4: 

* ** LRA3, LRG3 
* * LRH2, LSEl 



C2 *. 
.* *. 

* BLANK *. NTHR 
OR COMMA AS .*,.... 
♦.DELIMITER.* 
*. .♦ 

*. .♦ 
* COMM 



♦*D2 ♦****♦* 

♦ ♦ 
POST 

•OPERAND* 
FLAG 

* ♦ 



.* CORRECT ♦. NO 
*. PROCEDURE .*... 
♦. NAME .* 



* RELEASE * 

* PROCEDURE * 
♦LIBRARYISVC 64)* 

♦ * 

****. • REFERENCES 

1 * * V* TO LQD4: 

♦ *.*«X' LAGl, LAJ2 
♦♦♦* ', LRB5, LRCl 

ERROR X 

♦*D4******* 
♦ * 

* RESET * 
..X* PSWITCH ♦ 
X ♦ TO ZERO * 



♦ *♦♦ , 

»! ♦*** 

* D4 *LP * 
!« ♦ 82 *.X. 
t**** * 

* **♦ 
ERR0R2 X 

* ♦ 
♦COMPUTE ENTRIES* 

* IN OFFTAB * 

* AND MVCTAB * 

* ♦ 



«*4<*4iF2********** 

* * 

♦ SET ERROR * 

♦ COUNTER TO * 
♦MESSAGE UNIOD'* 

* « 



* ♦ 

* POST ADDRESS ♦ 

* OF ERROR * 

* MESSAGE IN * 

* POINTI * 
4t4c«**«4<****4<****4t 



G2 ♦. 

.♦ ♦, * 

IS STMT *. NO * UPDATE 

GIVEN IN .* X* ERROR COUNTER 

. COMMAND .* X * 

♦FORMAT.* . * 

*. ,♦ . *♦♦**♦*♦♦*♦♦♦*♦♦* 
♦ YES 



♦♦♦*H3 ♦**♦♦♦♦♦* 

* * 

* RETURN * 

* * 



♦ ♦*♦ 

♦ ♦ 

* D4 ♦ 



**J2*+*^*** 

* POST * 

* SYSLOG FLAG * 

♦ (OVERWRITE * 

STATEMENTS ARE* 

READ FM SYSLOG) 



.* IS CANCEL 

^. FLAG ON IN 

*. OFFTAB . 

*. .♦ 



4C3|CH4*^^^^^* 

♦ ♦ 

* SET AUTO * 
* CANCEL SWITCH * 

* IN JBCSW4 * 

* ♦ 



J4 *. 

.* IS *. 

.* OPERAND *. 

♦NUMBERING FLAG. 

*.IN OFFTAB.* 

*. ON .♦ 

♦ . .* 

* NO 



:tc«4t**K44e*«!tc«4citi4i«« 

* * 

* RESET * 

* OPERAND *. 

* NUMBER * 

* * 



««**K5********* 

♦ BRANCH TO * 

♦ ERRRTN IN * 

♦ SJOBCTLA * 
«4t*4t4[*4i«******« 
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Chart LR. $JOBCTLE - Miscellanecus Subroutines (Part 1 cf 

Refer to Chart 10. 



3) 



♦ ♦ 

♦ A3 ♦ 



♦ ♦ 

» CHKOV * 

♦ * 



BLANK 
POSTED AS 
.DELIMITER. 



.* OPERAND *. 

♦PRESENT AND EQ. 

*. 'OV* .♦ 



sti4cD !#♦#*«** 



4i:(c:04c«4c4c4t«4c* 



***** 
*LQ * 

* D4* 



****A2********* 

* * 

* FINDPRC ♦ 

* * 
*4i«4'*********** 



FINDPRC 

4c4c*:»*B2 ********** 

* UPDATE ERROR * 

* CCUNTER * 

* TO MESSAGE * 

* IN40D * 

* * 

4i*«**i(i4i*«X> ******* 



«4cKe:«iKtC2 ********"(■* 
*MTNCNT GU * 

♦_♦_♦_♦_#_♦_*_♦-* 

* RELEASE * 

* SYSTEM * 

* * 
)|>*4<>tc4c****4>4t***4c:|t4c 



***** 
*LQ * 
♦ C4* 



* * 

* ENQUEUE * 

* PROCEDURE * 

* LIBRARY * 

* * 

:(c)|t**««4<********** 



*mtncnt gu * 

* ^system' " * 

* * 

* i|c 4> He 3|< « :(< l(> :|( « 4c * * i(> * « « 



F2 *. 
.PROCEDURE. 
.* LIBRARY 
*. ACCESSIBLE 



* UPDATE ERROR * 

* COUNTER TO * 

* MESSAGE * 

* 1N50D * 

* * 

**!(t4>4c««**«*)tii(e**«# 



.* PROC. * 

^LIBRARY AVAI- 
*. LABLE .* 



*4'***B3 ********** 

* CALCULATE * 

* AND SAVE DISK * 

* ADDRESS OF * 
♦OVERWRITE STMT * 

* SAVE AREA * 
^^^t************** 



4c*«4(*C3 ********** 

* UPDATE ERROR * 

* COUNTER TO * 

* MESSAGE * 

* 1N20D * 

* * 

**««4c*4c**** ****:((* 



*«=*«*D3*4' ******** 

* INITIALIZE * 

* POINTERS * 

* FOR * 

* SCAN * 

* * 
4c«i|c4c************* 

**** 



****/^5 *******#* 

* * 

* IPTDATA ♦ 

* * 
4I4E************* 



.* SYSFIL *. NO 
*SUPPOR-^ AVAIL-.*..., 
*. ABLE .* 



***** 
*L0 * 
♦ 04* 



* * 
* SET FLAG IN * 

* PSWITCH TO * 
INDICATE SYSI^T 

* DATA * 
«*4(**4t«4>*** 



****n5 ********* 

* RETURN * 

* TO * 

* CALLER * 
4<)(i *4> «* #«#4c>te4r **« 



* E3 * 

* * 
**** 



,X. 

X 
.*. 



E3 

.♦DESIRED*. 
.♦ DIRECTORY *. 

fMXOV 

*. FOUND .* 
*, .* 

*. .* 
* NO 



«« «:««F: 3 «:(c #* ** *)(c 3(c4: 

* * 

* GET NEXT ♦ 

* DIRECTORY * 

* ENTRY * 

* * 

«<>;»: 3tci(c4[4:4t********* 



FOUND 

#««c«*g4]tc*****:|C!|c«« 

* POST * 

* _ DIRECTORY ♦ 

*" PROCEDURE^ * 
«4<*************** 



**i(c*p 4:*! !((«««**** 

* RETURN ♦ 

* TO * 

* CALLER * 

4t#*«***«*«*«!«t*ite 



.* END *. NO 

.X*. OF .*... 

*. BLOCK .* 



***** 
*LQ ♦ 
* C4* 



***** 
♦LQ * 
* C4* 



**»*♦ J2 ********** 

* ♦ 

* PREPARATIONS ♦ 

* FOR READING *. 

* DIRECTORY ♦ 

* * 

***«4C*«!(C**«***4C** 



*««:«(« J3«*****«*«« 

♦DSKINIT LT * 

♦_*_♦_*-♦-* _♦-♦ -♦ 

X* GET DEVICE * 

* TYPE ♦ 

* * 

««)(C************** 



«*«««K3 i(e««4c«4e)(c4c4c;(c 

♦EXCPR6 GQ* 

* -«_*_#_♦_* -*_:)c_jjc 

* READ FIRST * 

* DIRECTORY * 
« RECORD * 

«««**««««****««:*« 



**♦* 

♦ * 

♦ A3 * 

♦ ♦ 

**** 



:»E««:tciteH4********** 

♦EXCPRG GQ* 

*_*_♦-.*_♦_)»(_*-*-* 

* READ NEXT * 

* DIRECTORY * 

* BLOCK * 

4: :«c4i«#:4< 4c :tc# «*****:«( :^ 



«4t«**J4********** 

* * 

* SET ♦ 

* POINTER ♦ 

* FOR SCAN * 

* * 

4c*4:************** 

* *♦** 

* * 

..X* E3 * 

* * 
♦*♦* 
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Chart LS. $JOECTLE - Miscellaneous Sutroutines (Part 2 cf 3) 
Refer to Chart IC. 



* * 

♦ A2 * 



♦♦**A1********* 
* FTCHJIB * 



FTCHJIB 

* UPDATE ERROR * 

* COUNTER ♦ 

* TO MESSAGE * 

* 1N60D * 

* 4> 
Hc**1ti*if *********** 



*****ci********** 



***it^************* 



*****Ql********** 

* * 

* GET FAVP * 

* TO CHAIN OF * 

* FREE JIBS * 

* * 
***************** 



A2 ♦. 

.♦ ♦. 
YES .* PROCEDURE * 
..***. WITH SYSIPT 
*. DATA .* 



* B2 *.X, 



♦♦** 
FJB3 X 

*****Q2********** 

* UPDATE * 

* FAVP TO JIB * 

* CHAIN BY THE * 

* POINTER ♦ 

* PROVIDED * 
***************** 



****Q2********* 

* RETURN TO * 

* CALLING SEQ * 

* * 
*************** 



****/^-i********* 

* * 

* PASSGN * 

* ♦ 
*************** 



* CALCULATE * 

* OFFSET IN * 

* FICLS * 

* * 
***********iti}l,**** 



*****Q'i*****i^**** 

* * 

* CALCULATE * 

* ADDRESS OF * 

* REQUIRED LUB * 

* * 
***ilfif****1i^itt****^r 



IS 

IT SYSRDR 
LUB 



*****Qi^***^i****** 

* SAVE ♦ 

* ADDRESS AND * 
,X*CONTENT OF LUB * 

* IN POOTPHASE * 

* * 
***************** 



X 
***** 
♦LQ ♦ 
♦ C4* 



*****f i********^* 

* * 

* SAVE * 

* JIB OFFSET * 

* INTO JIBTAB ♦ 

* * 
*******^i********* 



*****Q I********** 

* CALCULATE * 

* JIB ADDRESS. * 

* SAVE JIB ♦ 

* ADDRESS INTO * 

* JIBTAB * 
***************** 



*****H 1*^,^1******* 

* * 

* GET POINTER * 

* TO NEXT FREE * 

* JIB * 

* ♦ 



JI *. 

♦FIRST ENTRY* 
IN JIBTAB 

*. .* 
*. .* 


NO 
*. ... 


****YES 


X 

**** 
* 

♦ B2 
♦ 

♦♦** 



*****^(^l********** 

♦ * 

♦ UPDATE ♦ 

♦ POINTER TO * 

♦ JIBTAB * 

♦ * 
***************** 



***n,*E3********** 

* SAVE LUB * 

* IN ASSOCIATED * 

* JIB (FROM * 

* JIBTAB) ♦ 

* * 
*****#*******i^,**iif 



****ii,fi^**:iti******^ 

* * 

♦CHAIN JIB ENTRY* 

* TO LUB-JIB- * 

* CHAIN * 

* * 
****i^***** ******* 



**G3******* 

* SET * 
PROCEDURE 

FLAG IN 
JIB ENTRY 

* * 



#**#*H3**** ****** 



:^:iii^:t:^^L***^*:^****iii 



**rlf:*1i,J-i********** 

* SET JIB * 

* POINTER * 

* FROM JIBTAB » 

* INTO LUB * 

* * 



♦♦«*K3********* 

* RETURN TO * 

* CALLING SEQ * 

* * 
*************** 
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Chart LT. $JOECTLE - Miscellanec^s Subroutines (Part 3 cf 3) 

Refer to Chart 10 • 



♦ * 

♦ PROCDIB ♦ 

♦ ♦ 



PROCDIB 

*DSKDEV LT * 
♦_♦_♦_*_♦_♦-*_♦_♦ 

* GET OFF SET * 

* IN DEVTAB * 

* * 



* * 

* GET ADDRESS * 

* OF PRCOIB ♦ 

* ENTRY * 

* * 

■^f*i)ciln^^:ii! ********** 



♦ BUILD ♦ 

♦ CURRENT ADDRESS* 

♦ IN * 

♦ PRCDIB ENTRY * 

♦ ♦ 

******ifiii:/ti^i):if:i:it:*** 



****A2 ♦♦♦**♦♦*♦ 



*4<4<4'4< 4<««4<4<4!>t<4<«4> 



♦SET REG.P0INT4 ♦ 

♦ TO * 

♦ FOUR * 

♦ « 



:^*it'**C2 ********** 

* GET NUMBER ♦ 
♦OF BLOCKS OCCU-+ 

* PIED BY ♦ 

* PROCEDURE ♦ 
♦INTO REG.P0INT2* 

♦ *** 



* 02 ♦.X 



♦♦** 
CNVRTL X 

^*ifiti:ifQ2********** 

♦GET DISK DEVICE* 

* INFORMATION ♦ 

* INTO REG * 

* WRKRG3 * 

* * 



♦ * 

♦ DSKINIT * 

♦ * 

icilf^!ttltl,<l!:tt4'******* 



DSKINIT 

♦DSKOEV LT+ 
*_♦_*-*_♦_*_♦_*-♦ 

♦ GET OFFSET ♦ 

♦ IN OEVTAB ♦ 

♦ * 



««4<**C4^****^*^*^ 

♦ UPDATE * 

♦ WKOFI BY ♦ 

♦ VALUES OF ♦ 

♦ DEVTAB ♦ 

♦ ♦ 



♦ RETURN TO ♦ 

♦ CALLING SEQ * 

♦ * 

:^c**^*********** 



♦ * 

♦ DSKOEV * 

♦ * 
ttt***'t-,tt*iHti*4'**** 



]|t«««««*««*««:(c«*4i<|i 



Htm* **C'i ********** 
♦CHKASR GU * 

♦ GET SYSRES ♦ 

♦ PUB ENTRY ♦ 

♦ ♦ 

illi;llL*i^ittitiit'********** 



:((«))( «*Q5 «:([«« «««*♦♦ 

♦ SEPARATE ♦ 

♦ SECOND HALF- ♦ 
♦BYTE OF DEVICE ♦ 

♦ TYPE * 

♦ * 



4t«*««E !♦♦♦♦♦♦*♦♦♦ 

♦CNVRT LT ♦ 

* CALCULATE * 

* END ADDRESS ♦ 

* OF PROCEDURE ♦ 

*****^it:********** 



**if**fl4i********* 

* MOVE ♦ 

* END ADDRESS * 

* INTO ♦ 

* PRCDIB ♦ 

* * 



* ESTABLISH ♦ 

* NUMBER OF ♦ 

* RECORDS/TRACK ♦ 
♦AND UPPER HEAD ♦ 

* LIMIT ♦ 



♦♦♦*H I********* 

* RETURN TO ♦ 

* CALLING SEQ ♦ 

* ♦ 
**nf**!ti********* 



4<4c*««E2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ADD DISK * 
♦ADDRESS VALUE, ♦ 

♦ INDEXED BY ♦ 

♦ P0INT4t TO ♦ 

♦ P0INT2 ♦ 



.♦ VALID ♦. 

♦.DISK ADDRESS . 

♦.IN P0INT2.^ 



«4'*«*F3*^^*^^^^^* 

♦ DIVIDE ♦ 

♦ P0INT2 BY * 
X^ WRKRG3 ♦ 



«4<««««««4:««««*«4!* 



♦ CALCULATE ♦ 

♦ OFFSET IN ♦ 

♦ DEVTAB VIA * 

♦ THIS VALUE ♦ 

♦ * 



****pS****:t'**** 

* RETURN TO ♦ 

* CALLING SEO ♦ 

* ♦ 



♦ POST P0INT2 ♦ 

♦ INTC DISK- ♦ 

♦ ADDRESS FIELD ♦ 

♦ * 

ti***************:/^ 



.♦ LOAD ♦. 
.♦ AND TEST *. NONE 
.QUOTIENT INTO. ...... 

♦. P01NT2 .♦ 



*****H3 *♦♦♦♦♦♦♦** 

♦ * 

♦ REDUCE ♦ 
X+ P0INT4 ♦ 

♦ BY TWO ♦ 

♦ * 



.X* 02 ♦ 
* ♦ 



♦♦**J2*^^*+*^*^ 

♦ RETURN TO ♦ 

♦ CALLER » 

♦ ♦ 
****ili*********tt 
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Chart LU« $JOBCTLE - Error Subroutines 
Refer to Chart 10 • 



***** 

*LE * 
* 02* 



***** RiFlRENCES 
I A TO LUB5: 
♦^ ** LLC*, tLOl 



♦♦♦♦♦ 
♦LG * 
♦ C3* 



* ♦ 
♦TURN ON AUTO * 

* CANCEL SWITCH 
♦JBCSW4 BIT 5 ♦ 

♦ ♦ 
*m********* 



♦ * 

♦ POINT TO * 
♦DESIRED MESSAGE^ 
♦1A20D ♦F3+ 

♦ ♦ 

**1t*jtctiittt*:*1ftt****** 



OTSERPl X 

4t4<B5 ♦♦♦♦♦♦♦ 

♦ TURN ON ♦ 

♦ AUTO CANCEL ♦ 

♦ SWITCH ♦ 

♦ JBCSW4 ♦ 

♦ BIT5 ♦ 

*♦♦* I 

♦ ♦ . REFERENCES 

♦ ♦ ♦.X. TO LUC5: 

♦ ♦ . LCCI, LEJ4 

*♦♦* , 

OTSERR X 

i|c*««*C5 ♦♦♦♦**♦♦♦* 

♦ POINT TO ♦ 

♦ DESIRED ♦ 

♦ MESSAGE ♦ 

♦ ISIOD ♦ 

♦ ♦F3 ♦ 

:tl,Hi*niiA'************ 



i(f*D2******* 

* TURN ON ♦ 
AUTO CANCEL 

SV^ITCH 
JBCSW4 

* BIT5 * 
dti********^t* 



**^f**l^2********** 

♦ * 

♦ * 

♦ REINITIALIZE ♦ 

♦ ♦ 

♦ ♦ 



***SHQ£^**il>****** 

♦ BRANCH TO ♦ 

♦ ERRRTN IN ♦ 

♦ SJOBCTLA ♦ 

***i^***^*****iti* 



♦ * 

♦ TESTREAL ♦ 

♦ * 
^^^(^^^[^^(♦♦♦♦♦♦♦♦^ 



.♦ INPUT 

*. FROM 

♦. SYSRDR 



♦F3 

^message' 

IiC3NI*** 

riLioo'" 
risioD*" 
riAzoB"* 



DESCRIPTION 

'program 'Nof 'found' 



label area exhausted 
'statIment 'out'of'seouence* 



.X. .♦.LENGTH = 'A' 



REAL PARTITION SIZE=0 
REAL MODE PROGRAM CANNOT 
BE EXECUTED 



**ifHL*Q2********** 

♦ CHANGE ♦ 

♦ ACTION CODE ♦ 

♦ OF MESSAGE ♦ 

♦ TO I ♦ 

♦ * 
***************** 



****Qit********t 

* BRANCH TO ♦ 

* NVSERR IN ♦ 

* tJOBCTLA ♦ 
*************** 



**^2******* 

* MODIFY ♦ 
BRANCH 
VECTOR 

TABLE 

♦ * 
*********** 



*****J2 ********** 

♦ POINT TO ♦ 

♦ DESIRED ♦ 

♦ MESSAGE ♦ 

♦ 1C3NI ♦ 

♦ ♦F3 ♦ 
***************** 



«**4tK2 ♦♦♦♦♦♦♦♦♦ 

♦ BRANCH TO ♦ 

♦ ERRRTN IN * 

♦ tJOBCTLA * 
*************** 
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Chart Mh. $JOECTLF - IISTIC Stateirent Processor 
Refer to Chart 11. 



(Fart 1 of 5) 



""T REFERENCES 

I ** TO MAA4: 

♦ I MBJ3, MCGl 

* MEH4, MJK5 



****A1********* 



4i4c*4<«**«****«** 



LISTIO 

♦INITL MQ* 

* INITIALIZE * 

* FOR * 

* RELOCATION * 



♦♦♦♦♦C I********** 

* LOAD P0INT4 * 
♦WITH ERROR EXIT* 

* TO BE USED IF ♦ 

* $$BLSTIO IS ♦ 

* LOADED ♦FZ * 



♦SCANR2 GK* 
*_♦_♦_♦_♦_♦_*_♦_♦ 

♦ POINT ♦ 

♦ TO * 

♦ OPERAND * 



.* DID *. 
.* A BLANK *. NO 
.fcNO THt 5CaN .*... 



ti^^^^Aa ********** 

* MOVE THE ADDR * 
*0F THE SYS UNIT* 
*TABLE,SYSTABLE,* 

* TO THE TRANS * 

* LOC. TASYSTAB * 

i|i*4e*«**#********* 



♦-♦-♦-♦-♦-♦-♦-♦-♦ 

* DETERMINE * 

* TYPE OF * 

* OPERAND * 

3t(4t*4e«*«4>4'**4>4c«**4' 



♦♦♦♦C2********* 

* EXIT * 

* PER TABLE A * 

* #02 * 
4c4(4i*4c*«***«*«*« 



THE OPERAND IS ANALYZED AND CONTROL IS 

TRANSFERRED TO THE CORRECT PROCESSING 

ROUTINE USING TABLE A. 

REGISTER POINTl CONTAINS THE 

LOGICAL UNIT CLASS POINTER. 

REGISTER WRKRG2 CONTAINS THE 

LU8 COUNT. 



* PESET LINE * 

* COUNT TO * 

* ZERO WRKRG3 * 

* ♦ 



LIOEOJI 

♦SAVE THE BPANCH* 
♦TABLE DISPLACE-* 

* MENT IN LOC * 

* COUNT FROM * 

* HRKRG3 * 



♦♦C4******* 

* SET THE ♦ 

♦ B-TRANSIENT 
♦ACTIVE SWITCH, 

* TRANSWfOFF 

* ♦ 



##D4#Xc«]|c*«* 



«4i4c4t*F !♦♦♦♦♦♦♦♦** 

* SAVE POINTl * 

♦ IN WRKFLD3. * 

* POINTl IS THE * 
*POINTER TO THE * 

♦ OPERAND * 



* LOAD LINKR2 * 

* WITH RETURN * 

* ADDRESS TO BE * 

* USED BY * 

* $$BLSTIO *G2 * 

4,:f *************** 



* LOAD AND INIT * 

* $$BLSTIO * 

* *G2 ♦ 



RET ADD 

*****J l««4c«*«***:tc 

♦MTNCNT GU * 
♦_*_♦_*_*_*_*-♦_* 

* SEIZE ♦ 

* SYSTEM * 

* ♦ 



*****K I********** 

* MOVE THE * 
*OPERAND TO THE * 
*TRANSIENT AREA * 

* IN LOCATION * 

* TARG * 
4i*4[«««*4i********* 



*G2 
LINKR2 IS USED BY THE $$BLSTIO 
TRANSIENT TO RETURN CONTROL TO 
THE CALLING ROUTINE AT THE 
LABEL RETADD. 



.OPERAND 


. ROUTINE 


. CHART. 


:SYS"" 


Tliol'** 


:*MB-Ai: 


.PROG 


. LIOL 


. MB-Al. 


.Fl 


. LIOL 


. MB-Al. 


........ 


'I'libr" 


i'mb-ai: 


:f3 


rLioL**' 


Tmb-ai: 


.F4 


.......... 


•:*MB-Ai: 


.ALL 


.....^.... 


. MB-Al. 


.UNITS 


. UNITS 


. MC-Al. 


.CUU 


. LIOCUU 


. MD-Al. 


.DOWN 


. DOWN 


. ME-Al. 


.UA 


UA 


ME-Bl. 


.SYSXXX 


LIOSYX 


MD-B3. 


:bg 


•*'Li6r** 


•••mb-ai: 



SET 

•ONLY WAIT* 

SWITCH 

* * 



♦MSGOUT GJ* 



♦ * 
RESET 

•ONLY WAIT* 
SWITCH 

* * 

*1f:*****f*** 



4:«4:**G4********** 

♦MTNCNT GU ♦ 
♦_♦-♦-*-*_♦-*_♦-* 

* RELEASE ♦ 

* SYSTEM * 

* * 



^^^^{^^♦♦♦♦♦**** 

♦ SVC 11 RELEASE ♦ 

♦ THE TRANSIENT ♦ 

♦ AREA * 



♦J 4 

EXIT BY TABLE B 
TABLE B 

.'displace-!"*"**!! ! 

•ment .routine. chart. 

.'HExd6**'*rc6Nfp.OL!GC-BiI 
lHExiA****!NVSERR*!GW-C2! 



* ♦ 

* SVCBTRNS ♦ 

* * 



SVCRTPNS X 

♦*ns ♦♦♦♦♦♦♦ 

♦ SET ♦ 

* TPANSIENT 
* ACTIVE 

* SWITCH 

* ON ♦ 



*t***E5********** 

* LOAD REGl * 

* WITH ADDR OF * 

!*• TMC T p #, fkjc T c fkiT * 
♦NME, <;<BLISTIO * 

* * 



* MTNCNT GU ♦ 

:«!_♦_*_*_♦_*_*_«_* 

* RELEASE ♦ 

* SYSTEM ♦ 

* * 



«4c«*4=G5 ♦♦♦♦♦♦♦♦♦♦ 



4e««««4c#4<*>0'>«( >«>*♦«♦« 



*_*_♦_♦_ 



««*4:«itc4i*«4i« 



♦ LOAD WRKRG3 ♦ 

♦ WITH ♦ 

♦ DISPLACEMENT ♦ 

♦ FOOM SAVE ♦ 

♦ AREA COUNT ♦ 

^f^fHtHpilliitfit'********** 



♦♦♦♦K5 *******♦♦ 

♦ EXIT PER ♦ 

♦ TABLE B ♦ 

♦ ♦J4 * 
Utium************ 



* A2 * 

* « 

**♦♦ 
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Chart MB. $JOBCTLF - IISTIC Stateirent Prccesscr (Fart 2 cf 5) 
Refer to Chart 11. 



*ili**M********* 



^^^c^c^i********** 



**B1******* 
♦ SET LIOSW ♦ 
*0N. INDICATE 
* LIST I/O IN 
* PROGRESS 
« * 



♦ * 

♦LOAD LUB COUNT * 

* IN WRKR63 * 

♦ FROM * 

* WRKRG2 * 



LIOLL201 X 

* SAVE LOGICAL ♦ 

* UNIT CLASS IN * 

* CLAORO AND * 

* LUB COUNT IN ♦ 

* LOC. COUNT * 

*MD * 

* G3 *.X 

* * 
***♦ 

LIOL202 

♦SKIPLN KB* 

* PRINT A BLANK ♦ 
♦LINE TO EFFECT * 

* LINE SKIP * 



♦_♦_♦_♦_♦_♦_ 



^t^t*************** 



♦OUTPUTS MQ+ 

♦ PRINT HEADER ♦ 

♦ FROM BUFFER, ♦ 

♦ SKIP 1 LINE * 
**:tliilliW'***** ******* 



♦ ♦ 

♦ MOVE HEADER ♦ 

♦ TO BUFFER ♦ 

♦ ♦Kl ♦ 

♦ ♦ 
*^i:f ************** 



^OUTPUTS MO* 
♦-♦_*_♦-♦_*_♦_♦_♦ 

♦ PRINT HEADER ♦. 

♦ FROM BUFFER, ♦ 

♦ SKIP I LINE ♦ 



♦♦♦♦ 
♦ ♦ 
JA2. 

♦♦♦♦ 

X 

.♦. 

A2 ♦. 

*. 

IS ♦. YES 

OPERAND .♦•••« 


LIOLl 

♦♦A3****^** 
♦SET TPROGSH+ 

...x*s*?SG;riiSfPfo** 


**** 

♦ * 

♦ A4 ♦ 

♦ ♦ 
♦♦*♦ 

LI0L2 X 

itc****fi,^*it,n^n'****** 

♦ LOAD WRKRG3 ♦ 

♦ WITH ADDRESS ♦ 

♦ OF NEXT LUB ♦ 

♦ SAVE AREA * 

♦ -JIBCHN- ♦ 


*♦♦ 

♦OU 

*-♦ 

* 

* 

* 


♦ * 
***♦ 

X 

ii:^fi^S ********** 

rPUTl M0+ 
PRINT 1 ♦ 


SYSXXX .♦ 


♦ BE LISTED ♦ 
^t^iilft******* 


LINE FROM ♦ 
BUFFER * 



♦♦♦♦♦B2+*^*^^^**+ 
♦GETLAN KA^ 
♦_♦_♦_♦_♦_♦_♦_♦_♦ 

♦ COMPUTE LUB ♦ 
♦ADDRESS AND NO.* 

* IN CLASS ♦ 
^t^iUtt************* 



4cD(«4(*B3***^^***** 
♦SET LUB COUNT, ♦ 
♦NUMBER IN CLASS+ 
♦AND COUNT CTRL ♦ 

♦ TO 1 ♦ 

* ♦ 



♦ PLACE LOGICAL ♦ 

♦ UNIT CLASS * 

♦ IN CLAORD * 



i|(](ii(c*«4i«)tc4c*^^4<***« 



♦ MOVE LUB ADDR * 

♦ FROM LUBAD ♦ 

♦ SLADD FOR ♦ 

♦ SCAN ♦ 

♦ * 
^**iHf************ 



LI0LL3 

♦SFPPE2 MR* 
♦_♦_*_♦_*_♦_*_♦_* 

♦SCAN LUB TABLE * 

♦ FOR EQUAL PUB * 

* POINTERS ♦ 



END *. NO 
OF LUB .♦... 

CLASS .* 



*♦*♦ 

* * 

* A4 * 

* * 
♦♦*♦ 



♦ LOAD WRKRG3 * 

♦ WITH CLASS * 

♦ COUNT. LOAD * 

♦ POINTI WITH * 

♦ LAST CLASS * 



«***:jcH3^**^**^*** 

♦INCR POINTI TO * 

* POINT TO NEXT * 

* CLASS * 



:4(4c«*«4c**4c4c*«««4t*<c 



4(««*4cB4***^*^^*** 

♦CHKAS93 GU * 

♦_♦_♦_♦_♦_*_*_♦_* 

* COMPUTE PUB * 

* ADDR * 

* IN WRKRG4 * 



««4c««C4********^* 

♦ MOVE PUB ADDR * 

♦ TO TRANSIENT * 

♦ AREA, TPUBADD * 



4t i|c!(c * i|t ^c^ifc « 4c4c 4c«4c* ♦ * 



4c:<c:(c«*04*^**^^^*** 

♦COMPUTE LOGICAL* 
♦UNIT NO. WITHIN* 

* CLASS OF ♦ 

* CURRENT LUB. * 

* STORE IN TLUN * 
««««3K4c4c*««**>t(*«*« 



«4i4t*)te544c4c**««*«** 

♦MOVE PUB POINT-* 

* ER TO TJIBCHN * 

* IN TRANSIENT * 
♦AREA FROM CURR ♦ 

* LUB SAVE AREA ♦ 



♦ LOAD SYMBOLIC * 
♦UNIT ADDR, CLASS* 

♦ AND ORDER, IN ♦ 

* REG POINTI * 

* * 

4: *«*«4c«3(t*«*)(ci«>4e:(e*4' 



«:|c4<««G4********** 



«:tc«*4t«3f ♦♦***«**«* 



^^t**H^********** 

♦PUIF TA* 

*-*-*-*-*-♦-*-*-♦ 

♦ BUILD A PRINT * 

♦ LINE IN WORK * 

♦ AREA ♦ 

^H^^itlit'************* 



#««;)( 4cB5 ♦*♦♦♦♦♦♦♦♦ 

♦ LOAD LINKR2 ♦ 

♦ WITH THE ♦ 

♦ ADDRESS ♦ 

♦ L10L4 ♦ 

♦ * 

ifilcit'************** 



4c«4t4cC5 ♦♦♦*♦*♦♦♦ 

* FXIT TO ♦ 

* SFPDE2 * 

* ROUTINE ♦ 



.X^ A2 ♦ 
* * 

♦ ♦♦* 



NO .♦ END 

..♦. OF LUB 
♦. TABLE 



♦*** 

♦ * 

♦ CI ♦ 

♦ ♦ 
**♦* 



♦**♦* 

♦ MA ♦ 

♦ A4^ 



4c4c*«* l/li:^********* 

♦ sulb" TC^ 

*_*_♦_*_*_♦_*_♦_« 

♦ BUILD PRINT ♦ 

♦ LINE IN * 

♦ BUFFER * 

«4<]tc:(cXc«4c «*««**«♦*« 




X 
**♦* 

♦ * 

♦ A5 ♦ 

♦ * 
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Chart MC. $JOECTLF - LISTIO Stateirent Processcr (Fart 3 of 5> 
Refer to Chart 11. 



♦♦♦♦ 
♦ ♦ 

• A3 * 



UNITS 
UNITSl 

♦SKIPLN KB* 

♦_♦_♦_*-♦-*_♦_♦_♦ 

♦ PRINT A BLANK *X. 
♦LINE TO EFFECT ♦ 

* A SKIP *A4 ♦ 



♦♦♦♦*Bl********** 

♦PSHRTN TD* 

♦BUILD PHYSICAL ♦ 
♦UNIT HEADER IN ♦ 
♦ BUFFER ♦ 
4i«4>«4i^4>««^ ♦♦*♦♦♦« 



♦OUTPUTS MO^ 

♦ PRINT HEADER ♦ 

♦ FROM BUFFER ♦ 

♦ SPACE 1 L INE ♦ 



^^"•'♦♦Dl^^^ ♦♦♦♦♦♦♦ 

♦ ♦ 

♦ LOAD PUB ♦ 

♦ ADDRESS IN ♦ 

♦ WRKRG3 ♦ 

♦ ♦ 



♦ ♦ 

♦ UNITS ♦ 

♦ ♦ 
^^^^(♦♦♦♦♦4>4<«**« 



♦ MOVE UA TO ♦ 

♦ OUTPUT BUFFER ♦ 

♦ +23 ♦ 

♦ * 
***************** 



♦ B3 ♦.X 



**** 
UNITS402 

*****Q-i*tt******** 
♦GETLAN KA^ 
♦_♦_♦_♦_♦_♦_♦_♦-♦ 

♦ COMPUTE LUB ♦ 
♦ADDRESS AND NO.^ 

♦ IN CLASS ♦ 
*,ti******if******** 



UNITS5 

««4t««C3 ♦♦♦♦♦♦♦♦♦♦ 
♦SFPPE MR^ 

♦SCAN LUB TABLE ♦ 

♦ FOR EQUAL PUB ♦ 

♦ POINTERS ♦ 

*:l^ilt************** 



UNITS501 X 

*****li^********** 
♦CLEAR TEMPORARY^ 

♦ FIELDSt THODE ♦ 

♦ AND TCMNT, IN ♦ 

♦ TRANSIENT ♦ 

♦ AREA TO BLANKS ♦ 
******,!,********** 



**** 

♦MO ♦ 

♦ Kl ♦.X 



♦ ♦♦♦ 
UNnS401 

*****£l********** 

♦ CALCULATE PTR ♦ 

♦ TO BG SYSTEM ♦ 
..X* CLASS USING ♦ 

♦FIK ur CURkfcNi * 

, ♦ PARTITION ♦ 

^ ****************if 

**** 



*****f i*********i), 

♦ MOVE PUB ♦ 

♦ ADDRESS TO ♦ 

♦ TRANSIENT ♦ 

♦ AREA LOC ♦ 

♦ TPUBADD ♦ 
***************** 



UNITS9 .♦. 


X 




D3 ♦. 


*****Qi^*********:tl 




.♦ ♦. 


♦PUIF TA^ 




.♦ END ♦. YES 


*-♦_*_♦_*_*_#-*-* 


NO 


♦. OF ...... 


♦ BUILD PRINT ♦ 




♦. LUB .♦ 


♦ LINE IN WORK ♦ 




♦ . .♦ 


♦ AREA ♦ 




♦ . .♦ X 


^:*****ti********** 


X 


♦ fgO **** 




♦ *** 


* * 




♦ i 


♦ A5 ♦ 




♦ B3 ' 


♦ ♦ 




* ' 


**♦♦ 




**** 


X 


X 




*****^^********** 


*****^^********** 




* COMPUTE TLUN, ♦ 


♦ MOVE CHANNEL ♦ 




♦ LOGICAL UNIT ♦ 


♦ AND UNIT TO ♦ 




♦ NUMBER WITHIN ♦ 


♦ BUFFER FROM ♦ 




-^ LJS CLASS " 


iTCK^vL *,\'C TL^'^IT* 





UNITS6 X 

*****(^^********** 
♦ADD ONE TO NUJ-* 
♦BER OF PARTIT- ♦ 

♦ IONS AND MULT ♦ 

♦ BY ♦ 

♦ X»10« ♦ 
***************** 



*****f^^ ********** 

♦ * 

♦ LOAD VALUE ♦ 

♦ CALCULATED * 

♦ IN WRKRG3 * 

♦ * 
***************** 



*****C5 ********** 

* * 
♦CALCULATE STOP * 

♦ VALUE FOR LUB ♦ 

♦ SCAN IN WRKRG3 ♦ 

* * 
***************** 



END 

OF 

LUBS 



Gl ♦. 




♦ . 




END ♦ 


YES 


OF 


♦ . ••• 


PUBS .♦ 




.♦ 




♦ . •♦ 


X 


♦ NO 


***** 




♦MA ♦ 


. 


♦ A4^ 



IS 

DEVICE 

DOWN 



.♦ 
♦. SINGLE 
♦. ENTRY 



*****fi^l********** 
♦TXCUU3 MQ^ 

♦ COMPUTE PUB ♦ 

♦ POINTER IN ♦ 

♦ NEWLUB ♦ 
***************** 



»X* 



TS3 

**iti**HZ****'*'*'*t*** 
♦PUIF TA^ 

■ ♦-♦-♦-♦^♦-♦-*_* 
BUILD PRINT ♦ 

* LINE IN ♦ 

♦ WORKAREA ♦ 
***************** 



4t«««*J2 ♦♦♦♦♦♦♦♦♦♦ 

♦ SEVOB TC^ 
*_♦_♦_♦_♦_♦_♦-*_* 

♦ BUILD PRINT ♦ 

♦ LINE IN ♦ 

♦ BUFFER ♦ 



******:tf******** 



*****fi********** 

♦ PUIF TA^ 

♦ BUILD PRINT ♦ 

♦ LINE IN WORK ♦ 

♦ AREA ♦ 
******* iifi******if** 



«^«**G3 ♦♦♦♦♦♦♦♦♦♦ 
♦SEVOB TC^ 

*_«_♦_*_♦_*_♦_♦_* 

♦ BUILD PRINT ♦ 

♦ LINE IN ♦ 

♦ BUFFER ♦ 

iit*i«it****if********* 



*****i^-i********** 

♦ OUTPUT 1 MQ+ 
♦-♦_♦-♦_♦_♦-♦-♦-♦ 
♦PRINT ONE LINE ♦ 

♦ FROM ♦ 

♦ BUFFER ♦ 
*******i^********* 



*****j^********** 

♦ LOAD LINKR2 ♦ 

♦ WITH THE ADDR ♦ 
♦UNITS9 TO CTRL ♦ 

♦ RETURN FROM ♦ 

♦ SFPPE ♦ 



***********ilHli:ts**ili 



♦ PRINTl LINE ♦ 

♦ FROM ♦ 

♦ BUFFER ♦ 

*iiii*************** 



UNITS8 A 

if****\^i^********** 

♦ INCR PUB ADDR ♦ 

♦ IN WRKRG3 BY ♦ 

♦ 8 TO POINT ♦ 

♦ NEXT PUB ♦ 

♦ ♦ 
***************** 



**** 

♦ * 

♦ El ♦ 

♦ * 
♦ **♦ 



««««*K2 ********** 
♦OUTPUTl MQ^ 

♦PRINT ONE LINE ♦ 

♦ FROM ♦ 

♦ BUFFER ♦ 
***************** 


X 
***«K3^*^**^^^^ 

♦ EXIT TO 

♦ SFPPE 

♦ ROUTINE 
*it*****m******* 


X 

♦♦*♦ 

♦ * 

♦ C4 ♦ 

♦ ♦ 
♦♦*♦ 





Charts 171 



Chart MD, $JOECTLF - IISTIC Statement Processor (Fart 4 of 
Refer to Chart 11. 



5) 



L lOCUU 

♦ RESTORE REG 

♦ POINTl FROM 

♦ WRKFLD3, 

♦ -POINTS TO 

♦ HEX CUU- * 



♦ X. 



* * 

* LIOCUU ♦ 

* * 



♦TXCUU MO* 

»_:((_♦_♦_*_*_♦_*_♦ 

♦ GET DEV TYPE, * 

♦ PUB ADDR, AND * 

♦ PUB POINTER ♦ 



♦SKIPLN KB* 

* PRINT A BLANK * 
*LINE TO EFFECT * 

* A LINE SKIP * 



4c«*4<>tt01********** 

*PSHPTN TO* 
♦_*_♦_♦_♦_ ♦-♦_4t_* 
*8UIL0 PHYSICAL * 

* UNIT HEADER ♦ 

* IN BUFFER * 
«4<:((4>4t*«**** ****** 



*OUTPUTS MQ* 

* PRINT HEADER * 

* FROM BUFFER * 

* SPACE I LINE * 

« * * )tc « :(c )tc « Xt « 4c 3|t 4c * 4c « 4c 



«4<***F1********** 

♦ LOAD PUB * 

♦ ADDR IN * 

♦ WRKRG3 * 

♦ ♦ 

♦ ♦ 
«i4(«4e*****4i*4c***** 



4i4<***Gl ********** 

* MOVE PUBt * 

* 8 BYTES, TO * 

* WRKFLD2 * 

* *K2 * 

* ♦ 
4i4>*****«*4c4c*****4< 



4t4c4i**Hl********** 

* MOVE END OF * 

* PUB FLAG TO * 

* WRKFLD3 * 

* *K2 ♦ 

4c4t«***4c4<********* 



♦♦***J l*4c*******4' 

* LOAD REG * 

* WRKRG3 AS * 

* POINTER TO * 

* WRKFLD * 

* *K2 * 

4c 4c**4c*4c4i«4e ******* 



4c4cKl******* 
*SET SWITCH * 

* UNSW ON TO * 
UNOICATE SINGLE* 

♦ ARGUMENT * 
* * 

4c4c*4<***4'*** 



****A3********* 

*< * 

* LIOSYX * 

* * 
4c4c4<**********4'* 



LIOSYX 

4c4tB3******* 
SET LIOSW ON* 

* INDICATES * 
* LIST I/O IN 

* PROCESS * 
* * 

4c4<4c****4>*** 



4c4<***C 3**** ****** 

* RESTORE REG * 

* POINTl AS * 

* POINTER TO * 
*SYSXXX OPERAND * 

* * 

4c4'4<4<***4i4t*******4c 



4c 4< 4c 4c 4c03 ********** 
♦SYSXXX KK* 

4,_4<_4,_4c_4,_4t-4t_4c_4c 

* CHECK XXX AND * 

* GET SYMBOLIC * 
♦UNIT ADDRESS*C4* 
4c4<4c4c4>*********4<** 



IS 

UNIT 
SYSIN 



IS 

UNIT 
SYSOUT 



*4<*** 

*MN * 
* E4* 



X ILUS 

4c*G3******* 

*SET PROGSW * 

ON TO INDICATE* 

* PROGRAMMER * 

* UNIT * 

* * 

4c 4c 4c******** 



*K2 
WRKFLD2 AND WRKFLD3 ARE CONTIGUOUS. WHEN 
LOADED IN THIS MANNER THEY SIMULATE THE 
LAST PUB IN THE PUB TABLE. WRKFL03 IS 
LOADED TO POINT TO THE PUB IN WRKFLD2 
INSTEAD OF THE PUB IN THE PUB TABLE. 



. UNITS401 
X 
***** 

♦ MC * 

* El* 
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Chart ME. $JOBCTLF - IISTIC Statenent Prccesscr (Part 5 cf 5) 
Befer to Chart 11. 



* A4 * 

♦ ♦ 



♦ ♦ 

* UA ♦ 



_♦_♦_♦_♦_ ♦_*_#_♦ 

* PRINT A BLANK ♦ 
*LINE TO EFFECT * 

♦ A LINE SKIP ♦ 



* * 
♦MOVE UA HEADING* 

* TO BUFFER + 6 ♦ 

* -17 BYTES- ♦ 

* ♦ 



* IN IT REG ♦ 

* POINT I TO * 

* BRANCH TO TESTl* 

* FOR UA * 

* PROCESSING * 



♦ ♦ 

♦ DOWN ♦ 

4> * 



DOWN 

!tim***B3********** 
♦SKIPLIN KB* 

♦_♦_♦_*-♦_♦-♦_♦ _♦ 

♦ PRINT A BLANK * 
♦LINE TO EFFECT ♦ 

* A LINE SKIP * 
^^^^•^^^[^^'♦♦♦♦♦♦O 



^^(♦♦♦C3*^^^**^**^ 

♦ ♦ 

♦ MOVE DOWN ♦ 

♦ HEADER TO ♦ 

♦ BUFFER + 6 * 

♦ -12 BYTES- ♦ 
***«♦*♦**♦♦♦♦**** 



UADN5 X 

*4t***A4^^*^*^*^** 

* SAVE CURRENT ♦ 

* PUB ADDRESS ♦ 

* IN TRANSIENT * 

* AREA LOCATION ♦ 

* TPUBAOD * 
««*«♦«**«******** 



♦ LOAD WRKRG3 * 

♦ WITH SYSLOG * 

♦ LUB POINTER * 

♦ HEX 08 * 

♦ * 



««4t4c*C4*****^^^** 
*CHKAS6 6U ♦ 
♦-*-*-♦-*-*-♦-♦-♦ 

* GET SYSLOG * 

* PUBADDR IN * 

* WRKRG4 * 



X 


X 

.*• 


4i**4'«D3***^^*^^** 


D4 *. 


♦ * 


.* * 


♦INIT REG POINTl* 


.♦IS CURRENT 


* TO BRANCH TO ♦ 


♦ . PUB SYSLOG 


♦ TEST2 FOR ♦ 


♦ , 


♦DOWN PROCESSING* 


*. .* 


^^^t^************* 


♦ . •♦ 



UADNl X 

♦OUTPUTS MQ^ 

♦-♦-♦-♦-♦-♦-♦-♦-♦ 

♦ PRINT HEADER * 

♦ SPACE 1 LINE ♦ 



♦ ♦ 
♦MOVE SUB HEADERS 
♦TO BUFFER + 10 ♦ 

♦ -14 BYTES- * 

♦ * 
^^^^^♦^(♦♦♦♦♦♦♦♦♦♦* 



4(*4>^*G !♦♦♦♦♦♦♦♦♦* 
♦OUTPUTS MQ* 

♦-♦-♦-♦-♦-*-♦-♦-* 
♦PRINT SUBHEADER* 

♦ FROM BUFFER. ♦ 

♦ SPACE 1 LINE ♦ 

^t^^c^^c^^^********* 



*«*4i4cHl********** 

* MOVE * 

* **NONE** * 
*T0 BUFFER + 11 * 



**«4i*«**«***4c**«* 



* LOAD PUB * 

* ADDR IN * 

* REGISTER * 

* P0INT2 * 
^^^ti^^if ********** 



♦*♦* 

♦ ♦ 

* E5 ♦ 



* * 

* LOAD CURRENT * 

* PUB ADDR IN * 

* - . -- ^ 
*1ii**********iti***itt 



* !NCR PUB * 

* POINTER BY * 

* g TO POT NT * 

* NFXT PUB * 
****************iti 



F3 *. 

,* ♦, 

.*PROCESSING *. 

. UA OR DOWN . 



F4 



** 



IS 

PUB 
DOWN 



UADN6 

*4>4e**H3 ********** 

♦ PUIF TA* 
♦-.♦_♦_*_♦_♦-♦-♦-♦ 

* BUILD A PRINT * 

* LINE IN WORK * 

♦ AREA * 
***************** 



*****j-i******inn*^ 

* CLEAR BUFFER. ♦ 

* MOVE CHAN AND * 
♦UNIT TO BUFFER * 

* FROM TCHNL * 

* TUNIT * 
**************^** 



*****\i{2>********** 
*0UTPUT1 MQ* 

*PRINT ONE LINE * 

* FROM * 

* BUFFER * 

*******^iitiit:^f:t^1tt**** 



.X.X.. 

X 

**** 

* * 

* E5 ♦ 

* ♦ 

♦*♦* 



END ♦ 
OF PUB 
. TABLE .♦ 

*. .* 
*. .* 
* YES 



.* HAVE ANY 
. UNITS BEEN 
*. LISTED . 



**«4c*H4********** 
*OUTPUT MQ* 
♦_♦_♦_♦_♦_*-*-♦-♦ 

* PRINT LINE * 

* FROM BUFFER * 

* *»NONE** * 
***************** 



*G5 
REG-POINTl- 
HAS ADDRESS OF 
TESTl IF 
PR0C6SSING-UA, 
OR ADDRESS OF 
TEST2 IF 
PROCESSING-DOWN-. 



♦♦*♦* 

♦MA * 
♦ A4* 
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Chart MF. $JOECTLF - RESET Stateirent Processor (Part 1 of 2) 
Refer to Chart 11. 



♦ RESET ♦ 

* ♦ 



RESET 

♦ INITL MO* 
♦_♦_♦_♦_♦_♦_*_*_* 

♦ INIT FOR * 

♦ SELF ♦ 

♦ RELOCATION * 



* ZERO WRKRGl * 

* -LUB COUNT- * 

* EO * 

* SYS CLASS * 

* ♦ 



4(iti]tt*4t01***«***«** 
♦SCANR2 GK* 

♦ POINT * 

♦ TO * 

♦ OPERAND * 



El *. 

.* ♦. 

♦DID A BLANK*. 

END THE .* 
*. SCAN .* 

*. .* 



♦♦♦♦ 

* * 

* B2 * 

* * 
**♦* 



IS 

OPERAND 
ALL 



*INCR LUB COUNT ♦ 
*BY 1 IN WRKRGl * 

* -VALUE EQ 1- * 

* ♦ 

4e«*«««4«4<4' 41 «[****« 



IS *. 

OPERAND .* 

SYS .* 



YES 



* * 

* SAVE POINTl, * 

* POINTER TO * 

* OPERAND, * 

* IN P0INT2 * 



]|c«4t*«GI********** 

* ♦ 

* SET POINTl * 

* FOR SYSTEM * 

* CLASS -0- * 

* * 

«)(c4ci(c««««*4c******4< 

t **** 

♦ * 
•,X* B2 * 

* * 
*♦♦* 



4c:|c4c4cHl*** ****** 

♦ BRANCH TO * 

♦ NVSERR IN * 

♦ SJOBCTLA * 
«4t**4t4>********* 



4t 4<3|c«« Q3 He* 4i3t( 4c **4t 3t< « 

* SET POINT! * 

* FOR ♦ 

* PROGRAMMER * 

* CLASS -I* * 

* * 

«4c*«*«4c4(***«**4e** 



RESET015 X 

4:«i«««E2********** 

*INCR LUB COUNT ♦ 
*BY IRESETllRGl * 

* -VALUE EQUALS * 

* 1 * 

* OR 2. * 
4c4<«4t«4<*««******** 



♦ ♦♦*♦ 
*MG * 

* Bl* 



IS 

OPERAND 
PROG 



4c>i<B4******* 
* ASSUME * 

* SINGLE ♦ 
* OPERAND, SYS 

* XXX. SET * 
♦PROG SW ON.* 

4c*!|(*4"(t«:***4t 



4c«***C4********** 

♦RESTORE POINTl * 

* TO POINT ♦ 

* TO OPERAND * 

* SYSXXX * 

* * 



4i*4c**D4********** 
♦SYSXXX KK^ 

♦-*-*-*-♦—♦—*-♦-♦ 

* CHECK XXX; * 

* GET SYMBOLIC * 

* UNIT ADDRESS * 



.*IS OPERAND 
c. SYSIN OR 
*. SYSOUT . 



X 

♦ MN * 

* E4* 



* POST * 

* MESSAGE * 

* 'IMSND* * 

* * 
«**«4c******4<***4<« 



4c#««H2********* 

* BRANCH TO * 
« CHKCNL IN * 

* SJOBCTLA ♦ 
4i4t*««*4c******** 



«4c4c)|e4eF4*^^****^** 

*TSTPROC KN* 
♦_♦_*_♦_*_*_*_♦-* 

* TEST LANGUAGE * 

* RESTRICTIONS * 

* * 



«****G4********** 

* * 

* SET NO. IN * 

* CLASS, SNICL, * 

* TO A 1. * 
*SINGLE OPERAND * 



4e4c«**H4********^* 

* LOAD SYMBOLIC * 

* UNIT CLASS IN * 

* REG POINTl * 

* FROM LOC ♦ 

* CLAORD * 

^^'♦^♦♦^♦^(♦♦♦♦♦«>)c« 



♦UPDATE SLADD TO^ 

* CURRESETlOl ♦ 

* ADDRESS, SET * 
*LUB COUNT TO 1 * 

* IN WRKRGl * 

*i«e«*«**«»***«*4'«* 



X 
***** 

*MG * 
♦ CI* 
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Chart MG. 



$aOBCTLF 
Refer to 



- RESET Stateitent 
Chart 11. 



Prccesscr (Part 2 cf 2) 



♦♦♦♦ 

* * 

♦ A2 ♦ 



* RESETll ♦ 



**♦* 
*MF * 
* E2 



X 

♦GETLAN KA* 
♦_*_♦_♦_♦_♦_♦_♦_* 

♦ COMPUTE LUB » 

• ADDRESS AND * 

* NO. IN CLASS * 



*MF ♦ 

♦ J4 ♦. 



**** 
RESETlOl 

♦SAVE LUB COUNT * 

* IN LOC COUNT. * 

* SAVE LUGICAL * 

* UNIT CLASS * 

* IN WRKFLDl * 



» SET ♦ 

RESETSW 

ON 

-BLANKl, 

* BIT 7- * 



RESETS X 

*CHKASG GT* 
♦-*-*-*-♦-♦-♦-*-♦ 

♦ COMPUTE LUB * 

♦ ADDR OF * 

♦ SYSLST ♦ 



• * *. 
NO .♦ IS * 
,..*. SYSLST 

♦.ASSIGNED .♦ 



NO .♦ CURRENT 
X..*. LUB EQUAL 
*. SYSLST . 



02 ♦. 

.♦STORED ♦. 
YES .♦ STANDARD 
X..+. ASSIGN EQ 
♦. SYSLST . 

». .♦ 



* El *,X 



*♦♦* 
RESET2 X 

««*#«£ X ♦♦♦♦♦♦♦♦"♦♦ 

* SAVE NO. IN ♦ 

* i.LM;.i> f^ki) u'66 *■ 
♦ADDR IN WRKFL02* 

♦ FROM SLADD ♦ 

♦ AND SNICL * 



«4t*««p ^^♦♦♦^'♦♦♦♦♦^ 
♦SCNLUB KJ* 

♦ _*_♦_*_*_*_♦-.*_* 

♦ MOVE LUB TO * 
♦JIBCHN. UPDATE * 
♦SLADD AND SNICL+ 



♦ ♦*♦ 

X 

4i««««A3 ♦♦♦♦♦♦♦♦♦♦ 

♦ MOVE LUB ADDR ♦ 

♦ TO LJBAO FROM ♦ 

♦ WRKFLD2 FOR ♦ 

♦ TDYDYF DUN- ♦ 

♦ ROUTINE ♦ 



♦-*-♦_*_♦_♦_♦_♦_♦ 

♦ COMPUTE LUB ♦ 

♦ ADDR OF ♦ 

♦ SYSLOG ♦ 



**** 

♦ * 

♦ B4 * 

♦ ♦ 
♦ ♦** 



RESET? X 

♦CHKASG GU ♦ 
♦_♦_♦_♦_♦_♦_♦_♦_♦ 

♦ COMPUTE LUB * 
♦ADDR OF SYSLNK ♦ 

* * 



♦ NO 



*i(:tc*:^^2********** 



^^♦♦♦♦♦♦♦♦#4!«*4<«* 



♦RSTSTD KE+ 

*_♦_♦_♦_*_♦_♦_♦_♦ 

* RESET LUB TO *X. 

* STANDARD ♦ 

* ASSIGNMENT ♦ 



CURRENT 

LUB EQUAL 

. SYSLOG . 



.♦. 

D4 ♦. 

.♦ *. 

CURRENT ♦ 

LUB EQUAL 

. SYSLNK .* 



**** 
X ♦ ♦ 

.X* A2 * 
♦ ♦ 



♦♦♦♦ 

♦ ♦ 

♦ A3 * 

♦ ♦ 
♦»*♦ 



..X^ E5 ♦ 
♦ ♦ 

♦*♦* 

♦ RESET * 

* TEMP. HOPPER ♦ 

♦ ASSIGNMENT ♦X 

♦ TO H2 * 

♦ * 



.♦. 
Jl *. 
.♦ IS ♦. 
,♦ STANDARD 
♦. ASSIGNMENT 
♦ . FOR 

♦ . H2 .♦ 



IS 

IT SYSTEM 

. CLASS . 



^iHlii*****il'******** 



«***«p34c«*««*4<««4> 



4'#***«*4c***«*4c4(*« 



#*4c«*G3^^«^^«^^^« 

♦ MTNCNT GU ♦ 

«_♦_*_♦_*_*_*_♦_* 

♦ PREVENT ♦ 

* I/O ♦ 

* INTERRUPTS * 

#**««*♦#««♦♦«*»♦«: 



♦ NO 



♦♦KI*+^^^^^ 

♦ RESET ♦ 

♦ TEMP. ♦ 
HOPPER ASSIGN *. . 

♦ TO HI ♦ 

♦ * 



♦ CALCULATE * 

♦ BIT POSITION ♦ 

♦ OF NEXT * 

♦ LOGICAL ♦ 

♦ UNIT ♦ 
^^^^^^'♦♦^^'♦♦♦♦♦♦♦♦^ 



I/O ♦. 

PENDING 
.ON SYSLOG. ♦ 



RESETS 

«««*4cJ3 **«*««♦««* 

♦ RESTORE LUB ♦ 
♦POINT. AND COUNTS 

..X+ IN SLADD * 
♦AND SNICL FROM * 

♦ WRKFLD2 ♦ 



X 

.♦. 


*♦♦* , 
RE SE T3 X 


E4 ♦. 


«#«4t*E5 ♦♦♦♦♦♦♦♦♦♦ 


.♦STORED ♦. 


* * 


* e-TM^i^ftftn ^^ vc c 


* . o/>f> WRKRC-i ♦ 


♦; ASSIGN EQ .*,,, 


♦ WITH tJEMAlNtlNG^ 


♦. SYSLNK .* 


♦ LUB COUNT ♦ 


♦ . .♦ 


♦ ♦ 


♦ . .♦ 


41 4i««4t <(«*##* 4c***** 


♦ NO 




RESET6 X 


X 


*4tf:4«3|E4c4e««« 


4c*4<**F5 ♦♦♦♦♦♦♦♦♦♦ 


♦ SET LINK ♦ 


♦ RESTORE ♦ 


♦ OPTION BIT ♦ 


♦ LUniCAL UNIT ♦ 


♦ OFF IN ♦ 


* CLASS IN ♦ 


♦ JBCSWl ♦ 


♦ POT Nil AND ♦ 


♦ BIT ♦ 


♦ INCH BY 1 ♦ 


4c ^^(♦♦♦♦♦^♦^ 


*4e**********«**** 


♦♦♦♦ * 




♦ ♦ .X.......... 




♦ G4 ♦.X. 




♦ * . 




♦*♦♦ 


X 




.♦. 


X 


G5 ♦. 


*^**Q4«4c*4c«*««* 


. * *. 


♦ BRANCH TO ♦ 


NO .♦ PEMAING ♦. 


♦RSTSTDS ROUTINE^ 


...♦. LUB COUNT ,* 


♦ IN SJOBCTLD ♦ 


♦ . EO .♦ 


4c««4[««««]ti4t4t^«*« 


♦ . .* 




X ♦. .* 




♦♦♦♦ * YES 




* * 




♦ Bl ♦ 




* ♦ 




♦ *♦* 



4;***J4********* 

♦ BRANCH TO ♦ 

♦ CONTROL IN ♦ 

♦ *JOBCTLA ♦ 
*************** 



_*_*_*-* 
♦PESET OPEN FLAG^ 

* IN DFBS USING ♦ 

* THIS DEVICE ♦ 

4c**************** 



J5 ♦. 
* * 

DOSW ON 



*****K3***^^^^^^^ 


K4 ♦. 


♦SCNLUB KJ^ 


.♦ END ♦ 


*_*_4t_4!_*_4c-4c_*-* 


.♦OF LOGICAL 


♦ MOVE LUB TO ♦.... 


. . . . X+ . UN I T 


♦JIBCHN. UPDATE ♦ 


♦. CLASS 


♦SLADD AND SNICL^ 


♦ . .♦ 


***************** 


♦ . .♦ 



4c***K<S ********* 

♦ * 
*RETURN TO DVCDN+ 

* ROUTINE ♦ 
*************4i* 



**** 

* * 

* El ♦ 

* * 
**** 
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Chart MH, $JOECTLF - EVCDN Stateirent Processor (Part 1 of 2) 
Refer to Chart 11. 



****A1********* 
* DVCON ♦ 



DVCDN 

♦INITL MQ* 

♦_♦_♦_♦-♦_♦-*_♦_♦ 

♦ INITIALIZE * 

♦ FOR ♦ 

♦ RELOCATION * 



♦SCANR2 GK* 

♦ POINT TO ♦ 

♦ OPERAND * 

♦ X«CUU' * 



* DID ♦. NO 
BLANK STOP .*. . 
♦. SCAN .* 



*TXCUU MO* 
*_♦_*_*_#-.#„*_:(,_* 

♦GET DEVICE TYPE* 

♦ PUB ADDRESS, * 

* + PUB POINTER ♦ 

* ♦*♦♦ 



***♦ 

Hc^i^^E^Fl ********** 

♦ GET PUB ♦ 

POINTER ♦ 

FOR * 

SYSLOG IN * 

» WRKRG3 * 



4(*«*«B2********** 

* * 

* UNASSIGN * 

* SYSLOG. * 

* -FF TO BYTE * 

* OF LUB- * 

♦*** 



* C2 *.X 



♦*** 
DVCDN14 X 

««««*C2 ********** 

* GET PUB PTR * 

* FOR * 

* SYSLST * 

* IN * 

* WRKRG3 * 
t^t**** *********** 



:((4>)tt««Q2********** 

*CHKASG GU * 
♦_ ♦_ ♦_♦_♦_♦_♦_♦_♦ 

* CHECK ♦ 

* SYSLST * 

* ASSIGNMENT * 



.X* 



♦_♦_♦_*_♦_*_ 

* CHECK * 

* SYSLOG * 

* ASSIGNMENT * 



F2 *. 
.*OPERAND*. 
YES .* EQUAL TO *. 
...*. SYSLST .* 
♦. DEVICE .♦ 



DVCDNI-VA 

♦♦♦**G2********** 
♦LSTOUT 6J* 

♦_♦_*_♦_♦_*_*-.*_♦ 

* LOG * 

* ON * 

* SYSLOG * 
^it'*************** 



DVC0N14B 

♦♦♦♦*H2 *♦*♦♦**♦♦* 

*LOGOUT GJ* 

*, NO ♦_♦_♦_♦_♦_«_*_♦_♦ 

* LOG * 

* ON * 

* SYSLOG * 



Jl *. 

.♦OPERAND*. 
.* EQUAL TO 
SYSLOG 
*. DEVICE 



.* 



♦*** 

* B2 

* * 
***** 



***** 
* 
Kl * 



♦ ♦** 

♦ * 

♦ C2 * 

♦ * 



:|c««4:*J2********** 

* SET LINKRl * 

* TO EXIT FROM * 

* DVCDN3 TO * 

* DVC0N4 * 

* * 



««4c4cK I********* 

* BRANCH TO * 

* NVSERR IN * 

* SJOBCTLA * 



* ♦ 

* B3 * 

* * 
**** 



«**i|e4(B3 ********** 

*DVCDN3 MH* 
*_♦_*_♦_«_#_♦_*_♦ 

* BUILD COUNT * 

* CONTROL FOR * 
*LUB TBL SEARCH * 

:(c«4e4c«***««4i*««*** 



DVCDN4 
0VCDN2 X 

*L06CHK GL* 
♦_#_♦_*_*_*_*_*_* 

* SET SYSLOG * 
*ASSIGNMENT SWS * 

* IN COMREG * 



3|( 4c 4t*:«D3 ********** 

* MOVE MS G * 

* IIIOI TO ♦ 

* OUTPUT * 

* BUFFER * 

* * 

****illi*ilHtL****^C>tf**!ki 



4(«4t«9(cE3 ********** 
♦MSGOUT GJ* 

*OUTPUT RELEASE * 

* MSG ON * 

* SYSLOG * 

^^(♦♦♦♦♦♦^♦♦♦^I'lc*** 



*j/^***f^********** 



^iii**^C*^i3t'********* 



::^:ii***Q2***:^****** 

*MSGOUT GJ* 

* SKIP ONE * 

* LINE * 

* ON SYSLOG * 



*0VCDN3 MH* 

*_*_*_♦_*_*_♦_:)(_* 

* BUILD COUNT * 
♦CONTROL FOR LUB* 
♦TBL FOR SEARCH * 

:ti**************** 



* * 

♦ SET EXIT * 
♦FROM TRANSIENT ♦ 

♦ TO DVCDN5 * 

* ♦ 



♦ SVCBTRNS MA* 
♦_*_♦_*_*_*_*_*_* 

♦ LOAD AND ♦ 

♦ INITIALIZE ♦ 

♦ $$BLSTIO ♦ 
ti**************** 



♦♦*♦ 

* * 

* B4 * 

* * 
**** 



DVCDN5 X 

4<4c*)|c«B4********** 

*MTNCNT GU * 

♦_*_♦_♦_♦_♦_*_ *_* 

* SEIZE * 

* SYSTEM * 

* ♦ G5 ♦ 
« 4c« « * 4(:(c * 4( * 4( « 4c 4> ^^c « 



4e*««4<C4^^******** 

*MOVE THE HEADER* 

* **NONE** TO * 

* OUTPUT BUFFER * 

* ASSUMING NO * 

* ASSIGNMENT ♦ 
*«itt4c4!4c*****«***** 



*^t'**U^********** 

♦ CALCULATE PTR * 

♦ TO BG SYSTEM * 

♦ CLASS USING * 

♦ PIK OF CURRNT * 

♦ PARTITION * 



*****^l^*i)i}le3tt*iiii)t*iit* 

* PUT COUNT * 

* -4 OR 6- FROM * 

* DVCDN3 RTN * 

* REG P0INT2 * 

* * 



i(c !«< 4t 4c 4< p 4 « 4t 4> 9(t 4c =«< >t< 3«e * 4i 

♦GETLAN KA+ 

*_*_♦-*_*_*_♦_♦_♦ 

* COMPUTE LUB * 

* ADDRESS AND * 

* NO. IN CLASS * 

lt!**************** 



«4c4c*A5********* 

* ♦ 

* DVCDN3 * 

* * 
«4c#*4c4< ♦♦««♦««♦* 



DVCDN3 X 

♦ ****B5 ***♦*♦♦♦** 

♦ INITIALIZE ♦ 
♦WRKRGl TO HOLD * 

♦ (NUMBER OF * 
♦PARTITIONS ♦ 2)^ 

♦ ♦ 
«4c*4c 4c 4c*4c4<«4c *««♦«* 



4c4c4c4>4cC5 ********** 
♦INITIALIZE REG.* 

* -POINTl- TO ♦ 

* FOR SYS. CLASS * 

* AND STORE LUB * 

* CNT IN COUNT * 
4t4c« 4c4c*4c 4t4c4c4c «itc4i4c4<^ 



4c 4c 4c 4c05 ♦♦♦♦♦*♦♦* 

♦ RETURN ♦ 

♦ TO ♦ 

♦ CALLER * 
4c 4c 4c 4c «♦**♦**♦«* « 



♦ **4c 
4c * 

♦ E5 ♦... 

* * . 
♦*** X 

.♦. 
E5 



4<4<4c 4c4cF 5 4c 4< 4c4c 4c4c4c4c 4C4C 



4c4c4c4c4c4<4c3(c4c4c4c4>4c4c4c«4c 



*G5 
THE SYSTEM HAS 
BEEN RELEASED 
IN THE SVCBTRNS 
ROUTINE. 



4t_4t_4c_4c-4c-*-^-*-4c 

♦ SCAN LUB TBL ♦ 

♦ FOR EQ PUB ♦ 

♦ ♦HS * 
4c 4c4c4c4c4c « 4c4! >tc4c 4c«*4c * * 



END ♦ 

LUBS THIS 
CLASS .♦ 



4c4c{;5 4c4<4:4c*4c4c 

* * 
♦ TURN OFF 

♦ PUB2 BITS 
♦USED BY OPEN 

* * 
4c4c4c*^«3(c)(c4c4c4c 



4c4c4c4c 
4c 4c 

♦ Fl * 

4c 4c 

♦♦*4c 



**c4t4c4c 

♦ MJ ♦ 

♦ Bl* 



4c 4c4c*4c J 44c**«4c4c4c4c4c* 

♦ DECREMENT * 

♦ COUNT, * 

♦ INCREMENT ♦ 

♦ CLASS ♦ 

♦ * 
4c4c4c4c4<4c*«««^4c4:4c4c*4c 



♦H5 
RETURN ON AN 
EQUAL OR END 
OF TABLE. 



X+ PRINT THE ♦ 

* CONTENTS ♦ 

♦ OF BUFFER ♦ 
4c 4c4e4c4c4c4c4c«<c* 4c4c4c4c4c« 



4c 4c*** 

♦ MJ ♦ 

♦ F5^ 
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Chart MJ. $JOECTLF - DVCDN Stateirent Prccesscr (Part 2 cf 2) 
Refer to Chart 11. 



in**** 

♦MH ♦ 
♦ H4* 



♦♦♦♦A4********* 
« 4> 

* SFPPEOQ * 

♦ ♦ 



DVCDNS X 

♦♦♦♦♦Bl ♦*♦♦♦**♦** 

* MOVE AODR. OF » 

* SYSTEM UNIT * 

* TABLE TO ♦ 

* B-TRANSIENT * 

* $$BLISTIO ♦ 



* CLEAR BUFFER * 

* MOVE HEADER * 

* I/O UNIT TO * 

* BUFFER * 

* ♦ 



* MOVE * 

* -OWNER- * 

* TO * 

* BUFFER * 

* * 
^Hfif^if ************ 



OVCDNC 

*MSGOUT 6J* 

♦-♦^♦-♦_*_*_*_#_# 

♦ PRINT * 

♦ HEADING ♦ 

♦ * 



*****Ql*:ti******1f* 



^t***********it(***'ti 



♦MSGOUT GJ* 

♦_♦_♦_♦_♦_♦_♦-.♦_♦ 

* SKIP * 



*:ilfiii^:HcQ2********** 

* STORE DISP * 

* IN * 

* TLUN IN * 

* TRANSIENT ♦ 

* * 
if^fitim!f ************ 



i)i^i**3)tC_2********** 
*PUIF TA* 

* TRANSLATE AND * 

* CONVERT THE * 
*LUB + PUB INFO * 



*^***Q2********** 

* SET UP BUFFER * 

* WITH LOGICAL * 

* UNIT, COMMENT ♦ 

* AND OWNER * 

* FIELDS * 

****** **1f**:lf**itii)itt 



:ti*^fi^i*£2********** 

♦LOGCHK GL* 

* CHECK SYSL06 * 

* ASSIGNMENT * 

* * 

*:llf**********,ti**** 



*i)iili^i*f:2********** 
♦MSGOUT GJ* 
♦_)►-.♦_«_*_*-«_♦-* 

* VtRITE * 

* THE * 

* MESSAGE * 
**ilf***4***if**i(fif*iti 



♦♦♦**G2 ♦**♦*♦*♦** 
♦SFPPEDQ MJ* 

*_»_*_*_#-.♦_♦-♦_♦ 

♦ DEQUE THIS * 

* ENTRY INLUB ♦ 
♦AND JIB *H4* 



*♦** X 

.*. 

B4 *. 

.♦ LAST ♦. 

CURRENT .* ITEM ALT, *. STORED 

♦ STANDARD, STORED*. 

*0R CURRENT.* STANDARD 
*. *H4 .* 
*. .* 
* ALT 

♦ *** 
*MS * 

* J2 ♦.X. 



* GET POINTER * 

* TO CURRENT * 

* LUB * 

* ♦ 

:ts*ilf1f7t:**ti***,ti***** 



**** 

* * 

* D3 *.X 



**♦* 
UALU81 X 

«4ciO<«4<D3 ********** 

* * 

* UNASSIGN * 

* THE LUB * 
*-FF TO BYTE 0- * 

* ♦ 



«4tE3******* 

* INDICATE * 
PRIMARY EO. ■■ 
-X«80' INTO 

ODSW- 

* *H3 * 

:ti********** 



**** 
SFPPEDQ2 X 

*****C^********** 

* REMOVE ALT. * 
♦ASSIGN FROM JIB* 

* UPDATE JIB * 

* TABLE CHAIN * 

* ♦ 
Ai**************** 



***** 
*MS * 
* Dl* 



X 

♦ *♦** 
*MS * 

* C2* 



DVCONS .._.*. 
NO 



*. 



DVCDN6 

1t****J l;t(*****m*** 

♦CALCULATE DISP * 
♦FROM BEGINNING * 
♦OF CLASS IN LUB+ 

♦ TBL FOR THIS ♦ 

* LUB * 
^^'♦♦♦♦♦^'♦♦♦♦♦♦♦♦^ 



* END 

OF. 

LUBS 

*J3 

*. .* 

*. .* 

* YES 



*i(c*««j2********** 

* INCREMENT * 

* CLASS * 

* DECREMENT * 

* COUNT * 

* * 

tLift********if****** 



*H3 

TO IN&ICATE'fO" 
SFPPE RTN. THAT 
THIS LUB MAY BE 
TEMPORARY AND THERE 
MAY BE A JIB 
ASSIGNED TO THIS 
DEVICE. 



♦ J3 
EXIT FROM SFPPE 
IS ON EITHER EO 
PUB PTR. OR END 
OF LUBS. 



DVCDN7 X 

:lfiit'***fi,********** 

♦GETLAN KA* 

♦_*_♦_♦_♦_*_*_*_♦ 

* COMPUTE LUB * 

* ADDRESS AND * 

* NO. IN CLASS ♦ 



*SFPPE MR* 

♦SCAN FOR EQUAL * 
* PUB OR END OF * 
♦LUB ♦J3^ 

:i^**ii:**^filt*:^***itt*At* 



DEVICE, IT IS 
TEMPORARILY UN- 
ASSIGNED IFF TO 
BYTE OF (J IB}. 
IF THE CURRENT 
ASSIGNMENT (TEMP- 
ORARY OR STANDARD) 
IS ASSIGNED TO 
THIS DEVICE, IT IS 
UNASSIGNED (FF TO 
BYTE OF LUB). 
ANY ALTERNATES 
ASSIGNED TO THIS 
DEVICE ARE REMOVED 
FROM THE JIB TABLE. 



UA STD X 

*****C^ **4i******ti 

* GET POINTER * 

* TO STORED ♦ 

* STANDARD ♦ 

* JIB ♦ 

* ♦ 

:ti*Ati^*isitii^*Ht**ili**:ti* 



*3|c4c4<4i05 ***♦♦**♦♦♦ 

♦ UNASSIGN ♦ 

♦ THF STORED ♦ 

♦ LUB IN JIB ♦ 

♦ -FF TO BYTE ♦ 

♦ OF JIB- ♦ 
***************** 



**** 

* * 

* 03 ♦ 

* ♦ 

♦♦** 

* * 

* F5 ♦ 

* * 



**** 

* J5 



IS 

DEVICE 

TAPE 



.* IS *. YES 
♦DEVICE ALREADY.*... 
*, DOWN .♦ 



«4e«^*H5 ********** 

♦ * 

♦ RESTORE ♦ 

♦ MODE ♦ 

♦ OF TAPE * 

♦ ♦ 



*****j^********** 
♦MOVE X«00« INTO^ 

♦ JOB CTL FLAG ♦ 

♦ OF PUB TO ♦ 

♦ INDICATE ♦ 

♦ DEVICE DOWN ♦ 
***************** 



♦♦♦♦ 

♦ * 

♦ F5 ♦ 

♦ * 
♦♦♦♦ 



♦♦*♦ 

♦ ♦ 

♦ F4 ♦ 

♦ ♦ 
♦♦♦* 



:gc«««*K'5 ********** 
♦RESET OWNERSHIPS 
♦BITS IN CORRES-^ 
♦PONDING OWNER-^ 

♦ SHIO TABLE ♦ 

♦ ENTRY ♦ 
***************** 



***** 

♦ MA ♦ 

♦ Mt* 
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Chart MK. $JOECTLF • KAP Coirir.and Processor (Part 1 of 
Refer to Chart 11, 



2) 



****M********* 



4t *« «4c4c «4< «« «« ♦ ♦ * 



MAP X 

* CLEAR I/O ♦ 
♦BUFFER AND MOVE* 

* MAP HEADER * 

♦ INTO OUTPUT * 

♦ BUFFER * 



««**4cCl********** 
♦MSGOUT GJ * 

*_*_*_♦_♦_♦_♦_♦_♦ 

♦ OUTPUT * 

♦ MAP HEADER ♦ 

♦ * 



itf****Ol*:ti******** 



««*:««4e««««««4e*««« 



♦MSGOUT GJ ♦ 

♦ SKIP ♦ 

♦ ONE ♦ 

♦ LINE ♦ 



♦♦♦**A2 ♦♦♦♦**♦♦♦♦ 

♦ * 
♦MOVE CONVERTED ♦ 
♦VALUE TO OUTPUT* 

♦ BUFFER ♦ 



♦ INITIALIZE ♦ 

♦ P0INT4 - NUM- ♦ 

♦ BER OF PARTS. ♦ 

♦ P0INT2- BOUN- * 

♦ DAP Y BOX ♦ 



♦CNVBCD MQ ♦ 
♦_*_♦_*_♦_*_♦_*_♦ 

♦ CONVERT START ♦ 

♦ ADDR. OF PROG ♦ 

♦ TO EBCDIC * 



♦ ♦ 

♦MOVE CONVERTED ♦ 
♦VALUE TO OUTPUT+ 

♦ BUFFER ♦ 

♦ * 



♦_*_*_♦_♦-*_♦_*_♦ 

♦ CONVERT BEGIN ♦ 

♦ OF VIRTUAL ♦ 

♦ ADDRESS AREA ♦ 

4c4c«***««4c <:*««♦♦♦* 



♦ 
♦* 


♦ 
***%«**♦♦♦♦♦♦♦♦ 


♦♦♦* 

♦ ♦ 

♦ B3 ♦ 

♦ ♦ 
♦♦♦♦ 


♦♦ 

♦ 

♦ 

♦ 

* 


X 

MOVE SUPER- ♦ 

VISOR ID ♦ 

INTO OUTPUT ♦ 

AREA ♦ 


X 

**:«> 4c* B3 ♦♦♦♦♦♦♦♦♦♦ 

♦ PUT UPPER ♦ 

♦ PUT BUFFER * 



4c«]»[«4<4<*«**^*****^ 



* C2 *.X 



♦♦♦♦ 
STUCRL X 

4c««4c4tC 2 ♦♦♦♦♦♦♦♦♦♦ 
♦MSGOUT GJ* 

♦_♦_♦- :»_♦_♦_♦_*_♦ 

♦ WRITE ♦ 

♦ PREVIOUS * 

♦ LINE ♦ 
i«(«4t*4c^ ♦♦«♦♦**♦*«♦ 



♦♦♦**D2 ♦*♦*♦**♦** 

♦ UPDATE ♦ 

♦ PIB-POINTER ♦ 

♦ AND B-BOX ♦ 

♦ POINTER ♦ 

♦ ♦ 
4c ^^^■♦♦^ ♦♦♦♦♦♦♦♦♦♦♦ 



4i4<:4c#«E2 *♦♦*♦♦♦♦♦♦ 

♦CNVBCD MQ^ 

♦_*_* ♦_♦_♦_♦_♦_♦ 

♦ CONVERT END ♦ 

♦ OF * 
♦REAL PARTITION * 

«4ci(c«4(4c**^**^«^#«* 



4c 4c*^*G2 ♦*♦♦♦♦♦♦*♦ 

* CALCULATE ♦ 

* SIZE OF * 

* CURRENT REAL * 

* IN MULTIPLES ♦ 

* OF IK BLOCKS ♦ 
4c ^^♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



4c 4c 41 4c 4cH2 ♦***♦♦*♦♦♦ 
♦CNVBCD MO* 

4c_ 4e-4c- 4C-4C- ♦-4c-^-* 

* CONVERT REAL * 
♦PARTITION SIZE * 

♦ TO EBCDIC * 
4c4c4<***^^^*^*^^*^^ 



4c4c*4c4c J2 ♦4t + ^+^+^+^ 

* MOVE NUMBER * 

* OF IK BLOCKS * 

* INTO OUTPUT * 

* BUFFER * 

* * 

4c 4c 4< 4: 4c 4c 4< 4c 4c 4< 4^414: 4c 4c 4c 4c 



4c_4c-4c- *-4c-4c-^-+-^ 

♦ CONVERT UPPER ♦ 

♦ LIMIT OF ♦ 

♦ VIRT PARTITION ♦ 
4c 4c 4c 4c^^^*^^^*^^^^^ 



4>4c4c4c4c4c4c4c4c*^^**^*# 



4c4i^4c4:C3 *4c*^*^*^* + 

* CALCULATE * 

* SIZE OF VIRTU * 

* AL PARTITION * 

* IN MULTIPLES * 

* OF IK BLOCKS * 
4c4c4c4c^^^^4c4c4c4c^*^«* 



4t4c4c4c4c03^^^^****** 
♦CNVBCD MQ* 
4! _4c_4c-4c-4c -♦-♦ -4c-4c 
♦CONVERT NUMBER * 
* OF IK VIRTUAL ♦ 
♦BLOCK TO EBCDIC^ 

4c4c4(^4c^^4c4c*^^^*^^^ 



4c 4c 4c 4c 4cE3 ♦♦♦♦♦♦♦♦*♦ 

* MOVE NUMBER * 

* OF VIRTUAL * 

* BLOCKS INTO ♦ 

* OUTPUT BUFFER * 

* ♦ 

4c4c« 4C4C4C4C ♦♦ ♦♦ 4c ♦4c«c 4< ♦ 



IS 

AREA 
ACTIVE 



4c4<***C<<t********** 

♦ MOVE -V- * 

♦ TO INDICATE * 

♦ VIRTUAL * 

♦ PARTITION * 

♦ RUNNING ♦ 

4c4<«*4c^«4c4<4i4c4c^^4>*# 



04 ♦. 
.♦ IS ♦. 

.* PARTITION *. 

RUNNING 
*. VIRTUAL .* 



* INDICICATE PEAL* 

* PARTITION * 

* RUNNING * 
4c4:^4c4c^^4c*^4c4c*^4c^4c 



4c4c«4c4cFl^^******^^ 


4c 4c*4c4cF2 ♦♦******** 


F3 *. 


♦ INIT ALIZE ♦ 


* MOVE UPPER * 


.* IS *. 


♦ POINT - PIB ♦ 


* LIMIT INTO * 


.♦ MULTIPLE 


♦ STAR- ADDR ♦ 


* OUTPUT ♦ 


*. TIMER SUPPOR 


♦ WRKRGl- START ♦ 


♦ BUFFER ♦ 


*. TED 


♦OF PROBL. PROG.^ 


♦ ♦ 


*. .♦ 


4c4c4c^^^4c*«****^^^^ 


4c4c4c^4c^*^4c^4c4c4c4c4c4c4c 


*. .* 



4«4cG3***+*** 

* SET * 

♦ MULTIPLE 
TIMER SWITCH 

* -MTSUP- 

♦ ♦ 

4c4c4c*^4c^t*^^ 



F4 ♦. 

.* DOES ♦. 
.* AR BELONG 

TO THIS 
♦.PARTITION. 



4c ^^♦♦G^********** 

♦ GET PROGRAM * 

♦ NAME FROM * 

♦ LOGICAL * 

♦ TRANSIENT * 

♦ BUCKET * 



4i 4c 4c««G5 ********♦♦ 

* GET PROGRAM * 

* NAME FROM * 

* PARTITION * 

* SAVE AREA * 

* ♦ 
4c4c4c4c*4c«*«*4c^*4c4c*4c 



,* HAS *. 
.* THIS PAR- *. NO 
.X*.TITION TIMER .♦... 
*. SUPPORT .* 



4c 4c 4c 4c 4c J3 ********** 

* MOVE -T- * 

* TO INDICATE * 

* TIMER * 

* SUPPORT * 

* * 

4c 4c 4c 4c 4c ♦4c 4c4c 4c ♦ 4c ♦4c * 4c 4c 



4c 4: 4: 4c 4cH<S ********** 


* 


MOVE 




♦ 


PROGRAM 




4c 


NAME INTO 




♦ 


OUTPUT 




♦ 


BUFFER 




4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c*4c 


*** 


♦ 4c 4c* 






♦ 


* 






4c 


J5 *. X 






♦ 


* 






4c 4c 4c* 






STUSPC X 




*****J5 ********** 


* 


MOVE 


* 


* 


PARTITION 


* 


* 


TO TO OUT- 


* 


* 


PUT B 


JFFER 


* 



NOTIMER X 

*****K3 ********** 

* MOVE -I- * 

* TO INDICATE * 

* INACTIVE * 

* PARTITION * 

* * 
***************** 



***************** 



.* ALL 
. PARTITIONS 
*. PROCESSED. 



***** 

♦ ML ♦ 

* Al* 
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Chart ML. $JOECTLF - Map Coiritiand Processor (Part 2 of 
Befer to Chart 11. 



2) and DVCUF Statement Processor 



♦♦♦♦* 

*MK * 
♦ K5* 



♦MSGOUT GJ* 
♦-♦-♦-♦_♦-*_♦_♦-♦ 

♦ WRITE FI * 

♦ LINE * 

♦ * 



♦ * 

♦ EDIT SVA SIZE * 
♦AND END ADDRESS^ 

♦ IN OUTPUT ♦ 

♦ ♦ 



****«D !♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ INDICATE ♦ 

♦ ACTIVE STATE ♦ 

♦ IN OUTPUT ♦ 

♦ * 



♦**#A2 ♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ DVCUP ♦ 

♦ * 



DVCUP 

*«4t*3(cB2 ♦♦♦♦♦*♦♦♦* 
♦INITL M0+ 

♦_♦_*_♦_♦_♦_♦_♦_* 

♦ INITIALIZE ♦ 

♦ FOR ♦ 

♦ RELOCATION ♦ 



««««4tC2 ♦♦♦♦♦♦♦♦♦♦ 

♦SCANR2 GK^ 

♦-♦-*-♦-♦-♦-♦-♦-♦ 

♦ POINT TO ♦ 

♦ OPERAND ♦ 

♦ X'CUU* ♦ 



D2 *. 
♦ DID ♦. 
A BLANK ♦. NO 
END THE .♦... 

SCAN .♦ 



♦♦«♦ 

♦ ♦ 

♦ 83 ♦ 



♦MODIFY JOB ♦ 

♦CONTROL FLAG ♦ 

♦ IN PUB TO ♦ 

♦ INDICATE ♦ 

♦ STD MODE ♦ 



* * 

* C3 ♦.X 



♦ BRANCH TO ♦ 

♦ CONTROL IN ♦ 

♦ SJOBCTLA * 



♦♦♦♦D3^^ ♦♦♦♦♦♦♦ 

♦ BRANCH TO ♦ 

♦ NVSERR IN ♦ 

♦ SJOBCTLA ♦ 



♦-.*_♦_♦_♦_*_♦_♦_♦ 



^^^^^^^^(♦♦♦♦♦♦♦♦* 



* * 

* EDIT 6ETVIS ♦ 

• SIZE AND ♦ 
» END ADDRESS ♦ 

♦ IN OUTPUT ♦ 



4i«*«*G !♦♦♦♦♦♦♦♦♦♦ 
♦MSGOUT GJ^ 
♦_♦_*-♦_♦_*_*_♦_* 

♦ WRITE ♦ 

♦ GETVIS LINE ♦ 

♦ ♦ 



* * 

♦ EDIT PP SIZE ♦ 
♦AND END ADDRESS^ 

♦ IN OUTPUT ♦ 

* * 



♦MSGOUT 6J^ 



X 
**** 

♦ * 

♦ C3 * 

♦ * 



^: GET CEV 

♦TYPE PUB ADDR, ♦ 
♦ PUB POINTER ♦ 



♦ LOAD PUB ADDR ♦ 

♦ FOR THIS UNIT ♦ 

♦ IN WRKRG3 ♦ 

♦ FROM NEWPUB ♦ 

♦ * 



IS 

DEVICE 

DOWN 



***** 
♦MN ♦ 
♦ A4^ 



*«H2^^^^^^« 
♦MODIFY JOB 
♦CONTROL FLAG 
♦ IN PUB TO 
♦ INDICATE 
♦ DEVICE UP 

*«««4'****** 


X 
.♦. 
J2 ♦. 
.♦ IS *. 
.♦ DEV A 
*. MAGNETIC 
♦. TAPE 
♦ .UNIT .♦ 



IS 

DEVICE A 

2495 



**** 

* * 

* B3 ♦ 

* « 
**♦* 



.X.. 
X 
**** 

♦ * 

♦ C3 ♦ 

♦ ♦ 
♦*** 



Charts 17 9 



Chart MM. $JOBCTLF - UNBATCH Ccirirand Frccesscr 
Refer to chart 11. 



3(c4c««AI«*4c*4'*«*4> 








4c4c*4cA4*4<*>t'**4'** 


* * 








♦ * 


♦ DETACH ♦ 








* DETACHR ♦ 


* )(c 








* * 


4c4e4c««*4t4t««««4c«* 




♦**♦ 

♦ ♦ 

♦ B3 ♦ 




^t*^******^'**^** 
















«i«s«<ie 


* « 










♦ ♦ 


**** 










♦ B2 *... 












* ♦ , 






Ix 






♦*♦* , 








DETACH X 


X 


ACCTUPDT X 




DETACHR X 


**:f**Bl****^***^* 


«>t<«>f ♦BZ 4"t'*«**«««4< 


*4<]|<4c«i B3 ««** ♦^c** «# 


)(c4(*##g44t#i***4i4c>|i*4c 


♦ LOAD ADR ♦ 


* GET * 


* DECREASE 


% 


* ♦ 


* OF NVSERR IN * 


* PIB-ADOR * 


* PARTITION 


* 


* MOVE POINTER ♦ 


♦ A REG * 


* OF PARTITION ♦ 


* COUNT BY 


* 


* TO SYSTEM * 


* -P0INT4- * 


* CONTAINING * 


* ONE 


♦ 


* CLASS UNIT * 


* * 


* JCL PROGRAM * 


* 


* 


♦ *B5 * 


4c«4'4c«:t(««««4< :*(*««*« 


JlHit*'¥*4*i¥*****4** 


]|c«4ii*t4(!(<«4t3|c4c*!(ti|t4c*4c* 


*«4t***«4»tc4t«**4c«4c# 



INPUT 

ON 

SYSLOG 



* IS ♦. 
THIS A *. YES 
JOB .*..X 
STEP .* 



* CLEAR REG * 

* -POINTl- * 

* *A5 * 

* * 



♦GETLAN KA* 

* GET FICL * 

* AND NICL ♦ 

* * 

*rti*^i*if *********** 



♦DETACHR MM* 
♦-♦-♦-♦_♦_♦_♦_♦_♦ 

♦ CHECK * 

♦ SYSTEM * 

♦ ASSIGNMENTS * 



4t:|c4e««J I********** 

♦ MOVE BLANK ♦ 

♦ TO THE SCAN * 

♦ STOPPER LOC * 

♦ -SCNSTP * 

♦ * 



* BRANCH TO ♦ 

* NVSERR IN * 

* $JOBCTLA * 
********ti*tHii*** 



***:tc:tcQ 2 ********** 

* SET PUB * 
♦OWNER MASK FOR * 

* AFFECTED * 

* PARTITION * 
***************** 



* SAVE PROGRAM * 

* INTERRUPT KEY * 

♦ IN PIKSAVE+1 * 

♦ ♦ 
***************** 



C3 *.X 



♦*♦♦ 
ACCTIGN X 

*****(;_^********** 

♦ LOAD START ♦ 
♦ADDRESS OF THIS* 
♦PARTITION FROM ♦ 

♦ PAGE TABLE ♦ 

♦ INTO REG 3 ♦ 
***************** 



*****Qi^********** 

♦CHKASG GU ♦ 
♦_♦_♦_♦-*_♦_♦_♦_♦ 

♦ CHECK ♦ 

♦ ASSIGNMENT ♦ 

♦ * 
***************** 



*****D-^********** 






D4 *. 


* LOAD END * 






.UNIT AS-*. 


♦ADDRESS OF THIS* 


YES 


.* 


SIGNED TO *. 


*PARTITI0N FROM * 


. ..* 


.TAPE DISK OR .* 


♦ PAGE TABLE * 




* 


.DISKETTE .* 


* INTO REG 4 * 






*. .* 


***************** 


X 




♦ . .* 




***** 




* NO 




*MN * 








* B5* 








* * 
* 








SFNC 







««***P2 ********** 
*UNA1A MN* 
*-*-*-*^*^*-*^*-* 

♦ UNASSIGN ALL * 

* LUBS FOR THIS * 
♦PARTITION *F5* 
***************** 



**«**E3********** 

* * 

* BUILD UP NEW * 

* PAGE TABLE * 
*ENTRY IN REG 5 * 

* * 
***************** 



DETACH3 X 

*****f^********** 

*MTNCNT GU * 
*-*-*-*-*-*-*-*-.* 

* RELEASE * 

* THE * 

* SYSTEM * 
***************** 



*A5 
POINTl IS 
USED AS A 
DISPLACEMENT 
FROM ENTRY POINT 
IN FICL AND NICL. 



*B5 
CHECK SYSRDRf 
IPT, PCH, AND 
LST FOP ASSIGNMENT 
TO TAPE OR DISK. 



****f/t********* 

* RETURN TO * 

* CALLING SEQ * 

* * 
*************** 



*F5 

IMMEDIATE 
RETURN IS MADE 
BY FORCING A 
BLANK IN SCNSTP. 



G2 *. 

.* JOB *. 

.♦ACCOUNTING *. NO 

*. INTERFACE .*.... 

*. SUPPORT .* 

*. .* 

♦. .* X 


*«**«Q3 ********** 

* DECREASE * 

* COUNTER OF * 

* VIRTUAL PART- * 

* IT IONS * 

* BY I * 
***************** 




* YES 


**** 

* * 

* C3 * 

* * 


; 




X 


*♦** 


X 




*****H2 ********** 

* GET COUNT AND * 

* ADR OF * 

* COMMON ♦ 

* ACCOUNTING * 

* TABLE * 
***************** 




**H3 ******* 

* RESET * 
*BATCHED MODE * 

* INDICATOR AND * 
* DETACH * 

* PARTITION * 
*********** 


*H4 
INVAL DATE PAGE TABLE 

PARTITION IN WHICH 
-UNBATCH. WAS GiVENe 



.* ONLY *. NO 
. PARTITION .*... 
*. ACTIVE .* 



**K2 ******* 

* SET NO * 

* PARTITION * 
* ACTIVE SWITCH 

* LEAVE COUNT * 

* AT ONE ♦ 
*********** 



♦ C3 * 

* * 
♦*** 
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Chart MN. $aOECTLF - UNA Statement Processor 
Fefer to Chart 11. 



(Fart 1 of 2) 



if^m* hi*** ****** 

* * 

* UNA * 

* * 



♦INITL MQ* 

*-♦-♦-♦-*-♦-♦-♦-♦ 

* INITIALIZE ♦ 

* FOR ♦ 

* RELOCATION ♦ 



X 

.*. 
CI ♦. 
.*MULTI- ♦. 
.♦PROGRAMMING*. NO 
*. ENVIRONMENT .♦... 



*««4<«0I********** 
♦INITL MQ* 
♦_*_♦_♦_♦_♦_♦_♦_♦ 

♦ GET ADDRESS OF ♦ 

♦ BUFFER ♦ 

♦ IN WRKRG2 ♦ 



♦ SCANR? C^K* 

♦POINT TO FIRST ♦ 

♦ OPERAND ♦ 

♦ -Fl TO F4- ♦ 



*♦♦♦ 




♦MP ♦ 




♦ D3 ♦ 


.X. 


♦ * 




♦♦♦♦ 


X 


UNAE 


,♦ 



.♦ ♦. YES 

♦. INVALID .♦..X 
♦.DELIMITER.* 



4i4i**«G !♦♦♦♦♦♦♦*** 

♦ SET UP ♦ 

♦ LINK REGISTER ♦ 

♦ TO EXIT FROM ♦ 

♦ THIS ♦ 

♦ ROUTINE * 
^(^^♦♦♦♦♦♦* ♦♦♦♦♦♦♦ 



«*H !♦♦♦♦♦♦♦ 

* RESET PUB * 
MASK TO X'FE' A 

♦ LLOW ONLY ♦ 
♦ FG * 

♦ OWNERSHIP ♦ 
^^^'♦♦♦♦♦♦♦^ 



X 

.*. 

Jl ♦. 

.♦ ♦. 

♦ LENGTH ♦. 

OF OPERAND . 

2 CHARACTER S+ 



.♦ HAS ♦. 
.♦OPERAND A VALID^ 
♦. PARTITION. ♦ 



♦♦♦♦ 

♦ ♦ 

♦ B3 ♦ 

♦ ♦ 
♦*♦♦ 



♦ LOAD CORRECT ♦ 

♦ PIB ADDR. ♦ 

♦ IN WRKRG4 ♦ 

♦ ♦ 
#«*♦*♦*♦*** 4i4c4i4c tt^t 



♦ML ♦ 

♦ G2^ 

♦ ♦ 



IVDS X 

♦ POINT TO * 

♦ ERROR * 

♦ MESSAGE * 

♦ -1A7N0- ♦ 

♦ *K3 ♦ 



C3 *. 
.♦ IS * 
NO .♦ PROGRAM 
...♦. DETACHED 
♦ . ♦KI 



♦♦♦* 
» * 

♦ G4 ♦ 

♦ * 
♦*♦♦ 



♦**♦♦ 
♦MO * 
♦ E4* 



TXCUU1&8 X 

♦ POINT TO ♦ 

♦ ERROR * 

♦ MESSAGE ♦ 

♦ -1A5ND- * 

♦ *K3 * 



«*4(4t^D2 *♦♦♦♦♦♦♦** 

♦ ♦ 

♦ SET POINTER ♦ 
♦TO APPROPRIATE ♦ 
♦PARTITION CLASSY 

♦ * 



1f:t^^^!*£2********** 

* „ ^ * 

» 6cl CuRKtC I * 

* PUB MASK FROM ♦ 
♦0WNERFLA6 TABLED 

* * 
«*««**««**« ^■♦♦♦♦^ 



««(: 2 ♦♦♦♦♦♦♦ 

♦ ♦ 
♦SET PUB MASK * 

♦SELECTED BEFORE^ 
♦FROM OWNERFLG+ 

♦ TABLE ♦ 



itt*ifitf:lfQ2********** 

♦CALCULATE PIB- ♦ 
♦DISPLACEMENT OF^ 

♦ AFFECTED ♦ 

♦ PARTITION ♦ 

♦ IN WRKRG3 ♦ 



♦ B3 * 

♦ ♦ 

♦♦♦♦ 



#«*4!«o3^^^^^^^^^^ 

♦ CALCULATE ♦ 

♦ DISPLACEMENT ♦ 

♦ FROM POINT OF ♦ 
♦ENTRY INTO NICL^ 

♦ AND FICL ♦K2 ♦ 



♦♦♦* 

♦ MP ♦ 

♦ A2 ♦.X 



♦♦** 
UNAIA X 

*«*#:(<E3 ♦♦♦♦♦♦♦♦♦♦ 
♦GET LAN KA+ 

♦ *COMPufE*LUB ♦ 

♦ ADDRESS ♦ 

♦ AND NICL ♦ 
^^^■♦♦♦♦♦^♦♦♦♦*4<^* 



REFERENCES ♦ *I 
TO MNE4: % " 
MDF3, MFE4 % 



ILUS X 

4c««««E4«*4c:tc4e**4i4t* 

♦ POINT^TO ♦ 

♦ MESSAGE ♦ 

♦ -1A4ND- * 

♦ ♦KS ♦ 



*** 


F««p34c4>*4t««***« 




MOVE LUB * 




ADDR. TO ♦ 




LUBAD AND ♦ 




NICL TO ♦ 




HRKRGl ♦ 


, 




X 




♦♦♦♦* 




♦ MP ♦ 




♦ Ap 





♦ ♦♦♦ 






* * 






♦ G4 ♦ 






♦ ♦ 






♦ *♦♦ 




TIAERR 


X 




«««*4eG4^^^^^^^^^* . 


♦ 


POINT TO 




* 


ERROR 




♦ 


MESSAGE 




♦ 


-1A6ND- 




* 


♦K3 




*«««4c#4c«4:*4c*4c««*« 










* 





SFNC X 

♦ POINT TO ♦ 

♦ ERROR ♦ 

♦ MESSAGE * 

♦ -IA900- ♦ 

♦ *K3 ♦ 
4c«#4c4t ** ** ♦« 4<4<4c* ♦« 



EPPTN 

♦ 4c«4'4tC5 ♦♦♦♦♦♦♦♦♦♦ 

♦ SAVE POINTER TO^ 

♦ MESSAGE TO ♦ 

♦ DISPLAYED IN ♦ 

♦ WRKFLOl FROM ♦ 

♦ POINTl ♦ 



♦♦♦♦J2 ♦*♦♦♦♦♦♦♦ 

♦ BRANCH TO ♦ 

♦ NVSERR IN ♦ 

♦ $JOBCTLA * 



♦ BRANCH TO * 

♦ ERRRTN IN * 

♦ $JOBCTLA * 



♦ K3 
iMESSAGEl'DESCRIPflON* 



.1A4ND 
Ha5ND* 



INVALID LOGICAL UfllT SPECIFICATION 
'DEviCE^Nof-DEFINED 



♦Kl 
THE PIB FLAG MUST BE 
HEX 80 INDICATING THE 
PROGRAM IS DETACHED 
INO LONGER IN USE). 



♦ K2 
THIS MAY BE A 
NEGATIVE 
DISPLACEMENT 



. 1A6ND . UNIT CURRENTLY UNASSIGNABLE 
HATNO^'TiNVALID'oEVICE'STATUS***"" 
riA96o*'*I*SYsfEM*FiLE*N6f 'closed 



4c4c))c4ii|<E5 ♦♦♦♦♦««4i^* 

♦LOAD WRKRG3 AS ♦ 

♦ICAL TRANSIENT ♦ 

* BUCKET TN THE * 

* ATTENTION PIB * 



♦ MODIFY PSW IN ♦ 

♦ SAVE AREA TO * 

♦ FORCE RETURN ♦ 

♦ TO ERRPTN2 ♦ 

♦ ♦ 



:^:«c4<^^G5 ♦♦♦♦♦♦♦♦♦♦ 

♦ MTNCNT GU ♦ 
*_*_*-♦-*-*_♦-*-* 

* RELEASE * 

♦ SYSTEM ♦ 

* * 



*;tt**H5 ♦♦♦♦♦♦♦♦♦ 

♦ SVC ll-SIMULATE^ 

♦ RETURN FROM B ♦ 

♦ TRANSIENT ♦ 



ERRRTN2 

*iHiic*-ti: jtS ********** 

♦ MTNCNT GU * 
♦_*_*_*_*_♦_♦_♦_* 

♦ SEIZE ♦ 

♦ THE ♦ 

♦ SYSTEM * 



ERRRTNl 

♦♦««*K5 ♦♦♦♦♦♦♦♦♦♦ 

* RESTORE REG, ♦ 

* POINTl, WITH ♦ 

* POINTER TO ♦ 

* MESSAGE TO ♦ 

* BE DISPLAYED * 
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Chart MP. $JOBCTLF - UNA Statement Prccesscr (Fart 2 cf 2) 
Befer to Chart 11, 



***** 

*m * 

* F3* 
♦ * 



* ♦ 




* A2 * 




* * 




**** 




X 




• *. 




A2 *. 




* 




A 


♦ . NO 


HIT 


.*.... 




♦ 


• .* 




*. .* 


X 


* YES 


♦*♦♦♦ 




*MN * 




♦ E3* 


, 


♦ * 



Bl *. 

* 1 

SYSLOG 



CI *. 
* 

SYSRES 



X 
01 *. 



* Fl *,X 



*♦♦* 
UNA2AA X 

ilf***iffl********** 
♦UNAENT MR* 

^-^i-f -*-*-*-*-*-* 

* UNASSIGN * 

* THE * 

* LUB ♦ 



UNA2B 

4c4<4c*4cG I********** 

* INCREMENT * 

* LUBAD TO * 

* ADDR OF ♦ 

* NEXT LUB ♦ 

* * 



END ♦. YES .* BLANK *. YES 

OF PUB .* ..X*. END LAST ...... 

TABLE .♦ *. SCAN .* 



♦♦♦*B4********* 

♦ RETURN TO * 

♦ CALLING ♦ 

♦ SEQ ♦ 



:tt****C2 ********** 

* * 

* CLEAR ♦ 

* PUB ♦ 

* OWNERSHIP * 

* ♦ 

***^iit:**********^m 



*4>«««C3********** 
*SCANR3 GK* 

♦_«_♦_»_*_♦_*_♦_♦ 

* GET * 

* NEXT ♦ 

* OPERAND * 



'. xl 






UNA2A X 

*****El********** 

* INITIALIZE ♦ 

* FOR ♦ 

* SUBROUTINE * 

* UNANT * 

* *E2 * 


*E2 
1. 

2. 
. 3. 


LOAD LUB ADDR IN 
WRKRG3 FROM LUBAD. 
SAVE THE CURRENT 
LUB IN LUBCOM. 
NULL THE LUB IN 
THE LUB TABLE BY 
SETTING TO HEX FFFF 



,* ♦ 






****D4********* 


.♦ BLANK 


** 


. NO 


* BRANCH TO 


END 




,♦ 


...X* NVSERR IN 


♦. SCAN 


.* 




* $JOBCTLA 


*, ,* 






:ilf****^i:t,****i^,f** 


*. .* 








* YES 








X 








***** 








*MN ♦ 








* Fl* 








* * 









.* SYSCLB *. N 
•X*. PROCESSING .*. 
*. .* 

*. ,* 



**H3******* 

* TURN * 

CLB PROG 

SWITCH 



4<«*««««4c4t4c« 



**J1******* 

* * 
POINT 

TO NEXT 
FICL 

* * 



RESETCL X 


CLBLUB X 


:t^i^J2******* 


4c*4c«*J34c*«#*4c4c4c#« 


* TURN ♦ 


* * 


* CLB ♦ 


* COMPUTE ♦ 


* SWITCH * 


* SYSCLB * 


* OFF * 


* LUB * 



*#«4<*«««*** 



««4(«*4c«4(:(c«4c«:(c««*:(( 



**** 

* * 

* Fl * 
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Chart MQ, $aOBCTLF - Kiscellanecus Subroutines (Part 1 cf 3) 
Refer to Chart 11 • 



4c* «« A3 *4<*****'i>* 

♦ ♦ 

♦ INITL ♦ 

♦ ♦ 

*«4ii|r4<i(c**4<«4t4t4i4r« 



♦♦**A4********* 

♦ 4< 

♦ TXCUU ♦ 

♦ ♦ 
^if ************* 



****t^^********* 

* * 

* CNVBCO * 

* ♦ 



^im**Qi********* 

* * 

* OUTPUTS * 

* ♦ 
m************** 



OUTPUTS 

*****(; 14i*«****««« 
♦OUTPUT KB* 
♦_*_♦_♦_*-♦_*_♦_* 
♦PRINT A LINE ON* 
* SYSLST OR * 
*SYSLOG ♦HI * 
■t**************** 



4<«i(i««|;)X**^^^***** 
♦SKIPLN KB+ 
♦_♦_♦_♦_«_♦_♦_*_♦ 

♦ PRINT A BLANK * 
♦LINE TO EFFECT ♦ 

* A SPACE ♦ 



♦♦♦♦B2 *****♦**♦ 

♦ ♦ 

♦ OUTPUT 1 * 

♦ * 
4i4i*4(4t**4i***4i*4<4> 



NITL X 


TXCUU .♦. 


CNVBCO X 


#4e***B3*^******** 


B4 ♦. 


^utif^^BS ********** 


* ZERO SW BANKl ♦ 


.* 6 ♦. 


* CONVERT * 


* LOAD WRKRG2 ♦ 


.♦CHARACTERS *. NO 


* LIMIT * 


♦ AS POINTER ♦ 


*. IN .*.... 


*INFORMATION TO * 


* ROOT PHASE * 


». LENGTH .* 


* UNPACKED * 


* I/O AREA ♦ 


♦ . .* 


* EBCDIC * 


*Jti:f ************** 


*. .* X 


*«««« ^c*********** 



OUTPUTl .*. 

C2 ♦. 
,♦ IS 
YES .* LOGICAL 
...,«. UNIT 

*. SYSIN .* 



♦ . 



ii::tt***C3********** 

* INITIALIZE * 

* CCW-WRKCCW- * 

* WITH THE I/O ♦ 

* AREA ADDRESS * 

* OF BUFFER ♦ 

*:tHi:tt************* 



**#*i|tC4**** ****** 

♦ HEXCON KC* 
« _♦_♦_*_♦_♦_♦_♦- * 

♦ CONVERT HEX * 

* CUU TO BINARY * 

* ♦HI * 
***4t4i**4i*4c)|t*««4i4e4c 



*4>4c4c«D2********^* 
♦OUTPUT KB* 

♦-♦-*-♦-*-♦-*-♦-♦ 

* PRINT A LINE * 

* ON SYSLST ♦ 

* OR SYSLOG ♦ 
4i**************** 



0UTPUT2 

4i4(i|t*«gX********** 
*CLEAR TEMPORARY* 

* FIELDS, TMODE * 

* AND TCMNlf * 
*TRANSIENT AREA * 

* TO BLANKS * 
if4t*****#********* 



:4c««*Fl ********** 
♦ 

CLEAR THE * 

I/O BUFFER ♦ 

TO BLANKS ♦ 

♦ 

****«*«4c«)|c*«**#4> 



****G 1+******^* 

♦ RETURN TO * 

♦ CALLING SEQ * 

♦ ♦ 
4i4i*«4i4t***:**«**# 



NORELSW •♦. 






X 


03 *. 






4c«4c*«Q4*****«4<4c** 


.♦ HAS *. 






♦ LOAD WRKRG3 * 


.*RELOCATION *. YES 




* WITH PUB * 


*• BEEN .* 






♦ TABLE ADDR * 


♦.PERFORMED.* 


, 




* FOR LOOK UP * 


*. .♦ 






♦ ♦ 


♦ « .* 


X 




T^fif*************** 


♦ NO 


♦ *♦« 








* 


♦ 


**** * 




* J3 


♦ 


* * . 




* 


* 


♦ E4 *.X. 


• 


#*** 




♦ * . 
**♦* X 


X 




TXCUUI .♦. 


#*«4e^E3^****^^^^* 






E4 ♦. 


* GET COUNT * 






.* ♦. 


* AND TABLE * 






.* DEVICE *. 


i ;;CDRE23 






-«- ^ SEfirv!;'* ^'*' 


♦ -RLDST/t- * 






'■*, ^' ^'vw._ ^^^ 



*4c*4i4tC5 ********** 
♦PUT ADDRESS OF* 

♦ FIELD ♦ 

♦ INTO A ♦ 

♦ WORK ♦ 

♦ REGISTER * 
**«***4c4<*4E*«**««* 

♦♦*♦ I 

♦ ♦ . 

♦ D5 ♦.X. 

♦ ♦ , 
**♦♦ X 

NLD .♦. 

05 *, 

.* ♦. 

.* CHARACTER *. Nl 

*. EQUAL TO A .*. 

*. ZERO .* 



IS 
NEXT 

#o*rTpo 



«*«**#«4<4e*4(«***«« 



ADR 
PTR 
RELLOP 

**«««p3«*4:*«**4i*« 

*ADR NEXT ENTRY * 
♦LOAD 2ND ADCON * 

* WITH VALUE ♦ 

* FIRST ADCON ♦ 

* ♦ 



END 

OF 

TABLE 



♦ . .* 






♦ . .♦ 


♦ . .♦ 




X 


*. . ♦ 


♦ YES 




***** 

*MN * 

♦ C4^ 

♦ ♦ 

* 


♦ NO 




TXCUUI + 8 




:uu4 X 






X 


if:tf**iffi^********** 




#4c«*4cp5 itiUfitt******* 


* SEARCH PUB 


♦ 




♦ REPLACE ♦ 


♦ TABLE FOR 


* 




♦ ZERO WITH A ♦ 


♦ DESIRED 


* 




.* BLANK. * 


♦ DEVICE 


* 




* POINT WORK TO * 


* -CUU- 


* 




♦NEXT CHARACTER ♦ 


«*«*«♦♦♦♦♦♦♦*♦♦♦♦ 


X 


♦^^♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



DEVICE 

FOUND 

IN 

♦. TABLE. ♦ 



414: ^(♦GS ♦*******♦ 

♦ RETURN ♦ 

♦ CALLER ♦ 

♦ ♦ 
4(* ♦♦ ♦4C4'* ♦♦♦**♦ 4( 



4(4:H3**^*^** 

♦ SWITCH * 
♦ -NORELSW- ♦ 

♦ TO ♦ 
* BRANCH * 

4c«4c«4t4t4e4c««* 


4c««**H4*^ *♦♦♦♦♦♦* 

♦ SAVE * 

♦ THE * 

♦ DEVICE ♦ 

♦ TYPE ♦ 

♦ * 


* ♦ 




* 


♦ J3 ♦.X 

* * 




• 


**** 
NOREL 

) 

♦♦♦*J3*=< 

* RETUf 

4<4>4<4<4c4>4<^ 


^♦♦♦♦««4' 

m TO * 

.ING ♦ 
EQ * 

K4c*4'4'4t4<4: 


TXCUU3 X 

4c4'^4c4t J 4*4c4<4<^4t4(«^« 

♦ COMPUTE ♦ 

♦ THE ♦ 

♦ PUB * 

♦ POINTER * 

♦ * 



4t4<4«**H5 ********** 



4c:(c4t«4c4'4'4=«4'#4<4c4t«4'4t 



4c«4'4c4c4(4<4c4c4c4<^^^*4i« 



4i4<^^K4^^^^^^*** 

♦ RETURN TO ♦ 

♦ CALLING * 

♦ SEQ ♦ 
4t4t*******4t^**«^ 



4i4'^4cK5 ♦♦******* 

* BRANCH TO ♦ 

* NVSERR IN * 

* SJOBCTLA * 
4t4c*4i4t««4i4>4i4i4>4i4t* 
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Chart MR. $JOECTLF - Miscellaneous Subroutines (Part 2 of 3) 
Refer to Chart 11. 



♦♦♦♦Al********* 

« * 

* SFPPE * 



SFPPE 

♦ MOVE THE PUB * 

♦ POINTER TO * 

♦ LUBCOM FROM * 

♦ NEWLUB FOR * 

♦ COMPARISON * 



♦SET SWITCHES ♦ 

* RETSW-ON * 

* LIOSW-OFF ♦ 

« « 



♦ * 

♦ B2 * 

♦ ♦ 
♦♦♦* 




**** 

* * 

* B3 * 

* ♦ 


X 

4i«***B2 ********** 

♦ CALCULATE * 

♦ PREVIOUS LUB ♦ 

♦ ADDR. AND ♦ 

♦ STORE PJIBADD * 

♦ ♦BS ♦ 

^i:iHtit'************* 


SFPPE5A X 

♦♦B3 ******* 

* TURN OFF 
* PRIMARY 

* EOSW 

* 



*B5 
LOCATION SLAOO 
CONTAINS POINTER 

TO THF 
FOLLOW! Nr, LUB. 



* Dl *.X 



SFPPE2 X 

**«**{} l««)K4i***«4>* 

* SET WRKRG2 * 
*T0 A 1 TO START* 

* SCAN AT * 

* BEGINNING OF * 

* LUB TABLE * 

4c«4c4c***#******4c«« 



$$BLSTIO *. NO 
TRANSIENT .*... 
. ACTIVE .* 



* CLEAR OUTPUT * 
*AREAS TMODE AND* 

* TLMNT * 

«*«««4t4<3(<****«4t4<4e« 



**** 

♦ MS * 

* E3 *.X 



SFPPE02 X 

if^t***2l*i*!tt******* 

* STORE SCAN * 

* CONTROL CHAR * 

* IN * 

* CTYPE FROM * 

* WRKRG2 * 



* MOVE LUB TO * 

* WORK AREA * 

* JIBCHN * 
nmttiifitLTtt************ 



E2 *. 
,♦ * 

LIOSW ON 



* ♦ 

* B3 ♦ 

* * 
♦*♦* 



«*4c«F2********* 

* RETURN TO * 

* CALLING *H2 * 

* SEQUENCE * 







Gl 


*. 






.* END ♦ 


NO 


.*0F LUBS OF 


• . .* 




THIS 




'♦ 


. CLASS 






*. ,* 


X 




*. .♦ 


♦*♦* 




* YES 


* 




* 


B2 * 






* 






♦♦** 




X 


SFPPE4 


.** 






HI *. 






.* RETSW * 


NO 


.* 


OR LIOSW 


...* 


"* 


ON 






**. .♦ 


X 




*. .* 


**** 




* YES 


♦ 






C4 * 








* 








**** 









♦***J l********ilf 

* RETURN TO * 

* CALLING * 

* SEQUENCE *J2 * 
^iitt4f************ 



*H2 
THIS RETURN TO THE 
CALLING SEQUENCE 
INITIATES LINKR4 
TO RETURN CONTROL 
TO SFPPEI2, 
CHART MS-B2. 



*J2 
THIS RETURN TO THE 
CALLING SEQUENCE 
IS MADE WHEN THE 
END OF THE LUBS 
IS DETECTED LINKR4 
IS NOT INITIALIZED 
TO RETURN CONTROL. 



SFPPE5 .*. 

C3 *. 
.* DOES *. 
NO ,* THIS LUB *. 
...*HAVE EQUAL PUB.* 
*. POINTER .♦ 
♦ . .♦ 

♦ . .♦ 
* YES 



♦ *♦♦ 

* * 

* C4 * 



IS *. YES 

CLASS .*.... 

.* 



NO .♦ THERE A * 
...*. PUB ADDP IN 
*. OLD .♦ 

*. PUB .* 



♦SET FREE PUB ♦ 

♦FLAGS IN OWNER-^ 

♦ SHIP TABLE ♦ 

♦ OFF ♦ 



SFPPE7 

4t4c«4t*D 5 ********** 
*INCR CLASS BY 1* 

♦ -POTNTl EQ ♦ 

♦ POINTl+1- ♦ 



7tli1^^*^^Hf ********** 



F3 ♦. 

.* IS *. 
NO .* $$BLSTIO ♦. 
,..*. TRANSIENT .♦ 
♦. ACTIVE .♦ 



4c««*«G3 ♦♦♦♦♦♦♦**♦ 
♦OUTPUT MQ^ 

♦ CLEAR OUTPUT ♦ 

♦ AREAS TMODE ♦ 

♦ AND TCMNT ♦ 



***** 

♦MS ♦ 
♦ C4+ 



***** 

♦ MS ♦ 

* C2* 



SFPOEOl X 

**itc**f5********** 

♦ SET POINTER ♦ 

♦ TO SYSTEM ♦ 

♦ CLASS ♦ 



*4c4E:|t 41** ********** 



UNANENT X 

*4c***G5 ♦♦♦♦♦***♦* 
♦CHKASG GU * 

*_*_♦_*_*_#_*_♦_* 

♦ COMPUTE PUB * 

♦ POINTER IN * 

♦ WRKRGA- * 
«4c*************** 



itt4c«*4cH5 ********** 

♦ SAVE PUB * 

♦ POINTER IN * 

♦ OLD PUB ♦ 



it,^:ti:I^H,itiitf********** 



SFPPE3 X 

«:t(:«e«* J5 ^tcitc**!;!^^^** 

*GETLAN KA^ 

*_*_♦_*_♦_*_♦_#_* 

♦ COMPUTE LUB ♦ 

* ADDRESS AND * 
♦NICL ♦A^^ 

;«c«:«c************** 



♦*** 

* * 

* 01 * 

* * 
**** 



I 
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Chart MS. $JOECTLF • Miscellanecus Subroutines (Part 3 cf 3) 
Refer to Chart 11. 



♦*♦* 
♦ * 

« A3 ♦ 

♦ ♦ 

♦♦♦♦ 






SFPPEIO X 

**Bl******* 
♦SET THE STD* 

♦ ASSIGNMENT * 
* FOUND SWITCH 

* STDFOSW, ♦ 
* ON. * 



*SAVE THE STORED* 
♦STANDARD LUB IN* 

♦ SSTDLUB FROM ♦ 

♦ BYTES AND 1 ♦ 

♦ OF JIB ♦ 
*4<****^4<*^******« 



♦♦*♦♦ 

* * REFERENCES 

♦ ** TO MSC2: 
* * MJE3, MRG3 



♦TURN OFF STD 
♦ FOUND SW, 
♦ STDFDSW. 



.* IS *. 
.♦ $$BLSTIO *. NO 
♦. TRANSIENT .♦... 
♦. ACTIVE .♦ 



♦ MOVE CHARSt ♦ 

♦ ALT, TO THE ♦ 

♦ COMMENTS ♦ 

♦ WORKFIELD ♦ 

♦ TCMNT ♦ 
if**************** 



C3 *. 

.♦ *. 

.♦ ENTERED ♦ 

. FROM LISTIO 

♦. ROUTINE .♦ 



.♦ DOES ♦. 








.♦ ♦. 






♦ THIS LUB 


*, 


NO 


.* 


PRIMARY 


*, 


NO 


HAVE EQ PUB . 


*.. .. 


....X*. 


»REVIOUSLY 




*. ... 


♦. POINTER . 


♦ 




* 


. EQUAL , 


* 


, 


♦ • .♦ 








*, .♦ 






♦ . .♦ 








♦. .♦ 




X 


* YES 








* YES 

X 

***** 




**** 

* * 

* 01* 

* * 
**** 


X 








*MJ * 






E8B .*, 








* B'V* 






B-^ *. 








* * 






,♦ ♦. 




♦♦*♦ 


* 






♦ RETURN 


♦ . 


YES 


* * 


SFPPEDO 






SWITCH, RETSW. 


♦ .. .. 


X* D3 * 








♦. ON .* 




♦ ♦ 








*. .♦ 






**** 









*********** 



**** 

♦ MR ♦ 

♦ E4 ♦.X 



♦*** 
SFPPE13 X 

*****C4********** 

* MOVE THE ♦ 
♦CURRENT LUB TO * 

* JIBCHN FROM * 

* LUBCOM FOR * 

* ALTSCAN * 
**««*«4'**«******* 



**** 


; 


*♦** 


*MJ ♦ 




* * . 


* C4 *.X. 




♦ 03 ♦.X. 


* * ,x 




♦ ♦ . 


**** 




**** 


SFPPE8 X 




SFPPEll 


«****Q2#****i)E4E*** 




X 


♦SCNLUB KJ* 




****03 ****«***« 


♦-♦_*_«^*_*_#_*_4t 




♦ RETURN TO ♦ 


•.X* GET ADDRESS * 




* CALLING SEQ * 


. * OF JIB ♦ 




* * G5 * 


. * * 




m************** 


, 4t******4E*4t******* 






*•** 

t * 






« 01 * 
* 






*4>** 






X 


'imiy'"^ 








£Fr?E2Cl 


El* **. 


.^* ' ' ""^ E2" *♦. 


*****g3***«*4c*4[** 


.* *. 


.♦ IS ♦. 


* LOAD LOGICAL * 


.* END ♦. YES 


.* THE STD ♦. NO 


♦UNIT, TAPE, SCAN* 
....X^ CONTROL CHAR * 


♦ . OF .*.... 


*. ASSGN .*.... 


*. JIBS .* 


*. FOUND .* 


* IN WRKRG2 AND * 


♦ . .♦ 


♦.SW ON.^ 


♦ DOUBLE IT ♦ 


♦ . .♦ 


♦. .♦ 


***************** 


♦ NO 


♦ YES 


; 


* 




X 

***** 


X 




*MR ♦ 


.♦. 


SFPPE14 X 


♦ E1+ 


Fl ♦, 


*3(c**«f: 2 ********** 


* * 


.♦ IS ♦. 


♦MOVE THE STORED^ 


* 


.♦ $$BLSTIO *. NO 


♦ STD LUB FROM ♦ 


SFPPE02 



♦SSTDLUB TO THE 
♦ WORK AREA * 
♦JIBCHN FOR CMP * 
*********4c******* 



*****G1********** 




«****Q2********** 


♦0UTPUT2 MQ^ 




* * 


*_♦_*_*_♦_*-♦_♦_» 




* SAVE LUB ♦ 


♦ CLEAR OUTPUT ♦ 




♦ ADDRESS FOR ♦ 


♦AREAS TMODE AND* 




♦ DEQUEUE ♦ 


♦ TCMNT ♦ 




♦ ROUTINE ♦ 


***#«*«*««******* 




****«4e*****«***** 


X 


X 


FPPE8A .♦. 


.♦. 


HI ♦. 


H2 ♦. 


.♦ DOES ♦. 


.♦ ♦. 


.♦JIB CONTAIN^. YES 


.♦ DEVICE *. 


♦. STORED ...... 


♦ . DOWN .♦ 


♦. STD .* 


♦. REQUEST .♦ 


*. LUB .* 


♦ . .♦ 


*. .* X 


*. .♦ 


* NO **** 


♦ YES 


* * 




♦ Bl * 




♦ * 




**** 




X 


JI* **. 


**J2******* 


.* DOES ♦. 


♦ * 


.♦ JIB ♦. NO 


♦ TURN OFF ♦ 


*. CONTAIN ...... 


♦STORED STANDARD^ 


*. AN ALT .♦ 


♦ SWITCH ♦ 


♦.ASSGN.^ 


* * 


♦ . .♦ X 


*«4c**4c****4c 


♦ YES ♦**♦ 




* * 




* Dl ♦ 




X * * 


X 


**** *5 


It** 


***** 



$$BLIST10 ♦. 
TRANSIENT . 
- ACTIVE .♦ 



**J3******* 

* * 
SET TCMTT 
SWITCH TO 

•STD' 

* * 

**:|c«s******* 



***** 

♦ MR ♦ 

♦ E2+ 



...X 



SFPPE15 

**«**Q4«*«*«***** 

♦SCNJIB KJ^ 

♦ GET ADDRESS ♦ 

♦ OF JIB ♦ 

♦ *05 * 

**4t«***«4e******** 



END 

OF JIB 
CHAIN 



*****F4**** ****** 

* * 

* MOVE THE * 

* LUB TO LUBCOM * 

* FROM * 

* JIBCHN * 
«4c*************** 



****F5 ««!«(**«*** 

* RETURN TO * 

* CALLING * 

* SEOUENCE « 

«*«:([***«******* 



* G5 
THIS RETUPN TO THE 
CALLING SEOUENCE 
INITIALIZES LINKR4 
TO RETURN CONTROL 
TO SFPPE8. 



* LOAD THE * 




* ADDRESS OF * 




* THE FAVP IN * 




* WRKRG3 * 




«*«««*4t****«4<**** 






* H5 




1. THE FREE JIB ADDRESS IS 




LOADED IN WRKRG4 FROM 


X 


P0INT3. 


4:«i|t««H4*******^^^ 


2. THE JIB TABLE ADDRESS 


* * 


IS SUBTRACTED FROM 


* COMPUTE FREE * 


WRKRTA LEAVING THE FREE 


♦JIB POINTER AND^ 


JIB DISPLACEMENT IN 


♦ STORE IN FAVP ♦ 


WRKPG4-. 


* * H5 ♦ 


3, THE DISPLACEMENT IN 


***««**4'*****«*** 


WRKRG4 IS DIVIDED BY 4 




TO DEVELOP THE FREE JIB 




POINTER. 




4. THE RESULTING POINTER 




IS STORED IN FAVP FROM 


X 

.* . 


WRKRG4. 


SFPPE17 


J4 *. 


*«4t«:tc J5 4c:(c:)e««4t**** 


.♦ DOES *. 


* * 


.♦JIB CONTAIN^. YES 


♦ZERO THE FIRST ♦ 


*. A STORED .*..., 


....X^ THi^EE BYTES ♦ 


*. ALT .♦ 


♦ OF THE JIB ♦ 


♦. LUB .♦ 


* * 


♦ . .♦ 


4c**************** 



***** 
*MP * 
♦ F5^ 



♦ZERO THE FIRST * 

* THREE BYTES ♦ 

* OF THE JIB ♦ 

* * 
**«***«««**«****« 
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Chart NA. $JOBCTLG - JOB Statement Prccesscr (Part 1 cf 3) 
Refer to Chart 13. 



*♦♦* 
* * 

* A2 * 

♦ ♦ 
♦♦♦* 



♦ ♦ 

♦ $J08CTLG * 

♦ ♦ 



♦SCANR2 GK* 

♦_*_*_*_*-*_♦_*_* 

* GET * 



NO .* DELIMITER *. 
. ..*. IS A 

♦.BLANK OR .* 
♦.COMMA.* 



YES .* OPERAND 
X..*. TOO 

*. SMALL 



4c««4c«A2 ♦♦♦♦♦♦♦♦♦♦ 

* ♦ 

* SET UP * 

* FOR LABEL * 
♦CYLINDER CLEAR ♦ 

* * 



«:«t:«c4:4cB2 ♦♦♦♦♦♦♦♦♦♦ 

♦USRLBL NJ* 
♦_*_*_*_♦_<(_♦_♦_* 

♦ CLEAR ♦ 

♦ LABEL ♦ 

♦ CYLINDER ♦ 
♦♦*♦♦**♦***«**♦** 



♦ * 

* RESET LINK 
CONTROL BYTE 

* -JCSW2 

♦ * 



«:((«** A3«^ ♦♦♦♦♦♦♦♦ 

♦ OR MASKS INTO ♦ 

♦ JBCSW4 TO ♦ 

♦ ALLOW OUTPUT * 

♦ ON LST AND ♦ 

♦ LOG ♦ 
4t3^«)tc«4<* *♦♦♦*«♦«** 



.♦ JOB ♦. 
NO .*ACCOUNTING ♦. 
,..♦. INTERFACE . 
♦ . SUPPORT .♦ 



♦♦♦♦* 
*NB ♦ 
* H2* 



♦ SET * 

SIMULATED 
EOJ SWITCH 
OFF - NOP, 

♦ SIMRETt ♦ 



* 


IS ♦ 






PREVIOUS 


♦ . 


YES 




JOB 




♦ . . .. 


CI3PPLETE 


.♦ 




* 


.* 








♦. . ♦ 




X 




♦ NO 




**** 

* i 

* A5 
* 

♦ ♦*« 



^c^c^^^CB^*** ♦♦♦♦♦♦ 


4<**4c*C4********** 


♦ SAVE POINTER 




* RESTORE * 


♦ TO JOBNAME 




* JOB STATEMENT ♦ 


♦ IN 




* IN I/O BUFFER * 


♦ ACCOUNTING 




♦ FROM SAVE AREA * 


♦ TABLE 




* * 


.......xl 


^iit**i>i*^********* 


X 
***** 




* 


*ND * 






♦ CI* 




RSTSW4 X 


* * 




♦*D4******* 


* 




* RESTORE * 


EOJ 




♦ JBCSW4 * 
* TO INITIAL * 

* VALUE ♦ 



CRJBSQ X 

♦♦A5 **♦***♦ 

* RESET TO * 

♦ STANDARD, ♦ 
* JCSWlt JCSW4 * 

* AND * 

* TEMOPT * 



*«4c*4iB5 ********** 

* LOAD ADDRESS * 

* OF LUB TABLE * 

* INTO WRKRGI * 



4i#:(c*>lc#itc*«*#4'***** 



♦♦***C5 ********** 
♦JIBSCN NP+ 

* GET ADDRESS * 

* OF SYSRDR * 

* JIB * 



.* ANY *. 
.* JIB *. NO 
*. CHAINED TO .*... 
*. SYSRDR .♦ 



9«c«](c*«:fc*^«:(c:«c 



OPERAND ♦. 
TO .♦ 

LARGE .* 



♦ CLEAR JOB ♦ 

♦ NAME STORAGE * 

♦ AREA AND MOVE ♦ 

♦ THE JOB ♦ 

♦ NAME IN * 



.♦ LABEL 
*. OPERATIONS 
*. IN STD . 
♦ .MODE .* 



3(C«H1*****^* 

*RESET LABEL* 

♦ SEQUENCE ♦ 
SWITCHES 

♦ * 
* ♦ 



ACCTBR5 

NO 



F2 ♦. 

.* IS *. 

.♦ JOB STMT ♦. 

*.AN OVERWRITE . 

♦.OR INSERT. ♦ 

♦.STMT .* 

*. .♦ 

♦ NO 



««4c*:tcQ2 ********** 

* * 

* SAVE JOB STMT * 

* IN JOB ♦ 

* STATEMENT ♦ 

* SAVE AREA ♦ 



4:«*«:(cH2 ♦♦♦♦*****♦ 



^c^^c** ************ 



*****P3 ********** 

* SAVE JOB * 

* STATEMENT * 
X* IN JOB * 

* STATEMENT * 

* SAVE AREA * 
***************** 



****Q3 ********* 

* BRANCH TO * 

* ERRRTN IN * 

* SJOBCTLA ♦ 
*************** 



*****J 1********** 


**J2******* 


*USRLBL NJ* 


* SET * 


♦_*_*_♦_♦_*_*_*-* 


* SIMULATED * 


* RESET TO * 


* EOJ SWITCH ON * 


* USER LABEL * 


*-BR, SIMRET- * 


* MODE * 


* * 


***************** 


*********** 


* **** 


* 


* * 




..X* A2 * 




* * 




**♦* 


X 
*****K2********** 




****K1«*****«** 


* * 


* BRANCH TO * 


* MOVE JBCSW4 * 


* NVSERR IN * 


* INTO SAVE * 


* $JOBCTLA * 


* AREA * 


*************** 


* * 



***************** 



***♦ 

X 
*****J3********** 

♦RSTASG NM* 

♦_*_*_*_*_*_♦_*_* 

* RESET ALL I/O ♦ 

* ASSIGNMENTS ♦ 

* * 
***************** 



*****K3 ********** 

* * 

* RESET JOB * 

* NAME AND * 

* LINE COUNT * 

-3= * 

***************** 



.* MODIFIED 

IN EOJ 
*. ROUTINE 



*****P4********** 

* ESTABLISH * 

* LINKAGE TO * 

* $JOBCTLN * 

* FOR SIMULATED * 

* EOJ * 
***************** 



*****Q4********** 

* ESTABLISH * 

* RETURN * 

* ADDRESS TO ♦ 

* 'ACCTSIMR' * 

* * 
***************** 



*****H4********** 

* * * * 

* * SJOBCTLN * * 

* * VIA * * 

* * 'FETCHRF' * * 

* ♦ * * 
***************** 



ACCTSIMR 

*****j4********** 

* RESTORE * 

* POINTERS * 

* TO * 

* NEW JOB * 

* NAME * 
***************** 



*****K4********** 

* RESTORE * 

* POINTER TO * 

* USER JOB ACCT ♦ 

* INFORMATION ♦ 

* * 
***************** 



.♦ TS JIB *. YES. 
USED BY .*..X. 

♦.PROCEDURE.* 



♦***G5 ********* 

* BRANCH TO * 

* SYSERR IN ♦ 

* SJOBCTLA * 
*************** 



.* STANDARD *, YES. 
.X*. ASSIGNMENT IN.*. ' 
*. EFFECT .* 



**J5******* 

* SET * 
* JOB-OUT-OF- * 

* SEQUENCE * 
*FLAG TN JCSW4* 

* * 
*********** 



*****K5 ********** 
*PSPASG NM* 
*_*_*_*_*_*_*_*_* 

* RESET PROGRAM * 

* ASSIGNMENTS * 

* * 
***************** 



***** 
*NB * 

* Al* 



**** 

* * 

* A5 * 

* * 
**** 
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Chart KB. $aOECTLG - JOB Statement Processor (Fart 2 of 3) 
Befer to chart 13, 



***** 

*NA * 
* K3* 



**** 

* * 

* A3 ♦ 

* * 
**** 



Al ♦. 






.* JOB ♦. 






NO .♦ACCOUNTING ♦. 






..♦. INTERFACE .* 






♦. SUPPORT .* 






*. .* 




**** 


♦ . .* 




* * 


♦ YES 




* B2 ♦ 

* * 
**** 


X 


RSSASG2 X 


4<itcBl«*4<*««« 


itc«*«*B2 ********** 


* SET JAI ♦ 


* 


SAVE JOB * 


* SWITCHES * 


* 


NAME IN BYTES * 


* IN JOB ♦ 


* 


0-7 OF * 


* CARD ♦ 


* 


PARTITION ♦ 


♦ ROUTINE * 


* 


SAVE AREA * 


*lf*t******* 


««4>4<**«*4<*««****4< 



* * 

* RESET JOB ♦ 

* DATE FROM * 

* SYSTEM DATE ♦ 

* ♦ 
**^fiH^H,t********** 



* ♦ 

* R ES ET ♦ 

* DATE BIT ♦ 

* TO ZERO ♦ 

* ♦ 

*:4^4c:f ************* 



*****ci********** 

* PUT JOB NAME * 

* IN PARTITION ♦ 

* ACCOUNT * 

* TABLE ♦ 

* ♦ 
**lf***i^**^***^idlt*^i 



4t«4:4:«D !**♦♦****♦* 

* PUT USER * 

* ACCOUNT * 
♦INFORMATION IN * 

* PARTITION * 

* ACCOUNT TABLE * 

******ifillt:ti******** 



*****El********** 
♦GETIME NL* 

♦ -♦_*-*_*_♦_■♦_*-♦ 

♦ GET ♦ 

* TIME OF DAY * 

* ♦ 



4|C3t(«4::tcp X ♦*♦♦ ♦♦♦*♦♦ 

* PUT TIME IN * 

* ACCOUNT TABLE * 

* AS PACKED * 

* DECIMAL ♦ 

* * 



ACCTIGN4 

**^**Q X«««4t*««#4i4< 

* GET JOB * 

* STARTING TIME ♦ 

* TO COMPUTE * 

* DURATION ♦ 

* * 
***************** 



*****m********** 

♦GETIME NL* 

♦_♦_♦_♦_#_♦_♦-*-♦ 

♦ GET TIME * 

♦ FOR ♦ 

♦ PRINTOUT ♦ 
***************** 



*****j I********** 

♦ POINT TO SAVE ♦ 

♦ AREA IN PIB ♦ 

♦ FOR THIS ♦ 

♦ PARTITION ♦ 

♦ * 
***************** 



RSSASGI 

«*4i«4iC2 ♦♦♦♦♦♦♦♦♦♦ 

* SAVE TIMER ♦ 

* VALUE FROM ♦ 

* WORKFIELD IN ♦ 
♦BYTES 82-87 OF ♦ 
♦PART SAVE AREA ♦ 
***************** 



*****Q2********** 

♦ INITIALIZE ♦ 

♦ REG 1 WITH ♦ 

♦ ADDRESS OF ♦ 

♦ SYSLOG DFB ♦ 

♦ * 
***************** 



*****£2********** 
♦lOROUTW NN^ 
♦_*_*_ *-*-*-*-*-* 

* WAIT FOR ♦ 
♦PREVIOUS SYSLOG+ 

♦ I/O TO FINISH ♦ 
***************** 



*****Q-i********** 

♦ RESET ♦ 

♦ JOB ZONE ♦ 

♦ FROM SYSTEM ♦ 

♦ ZONE ♦ 

♦ * 
***************** 





♦ TIMOUT NL^ 


*-*-*-*-*-*-*-* 


-* 


♦ LOG TIME AND 


* 


♦ STATEMENT ON 


* 


♦ SYSLOG 


* 




**** 






♦NE ♦ 






♦ J5 ♦.X 






* * 






♦♦♦♦ 






RSTCOM X 




**Q2******* 




♦ SET JOB ♦ 




♦ CANCEL 


♦ 


♦ SWITCH 


♦ 


♦ OFF 


♦ 


♦ -JCSWl- ♦ 




***** 







NO 


* 


MODIFIED 


..♦ 




IN JOB CD 


BR 


* 


RTN 
*, .♦ 
*. .♦ 
♦ YES 
.NOP 

X 


*****pj,******i 


* 






* 




GET 


* 




DATE 



***************** 



**Q-i******* 

* * 

RESET 
ACCTBR2 
TO NOP 

♦ ♦ 
*********** 



***** 

♦ NC ♦ 

♦ A3+ 



IMULATEO ♦. YES 
EOJ ...... 

.* BR . 



*♦*♦* 

♦ NA * 

♦ 8^^ 

* * 



*****j2********** 
♦GETDAT NL* 
*-*-*-*-*-*-*-*-* 

♦GET AND FORMAT ♦ 

♦ SYSTEM ♦ 

♦ DATE ♦ 
***************** 



♦ A3 ♦ 

* ♦ 
**** 
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chart UC. $JOECTLG - JOB Stateirent Prccesscr (Part 3 cf 3) 
Refer to Chart 13. 



***** 

*NB * 
♦ G3* 



* RESET BG * 

* LABEL AREA * 

* LENGTHS * 

* * 



* ♦***B3i*«**«***** 

* LOAD DIB * 

* TABLE ADDR. * 

* INTO MRKRGl * 

* AND ZERO * 

* SYSLNK ENTRY * 
**i|c«-****4c*******« 



****«C3 ********** 

* CLEAR USERS * 

* SCRATCH AREA * 
*TURN OFF SYSRDR* 

* PIE * 

* EOJMASK * 
««««************* 



*«4c«*D3:«l4c******** 



* 


ADDRESS THE 


* 


* 


PUB TABLE 


* 


* 




* 


* 




* 


*^ 


|t««««««#«4;****** 


♦*** 






* 


* 






* 


E3 *.X 






* 


* 






**** X 






.*. 






E3 *. 






.* END *. 






* OF * 


. NO 


♦ 


PUB 1 


^ABLE 


.*. . 



**** 

* * 

* A5 * 

* * 
**** 



ACCTBR3 
BR .* 





CHECKPF X 


Y 


PASSRF .*. 


**A4******* 




A5 *. 


* SET * 


YES 


.* *. 


♦ RECORDER * 


BP 


.* RECORDER 


FILE BYPASS *X.... 




*. FILE BYPASS 


* SW OFF * 


... 


*. SW ON . 


* * 




*. .* 


4c%4:]»i3|c%4E;(t4c;(c« 




*. , * 
* NO 
.NOP 


X 






.*. 






B4 *. 




B5 *. 


,* *. 




. * *. 


.* PAUSE AT *. YES 




.* SDR 


. END OF JOB .*.... 




♦COMMUNICATION 


*. .* . 




*. REGION . 


*. .* 




♦ .AVAIL.* 


*. .* X 




*. .* 


* NO *** 


^ 


* YES 


**** , * 


♦ 


* 


* . * G3 


* 




C4 *.X. * 


* 




* . **** 




**** X 




X 


.* . 




.*. 


C4 *. 




C5 *. 


.* *, 




. * *. 


.* MODIFIED *. 




.♦ IS 


IN EOJ .* 




*.THIS INITIAL 


*. .* 




*. IPL 


*. ,* 




*. , ♦ 


*. .* 




*, .* 


* YES 




* YF<; 



««:«(:): 4:H3 ********** 

* * 

* LINKAGE TO * 

* $JOBCTLN AT * 

* PAUSE EOJ * 

* * 
««««««*********** 



* SJOBCTLN * 

* VIA * 

* 'FETCHRF*. * 

«4c************* 



4c*!^:C(K3********* 

* SVC 14 * 

* GO TO * 

* JOBCTLA * 

#:«c:tc4c*********** 



**D4******* 



1|C ««*«***«!«(* 



:tf=tt*ii£/t*#if ****** 

* •FETCHRF' ♦ 

* SJOBCTLN ♦ 

* * 
iti************** 



«*:((4cp4:|c******** 

* BRANCH TO * 

* CONTROL IN * 

* SJOBCTLA * 

:4c:»::t(:«ct«4c******** 



G4 *. 

.* *, 

PUB OWNED 



**H4******* 

* * 
SET PUB 

EOJ FLAGG 
OFF 

* * 



* INITIAL *. NO _ 

CRT-IPL BIT .*..X. 

*. ON ,* 



HARD 
COPY 
NEEDED 



**** 

* * 

* C4* 

* * 
**** 



* * 

* INCREMENT « 

* POINTER TO * 

* NEXT PUB * 

* * 

4: :«c Tt: 4; :tc :4c * « * « :te :«c 4c * :»; « « 



**** 

* * 

* E3 * 

* * 
**** 



FETCHM 

***** J5 ********** 

* SET UP * 

* PEGS TO POINT * 

* TO RECORDER * 

* INITIALIZER * 

* ROUTINE * 
***************** 



****K5 ********* 

* FETCH * 

* $jnBCTLM * 



********** 
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Chart ND. $JOBca:LG - /% statement Processor (Jart 1 of 3> 
Refer to Chart 13. 



*♦♦♦ 

♦ A2 * 

♦ ♦ 



♦♦♦♦ 
>l> « 
* A5 * 



♦ ♦ 

♦ EOJNRF * 

♦ ♦ 



.* SYSRDR ON ♦, NO 
DISK/ .*... 

♦.DISKETTE .* 



♦**** 
♦NE * 
♦ Al* 



EOJNRF X 


EOJPIB X 


X 


««B !*«>«< «'♦♦<«' 


*4i*««B2**4<******* 


*4'**«B34<*****4'«** 


♦ SET ♦ 


♦ SET EOJ-BIT ♦ 


♦ SET EOJ-BIT * 


* RECORDER * 


* ON IN PIB FOR ♦ 


* ON IN ♦ 


♦ FILE BYPASS * 


♦ SYSRDR ON ♦ 


* PUB OF ♦ 


* SW ON * 


* DASD * 


♦ SYSRDR ♦ 


* -PASSRF * 


♦IBYTE 15, BIT2)* 


♦(BYTE 6« BIT 2)* 


*«4<*>K**«««* 


*4t«««*4«4i#4i4e4i«*4c* 


««4(**4>!|t)t(«4i*4>4»l>4(«* 


*•«♦ * 


• 


* 


*NA * 


Ix. 




♦ C3 *.X. 


X 




* * 


innm. 




♦**♦ X 


♦ ♦ 




eoj .♦. 


♦ A5 * 




CI *. 


* ♦ 




.* ♦. 


*«4<« 




NO .* SYSPARM ♦. 






...♦. SUPERVISOR .* 






*. .♦ 







.* IS MAINT 
. RTN TO BE 
♦.EXECUTED . 



B5 ♦. 

.♦ JOB ♦. 

.♦ACCOUNTING *. 

. INTERFACE . 

♦, SUPPORT .♦ 



^^(♦♦♦D !♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ RESET ♦ 

♦ SYSPARM ♦ 

♦ FIELD ♦ 

♦ ♦ 

4c 4E :([«♦««♦♦♦♦«♦♦♦♦♦ 



♦ . 



4c*4i4t^C5 ♦♦♦♦♦♦♦♦♦♦ 

♦ « 

♦ GET ADDRESS ♦ 

♦ OF ACCOUNT ♦ 

♦ TABLE ♦ 

♦ ♦ 
3|i*4c 4(4i 4i4(^^^^ ♦♦ ♦♦♦♦ 



«*D5 ♦♦♦♦♦♦♦ 

♦ ♦ 
TURN ON 
CATALOG 
SWITCH 

* ♦ 
««♦♦♦♦♦♦*♦♦ 



<(#*««£ X ♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ RELEASE ♦ 

♦ PROCEDURE ♦ 

♦ LIBRARY ♦ 

♦ ♦ 
4e**^#*4i ♦♦♦♦♦♦♦♦♦♦ 



X^ INVOKE ♦ 

♦ EOP ♦ 

♦ PROCESSOR ♦ 
#««♦♦«*♦♦♦♦♦♦*♦«♦ 



^^♦♦♦E5 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 
♦SET UP TO FETCH+ 

♦ SJOBCTLE ♦ 

♦ (BRANCH ♦ 

♦ VECTOR h\ ♦ 
««♦♦♦♦♦♦♦«♦«♦♦♦♦♦ 



*4e4t^F 5 ♦♦♦♦♦♦♦♦♦ 

♦ BRANCH TO ♦ 

♦ FETCHRF IN * 

♦ SJOBCTLA ♦ 
«4c ♦♦♦***4>*>|i^ ♦** 



♦ WAR FOR ♦ 

♦ COMPLETION OF * 

♦ LAST SYSLOG ♦ 

♦ OUTPUT ♦ 
*«*♦♦♦«♦♦♦♦♦♦♦♦♦♦ 



♦_♦-♦-*-♦-♦-*-♦-* 

♦ CHECK ♦ 

♦ SYSRDR ♦ 

♦ ASSIGNMENT ♦ 



.♦ IS 

SYSRDR 
♦.ASSIGNED 



♦ A2 ♦ 

♦ ♦ 
♦♦♦♦ 



♦♦♦♦ 

♦ * 

♦ A5 ♦ 

♦ ♦ 
♦♦♦♦ 
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Chart NE, $JOBCTLG - /S Statement Processcr (Tart 2 cf 3) 
Refer to Chart 13. 



♦♦♦* 


* « 


*ND ♦ 


**** 


* A5 *... 




* * . 




*♦*♦ X 


X 


NOCATL .*. 


N0IPT2 .♦. 


Al ♦. 


A2 *, 


.♦ IS *. 


.♦ IS ♦. 


YES .♦ LABEL *. 


NO .* EOF ♦. 


...... OPERATION .♦ 


...*. POSTED IN .*X 


♦. IN STD .♦ 


♦. PUB .♦ 


♦.MODE .* 


*. .♦ 


, * . .♦ 


X ♦. .* 


* NO 


*♦*♦ ♦ YES 




* * , 




* A4 * 




♦ ♦ . 


. 


*♦♦♦ , 


', X 


NOIPTA X 


*:|cB14<«#«4'«:|c 


*:tiQ2******* 


♦ RESET * 


* SET ♦ 


♦ LABEL ♦ 


♦ PIB AND * 


* SEQUENCE ♦ 


* PUB EOJ * 


♦ SWITCHES ♦ 


* OFF ♦ 


* -J8CSW5 * 


♦FOR SYSIPT ♦ 


. «i(c4t*4')|c«**4<4c 


4i:|>4c4<4<«4c*4e4<« 


• • 


♦ ♦♦♦ ' 


* ...xl 


* ♦ - 




* C2 ♦.X. 




* ♦ . 




♦*♦* 


X 


NOIPT X 


«4i4c*4cC ]^ :|i4c«**4<4c««4i 


4c 4e*4c«C2 ♦♦♦♦♦♦♦♦♦♦ 




♦CHKASG GU ♦ 


♦ INDICATE * 


♦_♦_*_♦_♦_♦_♦_♦_♦ 


* EOJ ♦ 


* CHECK ♦ 


* PROCESSING * 


♦ SYSRDR ♦ 




* ASSIGNMENT ♦ 


4c](<«:f«**««4c**4>*«4<* 


*«*4'*^#*««4«K>t<**4c4< 



NO .♦SYSIPT DISK^. 
...♦. OR DISKETTE .♦ 
♦. DEVICE .♦ 





> . . 


X 




.EOJPIB] 


.♦. 








83 ♦ 








♦ IS 


♦ 


.YES 


♦ 


EOJ 




... .♦ 




POSTED 


TN 




♦ . 


PIB 





♦ CLEAR * 

♦ INPUT ♦ 

♦ BUFFER * 

♦ * 



♦ EXPRG GQ+ 

♦-♦-♦_♦-*_*_»_*-♦ 

♦ READ ♦ 

♦ FROM THE ♦ 

♦ DEVICE * 



*«itc4(4cD !♦♦♦♦♦♦♦♦♦♦ 
♦USRLBL NJ+ 

♦ RESET ♦ 

♦ USER LABEL ♦ 

♦ MODE ♦ 



4c«*4c4cE !♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ TURN OFF ♦ 

♦ EOJ ♦ 

♦ PROCESSING ♦ 

♦ ♦ 



♦USRLBL NJ^ 
♦_♦-♦_♦_*_♦_*_♦-* 

♦ CLEAR ♦ 

♦ LABEL ♦ 

♦ CYL INDER ♦ 



4c4c««4eG I ♦♦♦♦♦♦♦♦♦♦ 

♦TEBS NF+ 

♦_*_♦_♦_♦_*_*_♦_♦ 

♦ CLEAR ♦ 

♦ TEB ♦ 

♦ COUNTERS ♦ 



♦♦HI^^^^+^+ 
♦ TURN ON ♦ 

♦ UNIT ♦ 
EXCEPTION 

♦ SWITCH IN ♦ 
♦SYSIPT DFB ♦ 



««««4cJl«*^««^+^^^ 
♦RSTASG NM^ 
*_♦-♦-*-♦-*-*-*-♦ 
♦RESET ALL ASSI-^ 
♦GNMENTS IF JOB ♦ 
♦NOT OUT OF SEQ ♦ 



.♦ IS ♦. 

SYSRDR 

♦.ASSIGNED .♦ 

♦ . .♦ 



^^,£2******* 

♦ SET EOF ♦ 
IN SYSRDR 

PIB AND PUB 
OFF 

♦ ♦ 



♦♦♦* 

♦ * 

♦ D3 ♦ 

♦ * 



♦GETIME NL+ 

*_*-*_♦_*_* _*_♦ _* 

♦ GET END ♦ 

♦ TIME FOR ♦ 

♦ EOJ TIME ♦ 

4c*4c«4c«««4:4c«4t««*4t* 



IS 

SYSIPT 
.ASSIGNED 



N0IPT7 

**4t4c*F 2 ♦♦♦♦♦♦♦♦♦♦ 
♦RSTASG NK^ 
*_♦_♦_*-♦_*-♦-♦_* 

* RESET ALL ♦ 

♦ I/O ♦ 
» ASSIGNMENTS ♦ 



♦♦♦♦♦G2 ♦♦***♦♦*♦♦ 

* SET UP EOJ ♦ 

* MESSAGE ♦ 

* AND RESET ♦ 

* JOB NAME ♦ 

* TO NONAME ♦ 

:«c4c4:4c«%4:4c4c4t:(c4c4c4c4c4i4c 



*4c**«H2^^^^^^^^^^ 

* RESET JOB ♦ 

* NAME IN SAVE ♦ 

* AREA FOR THIS ♦ 

* PARTITION ♦ 

* * 

^c^ilc^^^c*^****^^*^'* 



♦♦♦♦♦J2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ PUT TIMER ♦ 

♦ VALUE IN ♦ 

♦ LOC WRKFLD ♦ 

♦ ♦ 



♦»***K2 ♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ GET END ♦ 

♦ TIME FOR ♦ 

♦ DURATION ♦ 

♦ * 
*«4c««««4i««4c4c«««:tc4c 



4c«4c4<*P3i|c4c4:^4c«4c*4c« 

♦ CALCULATE ♦ 

♦ JOB DURATION ♦ 

♦ AND SAVE ♦ 

♦ IN WRKFLD ♦ 

♦ « 

>(c:(ci|c4c«4c«4c«*« ic^c^* «* 



_*-♦_♦_♦_♦_♦_*-* 

♦ CONVERT ♦ 

♦ TIME TO ♦ 

♦ HH/MM/SS ♦ 
^^*^if ************ 



NODURl 

««4c«4<H3 ♦♦♦♦♦♦♦♦♦♦ 
♦lOROUTW NN+ 
*-*-*-*-♦-*-*-♦-* 

♦ WAIT FDR ♦ 
♦PREVIOUS SYSLOG^ 

♦ I/O TO FINISH ♦ 

**:t:************** 



**** 

♦ * 

♦ D4 * 

♦ ♦ 
**** 



.♦ JOB ♦. 
NO .♦ACCOUNTING ♦. 
..♦. INTERFACE . 
♦. SUPPORT .♦ 



*****^fy********** 
♦GETIME NL^ 

*_»_*_*_*_♦_:»:_#_* 

♦ GET EOJ TIME ♦ 

♦ FOR JOB ♦ 

♦ ACCOUNTING ♦ 

>)c*4c4c««**4c4'*)t<«#*4c« 



**fe^******* 

* SET JOB ♦ 
♦ACCTG INTER- ♦ 

♦FACE BP. SW ANO^ 
♦ EOJ RECORD ♦ 

♦ INDICATOR ♦ 
*i^********* 



*****Qe^*********itc 

♦ PUT EOJ TIME ♦ 

♦ IN ACCOUNT ♦ 

♦ TABLE AS * 

♦ PACKED ♦ 

♦ DECIMAL ♦ 

4c 4c « # !(c 4i !te 4c 4c * 4: 4i:<c :4c 4i 4: :tc 



ACCTIGN2 .♦. 

H4 ♦. 
-♦ 


NO 
. ..♦ 


.♦ 

*♦ 


TOD 
SUPPORT 
PRESENT 



♦ ♦♦**J44c***4c***** 
♦SET JOB ZONE = ♦ 

♦ SYSTEM ZONE. ♦ 

♦ GET EOJ-TIME ♦ 

♦ FROM WRKFLD FOP + 

♦ PRINTOUT ♦ 
,ii***i^************ 



4c«4c<c4cK3 ♦♦♦♦♦♦♦♦♦♦ 

♦ MOV E ♦ 

♦ DURATION ♦ 

♦ TIME FOR ♦ 

♦ PRINTOUT ♦ 

♦ TO LOGTIM ♦ 

**************i):ili:* 



*****i(^/f.********** 

♦ * 

♦ SET MESSAGE ♦ 

♦ CHARACTER ♦ 

♦ LENGTH TO 46 ♦ 
4c * 
4c«4c4c4c4c4c4c4c«4c4c«4c**4c 



**4c4c 

♦ ♦ 

♦ B5 ♦ 
4c * 

**** 



.♦ VALID ♦. 
. JOB NAME 
♦.TN BUFFER. ♦ 



4< 4c 4c 4c4cC5 ♦♦♦♦♦♦♦♦♦♦ 

♦ 4c 

♦ SET ♦ 

♦ CHARACTER ♦ 

♦ LENGTH TO ♦ 

♦ 28 ♦ 
41 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4< 4c 4< 4c 4> 



4c«4c 4c 4cD5 ♦♦♦♦♦♦♦♦♦♦ 
♦TI MOUT NL+ 

4c_4c-4c-4<~*-*-*-^*~* 
♦ LOG TIME ♦ 



4c4c4c<c*E5 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ PESET ♦ 

♦ LINE COUNT ♦ 

♦ TO 1 ♦ 

♦ * 
4c4'*4c4c4c4c4<««4c4c*«*4c4c 



F5 ♦. 

.♦ PAUSE ♦. 

AT EOJ 

REQUESTED 



4c4cG 5 ♦♦♦♦♦♦♦ 

* SET ♦ 
JCSWl 

FOR 
SJOBCTLA 

* * 

4c4c4c4c4c*4c4c4c4c4: 



NOPSE X 

♦4cH5 ♦♦♦♦♦♦♦ 

♦RESET LINK ♦ 

♦CONTROL BYTE ♦ 

♦ IN JCSW2 BITS ♦ 



4c4c4c4c4c4<*4c^*4c 



4c 4c J5 4c 4c 4c 4c 4c 4c 4c 

* PESET ♦ 

JCSW3 AND 

JCSW4 TO 

STANDARD 

4c 4c 

4c4c4c4c4c4c4c4c4c4c4c 



4c 4c 4c 4c 4c 

♦ NB ♦ 

* r,2 + 

4c * 
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Chart NF. $JOBCTLG - /8 Stateirent Processor 
Refer to Chart 13. 



(Part 3 of 3) and CANCEL Statement Processor 



*♦♦* 
* ♦ 

♦ A2 ♦ 



♦ * 

♦ TEBS * 

♦ ♦ 



.♦ ANY *. 

TEB 

». PRESENT .♦ 

*. .* 



* LOAD AOOR ♦ 

* OF PUB ♦ 

* TABLE IN * 

* -POINTl- * 

* ♦ 



♦♦01******* 

* SET HDR. * 

* LIST SWITCH 

* TEB HDR 

* TO NOP 

♦ * 

♦♦*♦ 

♦ El * 



PUB 
. TABLE . 
*. .♦ 



61 ♦. 

.♦DEVICE ♦. 

NO ,* A TAPE OR *. 

..♦TAPE CARTRIDGE .♦X. 

♦. READER .♦ 



HI ♦. 
.♦ UNIT ♦. 
NO .♦BELONGS TO ♦. 
X..^. THIS 

♦. PARTITION. ♦ 



♦ ♦♦♦♦J l«*«4t««4c«:tc4c 

♦ COMPUTE ♦ 

♦ ADDRESS ♦ 

♦ OF TEB ♦ 

♦ ENTRY ♦ 

♦ * 



.♦ NOP ♦. OFF 
.♦ FOR ♦. BR 
♦.PRINTING TEB .♦.., 
♦. HEADER .♦ 



♦ SET TEB ♦ 
HEADER 

SWITCH TO 
OFF 

* -BR- ♦ 



♦ CLEAR AND ♦ 

♦ LOAD ♦ 

♦ OUTPUT ♦ 

♦ BUFFER ♦ 

♦ * 
^c^^^Jf ♦♦♦♦♦*♦♦♦♦♦♦ 



♦ LOG MAGNETIC ♦ 

♦ TAPE ♦ 

♦ ERRORS ♦ 
^^♦♦♦♦♦♦♦♦♦♦♦♦«*« 



«4c4c««E2 ♦♦♦♦♦♦♦♦♦♦ 

♦ CLEAR OUTPUT ♦ 

♦ MOVE SECOND ♦ 

♦ HEADER IN ♦ 

♦ ♦ 
« *4i:tc« * *4t4t4c *«* ♦ ♦3»i« 



♦MSGOUT GJ+ 
♦-♦-♦- ♦_♦_♦_#_♦-♦ 

♦ LOG 'CH. UNIT ♦ 

♦ PRE WTE ♦ 

♦ ERB NRC* ♦ 



♦ CLEAR ♦ 

♦ OUTPUT ♦ 

♦ BUFFER ♦ 

♦ * 



♦ ♦ 

♦ UNPACK ♦ 

♦ CHANNEL ♦ 

♦ AND ♦ 

♦ UNIT ♦ 
^^^^(♦♦♦♦♦♦♦♦♦«^*«« 



*4c««4tJ2 ♦♦♦♦♦♦♦♦♦♦ 

♦ TRANSLATE AND ♦ 

♦ MOVE CHANNEL ♦ 

♦ AND UNIT NO. ♦ 

♦ TO OUTPUT ♦ 

♦ BUFFER ♦ 



♦ CLEAR WORK ♦ 

♦ REGISTER ♦ 

♦ -WRKRG4- ♦ 

♦ ♦ 

♦ ♦ 
^^((^^[^♦♦♦♦♦♦♦♦♦♦♦^ 



X.. 



TEBLOP 

^^^♦♦B3 ♦♦♦♦♦♦♦♦♦♦ 

♦ CONVERT AND ♦ 

♦ MOVE COUNT ♦ 

♦ FROM TEB TO ♦ 

♦ OUTPUT BUFFER ♦ 

♦ ♦ 
^^(♦♦♦♦♦♦♦♦♦♦♦♦♦♦« 



♦ GET ADDRESS ♦ 

♦ OF NEXT ♦ 

♦ COUNT BYTE ♦ 

♦ AND PRINT ♦ 

♦ POSITION ♦ 
*«««♦♦♦«♦♦♦*♦♦*«« 



D3 ♦. 
.♦ ANY ♦. 

♦ MORE ♦. YES 
COUNT .♦... 

♦ . BYTES .♦ 

*, ,♦ 

♦ . .♦ 
♦ NO 



♦♦♦♦ 

♦ ♦ 

♦ B4 ♦ 

♦ * 
♦*♦♦ 



BA ♦. 
.♦IS ♦ 
.♦ JOB IN 
N. PROGRESS 



♦ CLEAR OUTPUT ♦ 

♦ BUFFERf MOVE ♦ 

♦ JOB NAME INTO ♦ 

♦ CANCEL ♦ 

♦ MESSAGE ♦ 
H^^fif* ************* 



*i^*:^*Qi^**:^***it^*** 

♦MOVE MSG, 'JOB ♦ 

♦ NAME CANCELED ♦ 

♦ DUE TO OPTR ♦ 

♦ INTR.' TO ♦ 

♦ OUTPUT APEA ♦ 
***if*tt*********** 



****(^^ ********* 

* * 

* CANCEL ♦ 

* ♦ 

*i^**:i)i*tf******** 



****^t^-3*********^ 


itt****^it********** 


♦ MSGOUT 6J^ 


♦LOGOUT GJJ 










♦ OUTPUT ♦ 


♦ WR I TE ♦ 

♦ MESSAGE ON ♦ 


♦ LINE ♦ 


* ♦ 


♦ SYSLOG ♦ 


^f*****^*i)f******itL* 


*****^c**-tc*^i*ti**** 


**** * 


• 


♦ ♦ , 




♦ F3 ♦.X. 




♦ ♦ . 




♦♦♦♦ 


X 


TBNXPB X 


.♦. 


***^itifi***1c4t***** 


FA ♦. 


♦ SET POINTER ♦ 


.♦ TO BE ♦. 


♦ TO NEXT ♦ 


NO .♦PUT OUT ON ♦. 


♦PUB AND TO NEXT^ 


...♦. SYSLST .♦ 


♦ PUB OWNER ♦ 


♦ . .♦ 


♦ ENTRY ♦ 


♦ * .♦ 




♦ . .♦ 


. 


♦ YES 



♦H3 
THE CANCEL CODE IS 
SET FOR OPERATOR 
INTERVENTION 
CANCEL 



1liilfiti#itiQif**-tt:t,****** 

♦LSTOUT GJ^ 

*_*_♦_♦_♦_*_*_♦_* 

♦ WRITE ♦ 

♦ MESSAGE ON ♦ 

♦ SYSLST ♦ 
*************^i*** 



♦♦♦♦ 

♦ ♦ 

♦ F3 ♦ 

♦ ♦ 
**** 



Kl ♦, 

.♦ ANY ♦ 

NON-ZERO 

ENTRIES 



*♦** 

♦ « 

♦ A2 ♦ 

♦ ♦ 



* 


GET FIRST ♦ 


* 


PRINT POS. ♦ 


♦ 


NUMBER OF ♦ 


* 


BYTES TO BE ♦ 


* 


LISTED ♦ 


if^*1f*iti*t**:^***1f*^f^f 




X 




*♦♦* 




* * 




* A3 ♦ 




* ♦ 




**** 



NOTLIST 

:ti*»i^******* 

♦SET CANCEL ♦ 

♦ AND SYSRDR ♦ 
♦INPUT INDICATORS 

♦ SWITCHES IN ♦ 
♦ JCSWl ♦HB ♦ 



.♦ WAS ♦. 
.♦JOB OUT OF ♦. YES 
. SEQUENCE .♦..X 



♦RSTASG NMS 

♦ RESET ALL ♦. 

♦ I/O ♦ 

♦ ASSIGNMENTS ♦ 



**i^**Cs ********** 
♦PENOl NS^ 
#_♦-♦_♦_♦-♦_♦-♦_♦ 

♦ INVOKE ♦ 

♦ EOP ♦ 

♦ PROCESSOR ♦ 
*if*************** 



♦♦D5 ♦♦♦♦♦♦♦ 

♦ SET ♦ 
♦INCLUDE MASK ♦ 

* OFF ♦ 
♦ JBCSWA, ♦ 

♦ BIT 6 ♦ 
*********** 



♦♦♦♦ 

♦ ♦ 

♦ BA ♦ 

♦ * 
**** 



****[(^^ ********* 

♦ BRANCH TO ♦ 
.X^ CONTROL IN ♦ 

♦ ^JOBCTLA ♦ 
** ************* 
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Chart NG. $JOBCTLG - CPTICN Statement Prccesscr (Fart 1 cf 4) 
Refer to Chart 12. 



m 


* 


* OPTION * 


* * 


«4c«««:(c««4t4e:(c4i«4:i(c 


**♦* 




* * 




* Bl *.X 




♦ ♦ 




***♦ 




PTION X 


4c:{c^:(i4cB 1 ^'♦^c^^f***^^:^' 


♦SCANR2 GK* 


*_*_♦-♦_♦_*_♦_*_♦ 


♦ GET * 


* OPEF 


AND * 



««««4c**««««««)«!«4<« 



CI *. 
.* DID *. 
.* EQUAL *. YES 
*. END .*.... 

*. SCAN .♦ 



C2 *. 
.* IS ♦. 

OPERAND *. NO 
•SYSPARM=' .♦.,, 



.* 



* RESET TO * 

* ZERO THE * 

* VECTOR ENTRY * 

* DISPLACEMENT ♦ 

* -P01NT2- * 



El *. 
.* DOES *. 
* OPERAND *. NO 
START WITH .♦... 
,♦ 



*. 



.♦ 



♦ * 

♦ ADJ REGS FOR * 

♦ -NO- OPTION. ♦ 

♦ ♦J 2 ♦ 

♦ * 



NOTNOS .*. 

Gl *, 
.* IS. *. 
.* OPERAND 
♦ . 1 TO 8 
*. CHAR IN . 
*LENGTH,* 
*. .* 
* YES 



* STORE OPERAND * 

* IN OPTION * 

* TABLE AS * 

* DELIMITER. * 

* # 



4c4<«**J l*«4c****4c** 

* INIT REG, ♦ 

* POINTl, AS ♦ 

* POINTER TO * 

* OPTION TABLE ♦ 

* LESS 12 BYTES * 



BTLOOP X 

* LOAD ADDRESS * 

* OF NEXT * 

* OPERAND ENTRY * 

* INTO POINTl * 

* * 
4>** **** 4(4( ****** «* 



.*. 
C3 *. 
.* DOES *. 
.* TABLE ♦. NO 
. ENTRY EQUAL .*... 
♦. OPERAND .* 
*, *B4 .* 
*. .* 
* YES 



* LOAD ADDR OF * 

* CORRECT ♦ 

* ROUTINE INTO * 

* LINKRG3 * 

* * 



4[«*«:*E34(4c**4<**>|c«« 

* EXIT TO * 

* CORRECT * 

* PROCESSOR ♦ 

* SEE TABLE A * 

* *C4 ♦ 

!(t4c«4i*4t4c4<**4e*4e*<< « * 





.* DID ♦. 


NO 


♦ A BLANK ♦. 


. . .* 


END THE LAST . 




♦ . SCAN .* 




*. *CA .* 


X 


*. .♦ 


*♦♦* 
* 
Bl * 


* YES 






* 






♦*♦* 


> 




4c«*4tG3«*'C*4<*«*« 


* 


BRANCH TO 


* 


CONTROL IN 


* 


SJOBCTLA 


4c4c«***4<< 


c^t****** 



*J2 
1. 
2. 



****H2 ♦**♦*♦*♦* 

* BRANCH TO * 

* NVSERR IN * 

* $JOBCTLA * 
4c««*4t4<4<«4c*«***« 



P0INT2 EQ 2 
POINTl EQ ADDR 
OF XXX OF NOXXX. 
CHAR CCUNT IN 
P0INT3 IS REDUCED 
BY 2. 



*B4 
BECAUSE THE OPERAND HAS 
BEEN STORED IN THE TABLE 
AS A DELIMITER, IT IS 
NOT POSSIBLE TO SEARCH 
THE ENTIRE TABLE WITHOUT 
FINDING AN EQUAL. 



*C4 
EACH PROCESSOR RETURNS CONTROL 
TO BLOCK F3 UNLESS AN INVALID 
OPERAND IS SPECIFIED. CONTROL 
IS TRANSFERRED TO NVOPTN AT 
BLOCK C2 IF AN INVALID OPERAND 
IS SPECIFIED. 



TABLE 


A 






.OPERAND . 


CHART 


. FLOWCHART LABEL . 


.DECK 


NH 


. DECK 




.NODECK . 


NH 


. NODECK 




rLisf*"*: 


NH 


. LIST 




.NOLIST . 


NH 


. NOLIST 




• LISTX 


NH 


. LISTX 




.NLISTX . 


NH 


•:*NListx 




.SYM 


NH 


. SYM 




.NOSYM 


NH 


. NOSYM 




.XREF 


NH 


. XPEF 




.NOXREF . 


NH 


. NOXREF 




:erVs"***: 


NH 


':*ERRS 




.NO ERRS . 


NH 


. NOERRS 




• ABC 


NH 


. 048 




.60C 


NH 


. C60 




.LOG 


NK 


. OPTLOG 




.NOLOG 


NH 


. OPTNLOG 




.USRLABEL. 


NJ 


. USRLBL 




.STDLABEL. 


•nj 


•."STDLBL 




.DUMP 


NK 


. DUMP 




.NO DUMP 


NK 


. NODUMP 




.LINK 


NJ 


. LINK 




.NOLINK . 


NK 


. NOLTNK 




.CATAL 


NJ 


. CATAL 




.PARSTD . 


NJ 


. PARSTD 




.SYSPARM=. 


NK 


. SYSPRM 




.ALIGN 


NH 


. ALIGN 




.NOALIGN . 


NH 


. NOALIGN 




.EDECK 


NH 


. FOFCK 




.NOEDECK . 


NH 


. NOEDECK 
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Chart NH« $JOBCTLG - CPTICN Stateirent Processor (Fart 2 of 4) 
Refer to Chart 12. 



* * 

• DECK ♦ 



* SET ♦ 
DECK 

SWITCH 
TO ON 

* * 



♦ « 

♦ NODECK ♦ 

♦ ♦ 



* SET * 
DECK 

SWITCH 
TO OFF 

* « 



«*4t*A34ntE4c*4t***« 

* LIST * 

* * 



* * 

* NOLI ST ♦ 

* * 



X 


NOLI ST X 


^c^Ba ♦*««««* 




SET ♦ 


* SET 


LIST ♦ 


* LIST 


SWITCH * 


♦ SWITCH 


TO ON ♦ 


* TO OFF 



X 



4c#*««#4c4'4t4c« 



* LISTX ♦ 

* * 



41 itcBS *=«<**♦*# 

* SET * 
LISTX 

SWITCH 
TO ON 

* ♦ 



♦***C I********* 

♦ ♦ 

♦ NLISTX ♦ 

♦ « 



* SET 

♦ LISTX SWITCH 

* OFF 

* ♦ 



♦ * 

♦ SYM ♦ 

♦ * 



♦ * 
SET 

SYM SWITCH 
ON 

* * 



♦ NOSYM ♦ 

♦ ♦ 



**03 *♦»**** 

* * 

* SET 

* SYM SWITCH 

* OFF 



* ♦ 

* XPEF ♦ 

* * 



♦♦*«C5 ********* 

* * 

* NOXREF * 

* * 
*)((«************ 



X 


NOXREF X 


)|(*Q4«4c***** 


♦♦05******* 


* 


* SFT 


SET * 


* XREF 


XREF SWITCH * 


* SWITCH 


ON * 


* OFF 



*********** 



;«c4e««4e****** 



* * 

* ERRS * 

* * 



«*GX*4:***** 

* ♦ 

* SET ♦ 
* ERRS SWITCH ♦ 

♦ ON ♦ 

* * 
iic«i4=******** 



**4c«(:2********* 

* ♦ 

* NOERRS ♦ 

* ♦ 



**G2 ******* 

* * 
SET 

ERRS SWITCH 
OFF 

* * 



*#4t*F3 ********* 

» * 

♦ C48 * 

* * 



♦*G3******* 

* ♦ 
* SET * 

* INDICATOR FOR 
♦48 CHARACTER * 

* SET * 
*********** 



«#«:((P4# :((«****** 

* * 

* C60 * 

* ♦ 
«*#«*********** 



4c«G4******* 

* * 
*SET INDICATOR* 

* FOR 60 * 

*CHARACTER SET* 

* * 



****F5 ********* 

* * 

* OPTNLG * 

* * 
«:4t4c*#**^«X<***** 



♦*G5******* 

* * 
SFT PROGRAMMER* 

* LOG INDICATOR 
* OFF * 

* * 
:4C4'** ******* 



♦♦**H2********* 

* * 

* ALIGN * 

* * 
«««««««**«***** 



♦*J2******* 

* * 

* SET 

* ALIGN SWITCH 

* ON 

* * 



****H3 ********* 

* * 

* NOALIGN * 

* * 



* SET 
ALIGN SWITCH 

* OFF 

♦ * 

4c:|c4(«*4:4>**** 



«:|c««H4********* 

* * 

* EDECK * 

* * 
«#««*********** 



♦♦J4******* 

* * 

* SET * 
* EDECK SWITCH * 

* ON * 

* * 

i«c4c********* 



«:(ci{c«H5 ********* 

* NOEDECK * 

* * 

:«e«^4c:«c4'********* 



* SET 
EDECK SWITCH 

* OFF 

* * 

A)«c*:«cXc4c***** 



♦♦♦♦K5 ********* 

* RETURN TO * 

* CALLER * 

* ♦ 
*«««*««***««**« 
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Chart NJ. $JOECTLG - CPTICN Statement Processor (Part 3 of U) 
Refer to Chart 12. 



♦♦♦♦Al********* 

♦ ♦ 

♦ CATAL * 

♦ ♦ 



* PCIL *. YES 
SUPERVISOR .♦... 
*. .* 



♦_♦_♦_♦_♦_♦_♦_♦_♦ 
♦CHECK VALIDITY ♦ 
♦ -VALID FOR BG ♦ 
♦ONLY- *K1* 
«4c«3f *««*««♦♦♦*♦*« 



:4t4c««A2 ♦♦*♦♦♦♦♦♦ 

♦ * 

♦ LINK ♦ 

♦ * 



* PCIL ♦. YES 
SUPERVISOR .*... 

♦ . .♦ 



4<:«4t*«c 2 ♦♦♦♦*♦♦♦♦♦ 
♦NVOERR NR* 

*-♦-*- *-♦- ♦-*-♦-♦ 
♦CHECK VALIDITY ♦ 
♦ -VALID FOR BG ♦ 
♦ONLY- ♦Kl^ 

4t«4<«* ♦♦«♦♦♦♦♦♦)««♦ 



♦♦♦♦A3 ♦♦♦♦♦♦♦♦♦ 

* « 

* STDLBL ♦ 

* * 



PCILSUP X 


PCILSUPR .♦. 




iO(4i««4tD l^**:tiiti:ti**** 


D2 ♦. 




♦CHKLNK NM^ 


.♦ ♦. 




♦_♦_*_«_♦_♦_♦_♦_* 


.♦ CATAL ♦. YES 


♦ CHECK SYSLNK ♦ 


♦. OPTION .♦ 




♦ASSIGNMENT AND ♦ 


♦. SPECIFIED. ♦ 




♦TYPE ♦Kl^ 


♦ . .♦ 




*4t«««4<«4c*^^^*«^4<^ 


♦ . .♦ 


X 


I 


♦ NO 


♦ NR ♦ 

♦ E5^ 
♦ * 

OTSER 


X 


X 




4(*«4c«E !♦♦♦♦♦♦♦♦♦♦ 


4i3|c«««E2 ♦♦♦♦♦♦♦♦♦♦ 




♦OPNLNK NL^ 


♦CHKLNK NM+ 




^(-♦-♦-♦-♦-♦_*_#_* 


♦_«_♦_*_*_*_♦_,»<_♦ 




♦ OPEN ♦ 


♦ CHECK SYSLNK ♦ 




♦ SYSLNK ♦ 


♦ ASSIGNMENT ♦ 





«*4>*^C3^^ ♦♦♦♦♦♦♦♦ 
♦L8L0UT NQ+ 

♦_♦_*_♦_*-♦_♦_#_♦ 

♦CHECK PREVIOUS ♦ 
♦ LABEL ♦ 

♦OPERATIONS ♦Kl^ 



♦ SET INDEX TO ♦ 

♦ BEGIN OF STD ♦ 

♦ LABEL AREA ♦ 

♦ IN ALLOC TBL ♦ 

♦ * 



* V 

* PAR STD * 

* * 



PARSTD X 

♦LBLOUT NO* 

♦CHECK PREVIOUS ♦ 
♦ LABEL * 
♦OPERATIONS ♦KI^ 



♦SET TRK, INDEX * 

♦ TO BEGIN. OF * 

♦ PARTITION STD * 

♦ LBL AREA IN * 

♦ ALLOC TABLE ♦ 



4e**4c4<>I'«*4>«^^«4<:(c*« 



♦ SET THE ♦ 
EXEC SWITCH 
TO OFF AND 
LINK SW. ON 

♦ ♦ 



♦ ♦^♦♦♦♦♦♦^ 

♦ SET CATAL ♦ 

SWITCH 



##4>##4t4i4c4c«# 



«:)(«««(: 2 ♦♦♦♦♦♦♦♦♦♦ 

♦OPNLNK NL^ 

♦ OPEN ♦ 

♦ SYSLNK ♦ 

♦ ♦ 



♦*G2^^^^^^* 

♦ SET EXEC ♦ 
SWITCH OFF 
LINK SWITCH 

ON 

* ♦ 



♦ BRANCH TO ♦ 

♦ NVSERR IN ♦ 

♦ $JOBCTLA ♦ 



TURN OFF 

BNPMSK IN 

JBCSW5 

♦ ♦JA ♦ 



* SET ♦ 

♦ REMAINING 
TRK CAPACITY 

♦ TO INDICATE 

* NEW AREA ♦ 



♦ * 

♦ ZERO KEY ♦ 

♦ AND DATA ♦ 

♦ LENGTH * 

♦ * 



♦LBLOUT NQ^ 
*-*_*_*_♦-*-♦_*-♦ 

♦ CHECK * 

♦ LABELS ♦ 

♦ * 



♦♦ ♦♦AS ♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ USRLBL ♦ 

♦ * 
^^^'♦♦^♦♦^♦^'♦♦♦^ 



USRLBL X 

♦♦♦**B5 ♦♦♦♦♦♦♦♦♦♦ 
♦LBLOUT N0+ 

♦CHECK PREVIOUS ♦ 
♦ LABEL ♦ 
♦OPERATIONS ♦Kl^ 



♦ SET THE ♦ 
INDEX TO BEGIN. 

♦ OF USER LABEL ■■ 
* AREA IN TRK ♦ 

♦ ALLOC TBL ♦ 



. USRLBLl X 

♦ SET ♦ 

♦ REMAINING 
♦ TRK CAPACITY 

* TO INDICATE 

♦ NEW AREA ♦ 



♦♦♦♦H5 ♦♦♦♦♦♦♦♦♦ 

* RETURN TO ♦ 

* CALLING SEO ♦ 

* * 



♦J 4 
BNPMSK IS 
BLOCK NOT 
PRESENT 
INDICATOR 
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Chart NK. $JOBCTLG - CPTICN Statement Processor (Fart ^ cf 4) 
Refer to Chart 12, 



♦ SYSPRM * 

♦ ♦ 



SYSPRM 

♦ LOAD ADDR ♦ 

♦ OF COMM ♦ 

♦ REGION ♦ 

♦ EXTENSION ♦ 

♦ ♦ 



.♦ SYSPARM 
. SUPERVISOR 

*. .* 



* * 

* GET ADDR ♦ 

* OF ♦ 

* SYSPARM * 

* FIELD ♦ 



♦PICK UP POINTER* 

* TO OPERAND » 

* AND SAVE AREA * 

* FOR CHARACTER * 

* STRING * 





♦*♦♦ 

* ♦ 


X 

.."is''-.. 

.♦CHAR STRING*, 
FIELD 


X 

.."is"'-.. 

YES YES .* CHAR 
♦ ,,, ,♦, STRING 6T 8 


♦.EXHAUSTED.* 
♦ NO 


. ♦. . 
. ♦. •♦ 
X ♦. .♦ 
***♦ * NO 

♦ ♦ 

♦ F* ♦ 

♦ ♦ , 
*♦*♦ 



♦♦♦♦ 

♦ ♦ 

♦ A3 ♦ 

♦ ♦ 
♦♦*♦ 



4(4c«4>«B34t«**4i4t4t««4i 

♦ MOVE CHAR * 

♦ TO SAVE AREA ♦ 

♦ AND SAVE AREA ♦ 

♦ POINTER ♦ 

♦ ♦ 







.* 


*. 


• NO 


,* 




IS 


X...* 




CHARACTER 




♦ 




QUOTE . 






» 


i .* 


X 






♦ , ,* 


♦♦♦* 






♦ YES 


* 








t F4 ♦ 








♦ 






X 


♦*** 






**** 



««]|c4cE2 **♦**♦♦** 

* * 

* NOLINK * 

* « 



««|:2******* 

SET LINK 

SWITCH TO 

-OFF- 

* * 

:«(«««4t**^*** 



QEND ^,»*-^ 

.♦IS *. 
.♦ NEXT CHAR *. NO 
*• A QUOTE •*••.• 


NDSCAN .*. 

F6 *. 
.* DID *. 
.♦ A BLANK *. YES 
....X^. OR COMMA •♦•••.• 


SETAREA 

««4>**E 5 ♦♦♦♦♦♦«♦** 

♦ POINTER FOR ♦ 
• •• X^ NEXT ♦ 


*. .♦ 
♦ . .* 
♦ YES 


♦.END SCAN .* 
*• .* 
♦ . .♦ 
♦ NO 
♦*** , 

* ♦ , 

* F4 *.X. 

* * . 


* ENTRY * 

♦ ♦ 


* MODIFY BRANCH * 

* AT STILOK * 

* TO 60 TO ♦ 

* MVQUO * 

* ♦ 


♦♦♦* 

X 

♦ BRANCH TO * 

♦ NVSERR IN ♦ 

♦ SJOBCTLA * 


X 
4i#4t«4cF5 ♦*♦♦♦♦♦*♦♦ 

♦ MOVE LENGTH ♦ 

♦ AND PARAMETER ♦ 

♦ TO ♦ 

♦ SYSPARM ♦ 

♦ FIELD * 
«4>«:(c«#*4i«4'*^^**** 



* * 

* NODUMP * 

* ♦ 



♦♦J2*^^*+** 

* * 
SET DUMP 
INDICATOR 

-OFF- 

♦ ♦ 



«4i^*H3******^^^ 

* ♦ 

* DUMP * 

* * 



♦*J3***^^+* 

♦ ♦ 

SET DUMP 

INDICATOR 

-ON- 

♦ * 
*«*♦*«*♦»♦« 



* ♦ 

* OPTLOG * 

* ♦ 



* ♦ 

♦SET PROGRAM- 

♦ MER LOGICAL 

♦ INDICATOR 

♦ -ON- ♦ 



* WRITE OUTPUT * 

* ON * 

* SYSLST ♦ 



:>|(#4<^K5 ♦**♦♦♦♦♦♦ 

♦ RETURN TO * 

♦ CALLER ♦ 

♦ * 
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Chart NL. $JOECTLG - Time Stairping Subroutines 
Befer to Chart 13. 



♦ GETIME ♦ 

* * 



GETIME 

♦LOAD THE TIMER * 

♦ AND TIME OF ♦ 

* DAY INTO REGS ♦ 

* AND 1 ♦ 

♦ ♦ 



♦ SHIFT RIGHT 8 * 

♦ BYTES ♦ 

♦ DISCARDING THE ♦ 

♦ LOW ORDER ♦ 

♦ TIMER BYTE ♦ 



♦SUB RO FROM Rl * 
♦SUBTRACTING THE^ 

♦ TIMER FROM HE ♦ 

♦ TTMF IFAUING ♦ 
♦ACT TIME OF DAY^ 



♦ BOOTHS ♦ 

♦ WRKRG3 TO ♦ 

♦ SECONDS ♦ 

♦ ♦ 
^^^^^'♦♦♦♦♦♦♦♦♦♦♦* 



♦ ♦ 

♦ GETIME I ♦ 

♦ ♦ 



♦ GET TIME ♦ 

♦ MACRO ♦ 

♦ BINARY VALUE ♦ 

♦ ♦ 



TOD ♦. YES 
SUPPORT ...... 

.♦ 



♦♦♦♦D2+^+^*+*++ 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ SEQUENCE * 

4c*4c^ «*«>«« ****** 



4i3(c««G l****+** + * 



4t««««4t«4c**«^*^^ 



GET DAT 

4(***«H I********** 

♦ MOVE ♦ 

♦ SYSTEM DATE ♦ 

♦ FROM COMREG * 

♦ TO WRKFLD ♦ 

♦ ♦ 
♦♦*♦****♦«**♦♦♦♦* 



♦ « 

♦ FORMAT ♦ 

♦ TO * 

♦ ../../.. * 

♦ * 



4c«*«K I********* 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ SEQUENCE ♦ 



G2 ♦. 

.* TIME ♦. 
STAMP ON 
SYSL06 SW 



* TURN OFF * 
TIME STAMP 

SWITCH 
JBCSW4 

* BIT 3 ♦ 



♦♦♦♦♦J2 ♦♦♦♦♦♦♦♦♦♦ 

♦ SUBTRACT I ♦ 

♦ FROM MSG * 

♦ LENGTH AND ♦ 

♦ STORE IN MOVE ♦ 
*T0 BUFFER INST.^ 



^^(^♦♦KZ ♦♦♦♦♦♦♦♦♦♦ 

* « 

* PUT TIME ♦ 

* IN ♦ 

* BUFFER+72 ♦ 

* * 

:|c«:tc *« i|c 4< *♦♦♦♦♦*♦ «♦ 



4c«««A3 ♦♦♦♦♦♦♦♦♦ 

♦ GETIME2 ♦ 

♦ ♦ 
****«4c*4c ♦♦♦♦♦♦♦ 

♦♦♦* 

♦ ♦ 

♦ 83 ♦.X 

♦ ♦ 
*♦♦♦ 

GETIME2 X 

4i4c***B3 ♦♦♦♦♦♦♦♦♦♦ 

♦ DISREGARD ♦ 

♦ FRACTIONS OF ♦ 

♦ SECOND AND ♦ 

♦ CONVERT TO ♦ 

♦ MINUTES ♦ 



♦ SAVE THE * 

♦ SECONDS IN ♦ 
♦Rl AND CONVERT ♦ 

♦ TO HOURS ♦ 

♦ ♦ 



4(**««03^^ ♦♦♦♦♦♦♦♦ 

♦ CONVERT THE ♦ 
♦HOURS, MINUTES, ♦ 

♦ AND SECONDS * 

♦ TO DECIMAL * 

♦ * 



4i4t*«4tE3 ♦♦♦♦♦♦♦♦♦♦ 

♦ UNPACK * 

♦ THE HOURS, ♦ 

♦ MINUTES AND ♦ 

♦ SECONDS TO ♦ 

♦ BCD ♦ 



«4c*^^F3^^^^^^^^^« 

♦ INSERT ♦ 

♦ DELIMITER ♦ 

♦ AT TIME ♦ 

♦ AREA ♦ 

♦ ♦ 



^^'♦♦GB^^^^^^^^^ 

♦ RETURN TO * 

♦ CALLING ♦ 

♦ SEQUENCE * 
«*«««««* ^(♦♦♦♦♦^ 



♦♦♦♦A4^^^^^^^^^ 

♦ TIMOUT ♦ 

He ♦ 



.♦ 
• .♦ 
♦ YES 



♦ ♦ 

♦ STORE ♦ 

♦ LENGTH ♦ 

♦ IN CCW ♦ 

♦ * 



♦GETDAT NL+ 

*_♦_♦_♦_♦_♦_*_♦_♦ 

♦ GET ♦ 

♦ FORMATTED ♦ 

♦ DATE ♦ 



♦ MOVE * 

♦ TIME ♦ 

♦ INTO * 

♦ BUFFER * 

♦ * 



♦ TURN ON ♦ 
TIME STAMP 

ON SYSLOG 
SW. JBCSW4 

♦ BIT 3 ♦ 
^^(♦♦♦^♦♦♦♦4< 



♦ SET CCW ♦ 

♦ CHAIN TO ♦ 

♦ SPACE OVER * 

♦ PARTITION ID ♦ 

♦ * 



YES .♦ MULTI- ♦. 
X..+ . PROGRAMMING .♦ 
♦.ENVIRON- .♦ 
♦,MENT .♦ 



♦ SET CCW CHAIN ♦ 

♦ TO SUPPRESS ♦ 

♦ SPACING ♦ 
♦OVER PARTITION ♦ 

♦ I.O. ♦ 
«:(»(<♦♦♦♦♦«♦**♦♦*♦♦ 



TIMOUTl 

♦MSGOUT GJ+ 

♦_♦-*-*-♦_*-*-*-* 

♦ WRITE ♦ 

♦ TIME OF ♦ 

♦ DAY ♦ 

« ««:«4c^*^« »♦♦♦♦*♦* 



4t«*4<A5 ♦♦♦♦♦♦*** 

♦ * 

♦ OPNLNK ♦ 

♦ ♦ 



OPNLNK 

♦SET SYSLNK ♦ 

♦ FILE AS 
♦ CLOSED 

♦ INDICATOR 

* •♦ 



♦♦♦♦♦05 ♦♦♦♦♦♦♦♦♦♦ 

♦ LOAD ADDRESS ♦ 

♦ OF DIB TABLE ♦ 

♦ INTO ♦ 

♦ WRKRGl ♦ 

♦ ♦ 
4(3tt4c4t««*4t*4ti|c*«4i4i4c4i 



Ht*i-tt**05 *********** 

♦ ZERO ♦ 

♦ SYSLNK ♦ 

♦ AnDRF*;? ♦ 

♦ ENTRY ♦ 

♦ * 







♦*♦* 

♦ * 

♦*♦» 






TIM0UT2 

NO .♦' 
.. .♦. 

♦ . 


X 

.♦. 

G5 ♦. 
♦ LOG ♦, 
ON SYSLST 

JBCSW3 
BIT 3 . 


♦ . 

♦ ' 


♦ 



:(t4c4t4i3|cH5 ♦**♦♦♦♦♦♦* 
♦LSTOUT GJ^ 

*_ ♦_ ♦_*_♦_* -4c-*-4> 
♦WRITE STATEMENTS 

♦ ON ♦ 

♦ SYSLST ♦ 
4(*4>i|c«4c« «♦«♦♦♦♦♦♦♦ 



4c«4c3ti^ J5 ♦*♦*♦»♦*♦* 



^^^'^(♦♦♦♦^^♦♦♦♦♦♦^ 



:((#*« K5 ♦♦♦♦♦♦♦♦ ♦ 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ SEQUENCE ♦ 



(I 
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Chart MM. $JOECTLG • Miscellanecus Subroutines (Part 1 cf 3) 
Befer to Chart 13. 



****AX******«** 



*************** 



SCNINT 

*****B1********** 

* GET NICL * 

* ENTRY FOR * 
♦THIS PARTITION ♦ 

* AND CLASS * 
♦INTO P0INT3 *J2* 
***************** 



X 

.♦. 

CI ♦. 

.* *, 

♦ IS *. 

THIS SYSTEM . 

*. CLASS .* 

*. .* 

*. .* 



LUBCOUNT 

*****01**4t»**«4(*iti 

* LOAD 9 INTO ♦ 

* P0INT3 * 

* INDICATING ♦ 

* NO. OF * 

* SYS. LUB * 
***************** 



«*** A2 ********* 



*************** 



CNKLNK 

*****B2 ********** 

* LOAD SYSLNK * 

* LUB ENTRY ♦ 

* DISPLACEMENT * 

* INTO WRKRG3 * 

* * 
***************** 



**«**C 2 ********** 
*CHKASG GU ♦ 
*_»_*_*_*_*_*_♦_* 

* CHECK * 

* FOR ♦ 

* ASSIGNMENT * 
***************** 



****A3********* 

* * 

* RSPASG * 

* * 
*************** 



****A4********* 

* * 

* RSTASG ♦ 

* * 
*************** 



RSTASG 

«****B4********** 

* LOAD ADDRESS * 

* OF INTO ♦ 

* R3 FOR SYSTEM * 

* CLASS ♦ 

* INDICATOR * 
***************** 



*****C4********** 
*SCN1NT NM* 
*_*_*_*_*_*_*_*_* 

* INITIALIZE ♦ 

* FOR TABLE * 

* SCAN * 
***************** 



02 ♦. 
.* *. 

♦ NO 
ASSIGNMENT 



*****04********** 
♦UASCAN NN* 
♦-*_*_*_*_♦_*_*-* 
♦ RESET TO * 



*****E 1********** 

♦ SAVE NICL * 

♦ ENTRY FROM ♦ 

♦ P0INT3 IN * 

♦ SNICL FOR * 

♦ LUBSCN ♦ 
***************** 



*****F I********** 

* LOAD FICL * 

* ADDRESS ♦ 

* INTO » 

* P0INT2 * 

* * 
***************** 



*****G1********** 

* * 

* GET FICL ♦ 

* ENTRY FOR * 

* THIS CLASS ♦ 

* * 
***************** 



*****H 1********** 

* DOUBLE FICL * 

* ENTRY AND ADD ♦ 

* TO LUBADD TO * 
♦POINT TO ADDR. ♦ 

* OF FIRST LUB * 
***************** 



***** J 1********** 

♦ STORE LUB * 

♦ ADDRESS IN * 

♦ SCLBAD FOR * 

♦ LUBSCN * 

♦ * 
***************** 



****K1********* 

* RETURN TO ♦ 

* CALLING SEQ * 

* * 
***«:*********** 



*****E2«^*^*^**** 

♦ * 

♦ GET ♦ 

♦ DEVICE ♦ 

♦ TYPE ♦ 

♦ * 
***************** 



*****E3** ******** 

♦ POINT TO * 

♦ MESSAGE nClOA'^ 
♦»PLEASE ASSIGN ♦ 
♦{SYSRDRt SYSIPT* 

♦ OR SYSLNK)* * 
***************** 



*****E4********** 

♦ LOAD ADDRESS ♦ 

♦ OF 1 INTO R3 ♦ 

♦ FOR PROGRAM ♦ 

♦ CLASS * 

♦ INDICATOR ♦ 
***************** 



**** 

* * 

♦ A5 ♦ 



*****A5********** 

* SCNINT NM* 
♦_*_*_*_*_*_*_♦-« 

* INITIALIZE ♦ 
» FOR TABLE ♦ 

* SCAN * 
***************** 



*****B5 ********** 
*RASCAN NP+ 

♦-*_*_*_♦_*_*_*_* 

* RESET ♦ 

* PUB * 

* FLAG ♦ 
***************** 



****«C5 ********** 

* LOAD ADDRESS ♦ 

* OF ♦ 

* 1 INTO R3 FOR * 

* PROGRAM CLASS ♦ 

* INDICATOR * 
***************** 



*****D5 ********** 
*SCNINT NM* 

*-*-*-*-♦-*-*-*-* 

* INITIALIZE * 

* FOR TABLE * 

* SCAN * 
***************** 



***«*g5 ********** 
*RASCAN NP^ 

*_*-♦_♦-♦-*-.*_*-* 

* RESET ♦ 

* PUB * 

* FLAGS ♦ 
***************** 



F2 *. 






X 




*****P4********** 


*****P5 ********** 


.* *. 






****P3********* 


♦SCNINT NM* 


♦LOGCHK GL* 


.♦ IS 


*. NO 


♦ BRANCH 


TO ♦ 


*-*-*-*-*-*-♦-*-* 


*_*_*_♦-*_*_*_*_* 


DEVICE 


«♦ 




* OERRTN 


IN * 


* INITIALIZE * 


♦ RESET LOG/LST ♦ 


♦ . A DISK , 


♦ 




♦ $JOBCTLA ♦ 


* FOR TABLE ♦ 


♦ ASSGN ♦ 


*. .* 






*************** 


♦ SCAN ♦ 


♦ SWITCHES ♦ 


♦. .♦ 




X 






***************** 


***************** 


♦ YES 




***** 
*NR * 
* E4* 
* * 
* 
NOTERR 






• 


I 










X 


X 


X 










*****G4********** 


*****G5 ********** 


****G2 ********* 








♦UASCAN NN^ 


* CLOSE ♦ 


RETURN TO 


* 








*-»_*_.*-.*_*_*_*-* 


♦ SYSRDR DFB ♦ 


CALLING 


* 








♦ RESET TO * 


♦ SYSIPT DFB ♦ 


SEQUENCE 


* 








♦ STANDARD ♦ 


♦ SYSLNK DFB ♦ 


*************** 








♦ ASSIGNMENTS ♦ 


♦ SYSLST DFB ♦ 












***************** 


***************** 



♦J2 
FORMAT FOR LOGS 
NICLS AND FICLS 
WHERE— 

SS = SYSTEM CLASS 
PP = PROGRAM CLASS 



BG F4 F3 F2 Fl 

niclsIss*pp!ss*pp'ss*ppIss'ppIss*ppI 
FicLsIss pptss ppIss ppIss ppIss pp'. 



AND FOR SYSTEM CLASS. 
CALCULATE A DISPLACEMENT BY 
DIVIDING PIK BY 8. 
ADD THIS DISPLACEMENT TO LOCS 
NICLS-2 TO GET PROPER ENTRY. 



*****H4^******^^* 

♦ LOAD ADDRESS ♦ 

♦ OF INTO R3 * 

♦ FOR SYSTEM ♦ 

♦ CLASS ♦ 

♦ INDICATOR * 
***************** 


X 
****H5 ♦♦♦♦♦♦♦** 

* RETURN * 

* TO 

* CALLER 
*************** 


X 
**** 

♦ * 

♦ A5 * 

♦ * 
**** 
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Chart NN. $JOBCTLG - J^iscellanecus Sutrcutines (Part 2 cf 3) 
Kefer to Chart 13. 



* * 

* UASCftN * 

* ♦ 

* * 

* Bl *.X 

* * 
**** 

UASCAN X 

♦LUBSCAN NP* 
#_♦_*_♦_*_<=_♦_*_♦ 

* SfcT UP POINTl * 
♦WITH LUB TABLE * 

* ENTRY ♦ 



CI *. 

* ANY * 

MORE 

ENTRIES 



****A2 ♦*♦****♦♦ 

* * 

* ICROUTW * 

* ♦ 



«i|i*4'A34>4>**4(*'X*4> 



4c«*4[««4i«4c«4t4cit<*« 



«*«*«4c4< *:tc>|e« *!(>if « 4i« 



* A4 * 

* * 
♦ ♦♦♦ 



* EXECUTE * 

* MOVE * 

♦ INSTRUCTION TO ♦ 

♦ SET SCNLUB ♦ 
♦WITH LUB ENTRY ♦ 



♦ * 

♦ RESET LU6 ♦ 

♦ TO ♦ 

♦ STANDARD ♦ 

♦ * 

♦♦♦♦ 





*•*♦ 

* ♦ 

* A5 * 

* « 
♦*♦♦ 




UANXJB X 

4<4i]|c4t4iA5 *********^i 

♦ SAVE * 

♦ CURRENT » 

♦ JIB POINTER ♦ 

♦ IN * 

♦ SAVE AREA ♦ 



^^'♦♦♦BS ♦«♦*♦♦♦*** 

♦ JIBSCN NP* 
♦_♦_♦_♦_*_♦_»_♦_♦ 

♦ GET ♦ 



YES .♦ TRAFFIC ♦. 
...... BIT 

♦. ON .♦ 



NO .♦ SYSTEM 
...♦. CLASS 



El ♦. 
* 

SYSUSE 



♦ RETURN TO ♦ 

♦ CALLING SEQ ♦ 

♦ ♦ 



♦****D3 ♦♦*♦*♦***♦ 



Ht*)lfitt4:************ 



itt:f***C^*********^* 


C5 ♦. 


♦GETPUB NP* 


.♦ ANY ♦. 


♦_*_♦_♦_♦_♦_♦_♦_♦ 


NO .♦ MORE *. 


♦GET ADDRESS OF ♦ 


...♦. ENTRIES .* 


♦PUB AND PUBOWN-^ 


♦ . .♦ 


♦ ER TABLE ENTRY ♦ 


♦ , .♦ 


*«*]«( 4i4(4(i|c4t*^*4>4(*** 


X *. .* 




4i4<4c* ♦ YES 




♦ ♦ . ♦♦♦♦ 




♦ BI ♦ . ♦ ♦ 




♦ ♦ . . . ♦ 05 ♦ 




♦♦♦♦ . ♦ ♦ 




, **** 


X 


DQXTNT X 


4(«*4<*04«*4»|c«*««*4c 


«4<4t4t*0S *♦***♦♦♦♦♦ 


♦ TURN OFF ♦ 


♦ GET AOOR OF ♦ 


* PUBOWNER BIT ♦ 


* FAVP FROM ♦ 


♦ FOR * 


♦ COM REG. ♦ 


♦ THIS ♦ 


♦ ♦ 


* PARTITION ♦ 


* * 


:((«*4t4<*4t*******^4t« 


^^^^'♦♦♦♦♦♦♦♦♦♦♦♦* 



♦ C4 ♦ 

♦ * 
♦♦♦* 



ARND 

«*4<^*F1 ♦♦♦♦♦♦♦*♦♦ 
♦JIBSCN NP^ 
♦_»_*-♦-♦_♦_♦-♦_♦ 

♦ SET UP P0INT2 ♦ 

♦ WITH JIB ADDR ♦ 

♦ IF ANY ♦ 



♦♦♦♦ 

♦ ♦ 

♦ G2 ♦ 

♦ ♦ 
*♦♦♦ 



**♦♦ 

♦ * 

♦ Bl ♦ 

♦ * 
♦*** 



*#*4<4>E5 ♦♦♦♦♦*♦«** 



!tt«****«*4>^*^***** 



JIBPTR X 

«])!4'*4cF5 ♦♦♦♦♦♦♦♦♦♦ 

♦ DEQUEUE JIB * 

♦ ENTRY AND ♦ 

♦ CLEAR FIRST ♦ 

♦ THREE BYTES * 

♦ OF JIB ♦ 

^^^■♦^'♦♦♦♦♦♦♦♦♦♦♦itc 



YES .♦ EXTENTS 
...♦. IN 

♦ . JIB 



♦♦♦* 

♦ ♦ 

♦ G2 ♦ 

♦ ♦ 
♦♦♦♦ 

STDASSG 



Jl *. 

.♦ STD *. 

.♦ASSIGNMENT ♦. 

.CR PROCEDURE . 

♦. ENTRY .♦ 

♦ . .♦ 



««***G2**^^^*^^** 

♦ SAVE ♦ 

♦ CURRENT JIB ♦ 

♦ PCINTER ♦ 



**«**H2 **♦***♦*** 

♦ * 

♦ NULL JIB ♦ 

♦ POINTER ♦ 

♦ IN LUB * 

♦ ♦ 



♦♦♦* 

♦ ♦ 

♦ D5 ♦ 

♦ ♦ 
♦♦** 



♦ Bl ♦ 

♦ ♦ 
♦♦*♦ 



.* DOES ♦ 
NO .♦ LUB 
, ..♦. HAVE PUB 
♦. POINTER 



.♦ WAS ♦. 

JIB ENTRY 

FOR 

.ALTERNATE. 



IS 

DEVICE 

TAPE 



♦ RESET TO ♦ 

♦ STANDARD ♦ 

♦ MODE ♦ 

♦ PUB BYTE 5 * 

♦ * 



...X. 
X 

*♦♦* 

♦ ♦ 

♦ A5 ♦ 

♦ ♦ 
♦♦♦* 



♦ * 

♦ RESET TO ♦ 

♦ STANDARD * 

♦ HOPPER ♦ 

♦ (PUB, BYTE 5) ♦ 

« 3«I« «« :(c* :(C3tc **«*«« #« 
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Chart NP« $JOECTLG - miscellaneous Subroutines (Part 3 of 3) 
Refer to Chart 13 • 



• LUBSCN ♦ 



* GET ADOR * 

* OF PUB TBL * 

* ENTRY INTO ♦ 

* POINTl * 



♦ COMPUTE THE ♦ 

♦ ADDRESS OF ♦ 

♦ NEXT ENTRY ♦ 

♦ AND SAVE FOR * 

♦ NEXT SCAN ♦ 



♦ LOAD THE * 

♦ RESIDUAL LUB * 

♦ COUNT FROM ♦ 

♦ SCNICL INTO ♦ 

♦ WRKRGl ♦ 



****A2 ♦*******♦ 

♦ GETPUB * 

* * 



* RASCAN * 

* ♦ 





X 




UB 


B2 ♦ 






* 


♦ . 


,* 


IS 


♦. 


PUl 


PTR PRIESENT* 


♦ . 




,♦ 



* RETURN TO * 

* CALLER * 

* +6 * 



RASCAN 

*LUBSCN NP* 
♦-*-*-♦-*-*-*-♦-* 

* GET * 

* LUB TABLE ♦ 

* POINTER * 



* DECREMENT ♦ 

* RESIDUAL CNT * 

* AND SAVE IN * 

* SCNICL FOR * 

* NEXT SCAN * 



* SET SCNLUB ♦ 

* TO THIS LUB ♦ 

* ENTRY ♦ 

* * 



♦ COMPUTE THE * 

♦ ADDRESS OF ♦ 

♦ THE PUB AND * 

♦ STORE IN * 

♦ PDINT3 ♦ 



♦♦♦♦*D2 *♦♦♦*♦*♦♦♦ 

♦ COMPUTE ♦ 

♦ ADDRESS OF * 
♦PUB OWNER ENTRY* 

♦ AND STORE IN * 

♦ P0INT4 * 



* RETURN * 

* TO ♦ 

* CALLER * 



♦ ♦ 

♦ JIBSCN * 

♦ * 



YES .* JBSLUB ♦. 
...*JIB POINTER IND* 
-ICATES X»FF' 
♦. ♦Jl .* 



* ♦ 

* CALCULATE * 

* ADDRESS * 

* OF NEXT * 

* JIB *J4 ♦ 



* STORE NEW * 

* PUB AND JIB * 

* POINTERS * 

* IN ♦ 

* SCNLUB * 
«4c«3|>*«***«****4t4c* 



END OF CHAIN 

DECK 

IF NO JIBS ARE 
CHAINEDt RETURN TO 
CALLING SEQ 



♦ * 

♦ B5 ♦ 

♦ ♦ 
♦♦♦♦ 



RANXJB X 

**4i4t*B5 ♦♦*♦♦♦♦♦♦♦ 
*JIBSCN NP» 
♦-♦_♦_*_♦_♦_♦_♦_♦ 

* GET * 

* JIB ♦ 

* ENTRY ♦ 



* SYSLOG LUB ♦ 

* IN * 

* A WORK REG * 



RASSGN 

♦GETPUB NP* 
*-*_*-♦-♦-♦-*-♦-♦ 

♦ GET ADDRESS * 

♦ OF PUB ♦ 

♦ ENTRY * 



*«*s|c4<G4********** 

♦ TURN » 

♦ ON PUB OWNER * 

♦ BIT FOR * 

♦ THIS * 

♦ PARTITION * 



♦♦♦♦J3 ♦****♦*** 

♦ RETURN TO * 

♦ CALLING SEQ * 

♦ * 
^^(♦♦♦♦♦♦♦♦♦♦♦♦^ 



*J4 
JIB ADDRESS EQUALS 
DISPLACEMENT INDEX 
FROM LUB. MULTIPLIED 
BY 4, PLUS THE 
STARTING ADDRESS OF 
THE JIB TABLE, JIBADD. 
NOTE - THE LUB USED IN 
THE PRECEEDING 
CALCULATION IS 
IN LOCATION 
SCNLUB. 
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Chart NQ. $JOECTLG - Label Prccessing Subroutines (Part 1 of 2) 
Refer to Charts 12 and 13. 



♦ * 

♦ A4 * 

* * 
♦♦** 



* ♦ 

* A5 ♦ 



♦♦♦*Al********* 

♦ * 

♦ LBLOUT * 

♦ * 



.♦ IS ♦. 
* STATEMENT 
IN PROPER 
*. SEQ 



* * 
..X* E2 ♦ 

♦ * 
**♦♦ 



LBLOUTOC .*. 

CI *, 
.♦ IS *. 
.* LABEL BLK *. NO 
♦ . PRESENT .*... 
*, ,* 



.* 



♦♦♦*C2********* 

♦ RETURN TO * 

♦ CALLING SEQ * 

♦ * 



* SET BLOCK * 

NOT PRESENT 

FLAG 



4t«4c«4t*****« 



.*. 

El ♦. 

.* IS ♦. 

.♦ FILE *. 

. SEQUENTIAL .♦ 

♦. DEVICE .♦ 

♦ .TYPE .* 

♦ . .* 

* YES 



* LOAD ADDRESS * 

* OF LAST SD. ♦ 

* ENTRY FROM ♦ 

* LABEL SAVE ♦ 
♦AREA TO WRKRGl ♦ 
^(^^[♦♦♦♦♦♦♦♦♦♦♦♦«^ 



♦♦♦♦ 

♦ ♦ 

♦ E2 ♦ 

♦ ♦ 
♦♦♦♦ 



TURN OFF 

OUT OF 

SEQUENCE 

♦ FLAG ♦ 



♦♦♦♦♦ 
♦NR ♦ 
♦ E5+ 



^^^^^^'♦♦♦♦^ 



LBLOUTOA 

*«««*H !♦♦♦♦♦♦♦♦♦♦ 

♦ LOAD START ♦ 

♦ AND END ♦ 

♦ TRACK NO. FOR ♦ 

♦ STO LABEL IN ♦ 

♦ WRKRGl ♦ 



♦♦♦♦♦J I********** 

♦ REPLACE END ♦ 

♦ TRK. NO. WITH ♦ 

♦ UPPERHEAD ♦ 

♦ NO. IN ♦ 

♦ WRKRGl ♦ 
^^^♦♦♦♦♦♦♦^'♦♦^♦♦^ 



♦♦♦♦ 

♦ ♦ 

♦ A3 ♦ 

♦ ♦ 
♦♦♦♦ 



THIS ♦. YES 
STANDARD .♦... 
. LABEL .♦ 



^^(♦♦♦B3^^^^^^^^^^ 

♦ CALCULATE ♦ 

♦ DISPLACEMENT ♦ 
♦INTO TRK ALLOC ♦ 
♦TABLE FOR THIS * 
♦LBL + PARTITIONS 



♦ LOAD START ♦ 

♦ AND END TRK. ♦ 

♦ NO. INTO ♦ 

♦ WRKREGl ♦ 

♦ ♦ 



LBLOUTOB 

♦ PUT END TRK ♦ 

♦ NO. INTO ♦ 

♦ WRKRG4 ♦ 

♦ FROM ♦ 

♦ WRKRGl ♦ 



4( «4ti|c« E3 «iK ♦^t ♦♦♦♦♦♦ 

♦ SHIFT ♦ 

♦ WRKRGl ♦ 

♦ SO IT WILL ♦ 

♦ CONTAIN ONLY ♦ 

♦ START TRK NO. ♦ 
^■♦♦^♦♦^^'♦♦♦♦♦♦♦♦S 



♦PUT START TRK. ♦ 
♦IN COMPARE T^ 

♦ FOR EOF LOOP ♦ 

♦ CONTROL ♦ 

♦ * 



«i(c«*«G3 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ DECREMENT ♦ 

♦ START TRK ♦ 

♦ NO. ♦ 

♦ ♦ 

^^'♦♦♦♦♦♦♦♦ic*^*^** 



♦ LOAD DATA ♦ 

♦ LENGTH INTO ♦ 

♦ WRKRG3 AND ♦ 

♦ ADD KEY ♦ 

♦ LENGTH ♦ 



♦ STORE ♦ 

♦ LENGTHS ♦ 

♦ INTO ♦ 

♦ WRITE AND * 

♦ CHECKS CCWS ♦ 



♦ COMPUTE ♦ 

♦ SPACE NEEDED ♦ 

♦ ON TRACK ♦ 

♦ FOR DATA ♦ 

♦ ♦ 



♦ GET ♦ 

♦ REMAINING ♦ 

♦ TRK ♦ 

♦ CAPACITY ♦ 

♦ ♦ 
^^^^(♦♦♦♦♦♦♦♦♦♦♦♦4c 



^^(♦♦♦E4^^^^S^^^^^ 

♦ ♦ 

♦ CALCULATE THE * 

♦ NEW REMAINING ♦ 

♦ TRK. CAPACITY ♦ 

♦ * 



♦ RESET REC ♦ 

♦ NO. TO ♦ 

♦ AND WRKRGl ♦ 

♦ NO. BYTES PER ♦ 

♦ TRACK ♦ 
^(^^^^■♦♦♦♦♦♦♦♦♦♦♦S 



♦ CALCULATF * 

♦ NEW PEMAINING ♦ 
♦TRACK CAPACITY ♦ 



*««««««««♦♦♦♦♦♦♦♦ 



C5 ♦. 
.♦ENOUGH *. 
ROOM ♦ 



.♦ ENOUGH ♦. Y 
*. ROOM ON .♦. 
♦. TRACK .♦ 
♦ . .♦ 
♦ . .♦ 
♦ NO 
♦♦♦♦ 

♦ ♦ . 

♦ G4 *.X. 

♦ ♦ , 
♦♦♦♦ 

X 

♦ * 

♦ LOAD CURRENT ♦ 

♦ TRK. NO, IN ♦ 

♦ WRKRGl ♦ 

♦ * 



.♦ IS ♦. 




.♦ LAST ♦. 


.♦ THIS A ♦ 




YES .TRK. OF AREA^. 


♦. NEW AREA 


'♦ 


..,♦. EXHAUSTED .♦ 


♦ . .♦ 




♦ . .♦ 


♦ . .♦ 




♦ . .♦ 


♦ . .♦ 




X ♦. .♦ 


♦ YES 




♦**♦♦ * NO 
♦NR ♦ 
♦ E3^ 
♦ * 
♦ . 
LAXERR 


X 




X 


«««4e#J34i4t:(e4c«*««*4c 


^^'♦♦♦J4^*^*^^**^^ 


♦ SET THE 


* 


♦ INCREMENT ♦ 


♦ WRITE DISK 


♦ 


♦ TO NEXT TRK ♦ 


♦ HEAD NO. TO 


* 


♦ AND STORE IN ♦ 


♦ START TR-1 


♦ 


♦ WHHADD ♦ 



^^(^^^^^'♦♦♦♦♦♦♦♦♦^ 



:)t«««4t^^:»«^^^^^^*« 
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Chart NR. $JOBCTLG - Label Frccessing Subrcutines (Fart 2 of 

Befer to Charts 13 and 13. 



2) 



***** 

«NQ * 
♦ C5* 



****1f^ 1««;«4I«*1|C4!*« 

♦ 

INITIALIZE * 

SEEK TRACK ♦ 

AND RECORD * 

NUMBER * 

i)f1Hti****iti1ti***i^**^i 



*****C l**iif****tt** 

♦ * 

♦ UPDATE WRITE ♦ 

♦ RECORD ♦ 

♦ NUMBER ♦ 

♦ AREA * 
lf****it'*********** 



*****Dl***m****** 
*MTNCNT GU ♦ 

♦-♦_♦_ *-♦-. *-♦_♦_♦ 

♦ RELEASE ♦ 

♦ CONTROL ♦ 

♦ ♦ 
***********itt****if 



*****i^l****'ti***** 

♦ * 

♦ LOAD ADDRESS ♦ 

♦ OF THE * 

♦ SYSRES CCB * 

♦ INTO REGl * 
***nf*******i^***** 



*A3 
ENTRY IS FROM OPTION 
STATEMENT PROCESSOR. 
LINK AND CATAL 
OPTIONS INVALID FOR 
FOREGROUND PARTITIONS 
IF NO PCIL SUPPORT 
PRESENT. 



**iff**Q2********** 

♦ * 

♦ LOAD LINK * 

♦ REG FOR ♦ 

♦ lOROUT ♦ 

♦ RETURN * 
**i)f***********itf** 



****f^^********* 

* * 

* NVOERR * 

* *A3 * 
*************** 



NVOERR .*. 

B4 ♦. 

.* ♦. 

.♦FOREGROUND *. 

*. PARTITION . 

,♦ 



. X* 



♦ . 



,* 



4<«*««B5 ******it,lr** 

* POINT TO ♦ 
♦DESIRED MESSAGE* 

I SOOD ♦ 

•INVALID ♦ 

♦ STATEMENT* ♦ 
*i^**i^********im** 



****ilfC2********** 



.* FIRST *. NO 
♦, TRK OF THIS .♦... 
♦. AREA .♦ 



.* START 

OF 
♦.NEW AREA 



«4<*4c*E2 ♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ SET KEY ♦ 

♦ LENGTH ♦ 

♦ TO 8 * 

♦ ♦ 
*^**ilf*****Ht******* 



i^it,^t■*^^f2********** 

♦ * 

♦ RESTORE ♦ 

♦ DATA LENGTH ♦ 

♦ FROf* WRKRGl ♦ 

♦ ♦ 

:tt*iiti**if *********** 



4t«*D3 ♦♦♦♦♦♦♦♦♦♦♦♦ 

lOROUT NN 
*_♦_♦_♦-*-♦_*_♦_♦ 

.X ISSUE 

♦ I/O ♦ 

^(♦^'♦♦♦♦♦♦♦♦♦4<*!tC«« 



*♦♦* 

LAX ERR X 

***Hfi*£-iltim**1f****!t^ 

♦ POINT TO * 
♦DESIRED MESSAGE^ 

♦ ILIOD ♦ 

♦ "LABEL AREA ♦ 

♦ EXHAUSTED' ♦ 

iH1ti**ttlH***!t':t'****** 



***** 
♦NM ♦ 
* F2^ 



NOTERR X 

****iH^i^**^:HHti****1f 

♦ POINT TO ♦ 
♦DESIRED MESSAGE* 

♦ 1A20D ♦ 
♦•INVALID DEVICES 

♦ TYPE* * 

^^^^^(^'♦♦♦♦♦♦♦lltilc** 



***** REFERENCES 

* ♦TO NRE5! 

♦ ♦* NJD2t NQF2 



OTSERR X 

**tt**£S ********** 

♦ POINT TO ♦ 
♦DESIRED MESSAGE* 

♦ ISIOD * 
*» STATEMENT OUT ♦ 

♦ OF SEQUENCE" * 

****iH**Di********* 



**** 

♦ ♦ 

♦ F4 ♦.X 

♦ * 
*♦*♦ 



****f:£^***:i^*^t*itt* 

♦ BRANCH TO ♦ 

♦ ERRRTN IN ♦ 

♦ SJOBCTLA ♦ 
1Htii*i),*******4,*** 



4(#4t*«6L*^^^^***** 

* * 

* LOAD DATA * 

* LENGTH INTO ♦ 

* WRKRGl FOR * 

* SAVING * 

*******:********** 



4i4i4t**Hl^^******** 

* ♦ 

* SET DATA * 

* AND * 

* KEY LENGTH * 

* TO ZERO ♦ 

****tc************ 



**** 

♦ * 

♦ B2 ♦ 

♦ * 
**** 



OPLBNF 

***Q2************ 

lOROUT NN 

♦_♦_♦_♦-♦-♦_♦-♦_♦ 

ISSUE 

♦ I/O * 

^****ilf*********** 



3|i»*4t*H 2 ♦♦*******♦ 
♦MTNCNT GU * 

* SEIZE * 

* SYSTEM * 

* * 

:lti,ii**********illi**** 



****J2********* 

* RETURN TO ♦ 

* CALLING SEQ * 



*lli******iHHt***** 
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Chart NS. $JOECTLG - /♦ (End of Procedure) Statement Processor 
Refer to Chart 13. 



* * 

* PEND * 

* * 



* LOAD RETURN * 
*REG WITH VALUE ♦ 

* OF BASRGl ♦ 

* * 



THE PROCEDURE END «/£ STMT! 
PROCESSOR REINITIALIZES THE 
SYSTEM AT THE END OF A PROCEDURE. 
NOTE. THAT PROC. END IS ALSO CALLED 
IF EOJ OR CANCEL STMT ARE 
DETECTED. 

ENTRY POINTS. - PEND - EOP 
- PNDOl- EOJ.CANCEL 

SYSTEM ERROR 
EXIT. - VIA RETURN REGISTER 

- CONTROL - EOP 

- CALLER - EJP, CANCEL 

SYSTEM ERROR 



* BLANK SV * 

* AREAS FOR ♦ 

* PROC AND * 

* OV-STMT NAME * 

* * 



* ♦ 

* B'«^ *... 

* * , 
♦*♦♦ X 

.*. 

B4 ♦. 

.* *. 

.* CANAL *. YES 

♦REQUEST POSHOL.*.... 

*. -JCSUl- .♦ 



CI *. 




«Dc*««C2^*^**><'**4'^ 


.♦ ♦. 




* * 


.♦ OV- OR * 


YES 


* SET POINTER ♦ 


♦. INSERT STMT 


......... 


X*TO ERRORMESSAGE* 


*, ,♦ 




♦ 1M4ND * 


*. .* 




* * 


*. .* 




:^:k'4'**1f*1f********* 


* NO 










*♦** 








* * 








* 02 ♦.X 








♦ •♦ 




X 




♦♦♦* 




.*« 








Dl *. 






< 


.* *« 




4<««4eD2 ♦♦**♦♦♦♦« 


.* PROC * 


NO 


* BRANCH TO * 


♦ . BEING 


.*. ... 


* ERRRTN N ♦ 


♦.EXECUTED .* 




* SJOBCTLA * 


*. .* 




4e«#«**«4'4i*«#4(** 


*. .♦ 


X 




* YES 


* * 




. 


♦ *♦♦ 







♦PCLOSE NT* 
♦_♦_*_* _♦_♦_♦_♦ _♦ 

* CLEAR ♦ 

* PROCDIB * 

* ENTRY * 


♦ ♦ 

♦ SET POINTER ♦ 
...♦TO ERRORMESSAGE+ 
. ♦ IN700 ♦ 

♦ * 

X ♦♦*♦♦♦*♦♦♦**♦♦*** 

* * 


• 


.02. 


• 


**** 


X 

* INITIAL ZE * 

* IPT-DFB OPEN * 
♦FLAG - POINTER ♦ 

♦ TO OF I J ♦ 

♦ * 


♦ BPANCH Tn ♦ 

♦ CONTROL IN ♦ 

♦ SJOBCTLA * 
4t *!««#!(( 4>i|t*«*4<«4! :4c 



4c 4i 85 ♦♦♦♦♦♦♦ 

* ♦ 
RESET ALL 
FLAGS IN 
P-SWITCH 

* ♦ 
i4c«4t«4c)|i«4ci|c4c4t 



*4:C5 ♦♦♦♦♦♦♦ 

* ♦ 

♦RESET SYSTEM ♦ 

♦ ERROR FLAG IN ♦ 

♦ JBCSW6 ♦ 

* ♦ 



.♦ PROCEDURE ♦. Y 
CALLED .♦. 

♦BY OPERATOR* 



RESET OPEN 

FLAG IN 

OVRDR-DFB 

♦ ♦ 

4c«4c#3|c4<4c4c4<«4< 



4c*E2^***^*^ 

♦ ♦ 
SET SYSLOG 

FLAG IN 
JCSWI 

* * 
9|c«4>«4<^^^*«* 



i|c*F 2 ♦♦♦♦♦♦♦ 

* * 
RESET OPEN 

FLAG IN 
OVLOG-OFB 

* ♦ 
«««4:*^4i**** 



^(^(♦♦♦♦♦** ♦♦♦♦♦♦♦♦ 



.♦. 

E3 ♦. 

.♦ ♦. 

.* SYS ERROR ' 

FLAG 

♦ . SET 

♦ . ,♦ 



♦ NO 



«««*«««*««4: 



.* SYS ERROR 

♦. POSTED IN 

♦. JBCSW6 . 



♦PLOG NU* 

♦_♦-♦_♦-*_*_♦_♦_* 

* LOG AND * 

* LIST EOP * 

* MESSAGE * 

4ci(c«4c4c4c«#4e*4c *♦♦*♦♦ 



4c4c:(citc«4c;(c««#4c]|c*4c!(c4c« 



«*4c*^H3**^^^^^*^^ 

♦PFREE NH+ 

♦ RESET SYSRDR ♦ 

♦ LUB ♦ 

♦ * 



4t«««4(F:44>4c#4c««4i*)«c^ , 



^'♦^[♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



«*:***G4^**^*^**^^ 

♦PFREE NH^ 

*-*_♦_♦-♦_♦_*_*_* 
.♦ RESET SYSIPT ♦ 

♦ LUB ♦ 

♦ ♦ 

3(ci(c44c4c3|c4:4c3(t««*«4(**« 



.♦ /+ *. NO 

.X^STATEMENT BEING+... 
♦.EXECUTED .* 



♦ ACTIVATE ♦ 

♦ PENDING ♦ 

♦ UNINTERPRETED ♦. 

♦ STMT ♦ 



4ci|i*i|i4c4c4t*4>**4'*^4c4'4= 



*4cK5 ♦♦♦♦♦♦♦ 



4c#>|c:>t<«>tc:4c:tc4c«4' 
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Chart NT. $JOBCTLG - EOP Subrct3tii3es 
Refer to Chart 13, 



(Part 1 cf 2) 



SUBROUTINE PFREE -- 

ENDUES PROC.JIB ENTRY TO 

CHAIN OF FREE JIBS 

AND RESETS ORIGINAL LUB 

CONTENT INTO POSTED 

LUB ENTRY. 

ERROR CONDITIONS. 

- NO JIB CHAINED TO HANDLED LUB 

- CHAINED JIB NO PROCEDURE JIB 



♦ * 

* PFREE * 



* * 

* PCLOSE * 



* MOVE LUB INTO ♦ 

* SCNLU8 - INIT ♦ 

* POINTERS * 

* ♦ 



♦JIBSCN NP* 

*-*-♦-*-♦-»-*-♦-♦ 

* GET ♦ 

* CHAINED * 

* JIB ♦ 



USED 
ROC. 



♦JIB USED BY*. NO 



«4c«««G2*****««*** 

♦ ♦ 
♦ENQUEUE JIB TO ♦ 

♦ CHAIN OF FREE ♦ 

♦ JIBS ♦ 

♦ ♦ 



«*4(««H2 ♦♦♦♦♦♦♦♦♦♦ 

♦ REMOVE ♦ 

♦ ORIGINAL LUB ♦ 

♦ IN LUB ♦ 

♦ THE ENTRY ♦ 

♦ POSTED ♦ 
«*«*«*♦♦♦♦«♦♦♦«♦♦ 



♦ * 

♦ CLEAR FIRST ♦ 
♦THREE BYTES QF ♦ 

♦ JIB ENTRY ♦ 

♦ * 



«*4>*K2 ♦♦♦♦♦♦♦♦♦ 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ SEQUENCE ♦ 



*4i4i **F3 ♦♦♦♦ ♦♦♦♦ ♦♦ 

♦ * 
♦SET POINTER TO ♦ 

.X^ ERROR MESSAGE ♦ 

♦ IMIOA ♦ 

♦ * 
#**♦♦*♦♦♦♦**♦*«♦* 



«:4t*4eG3 *««««*#*« 

♦ BRANCH TO ♦ 

♦ SYS ERR IN ♦ 

♦ SJOBCTLA ♦ 

mmif:f *********** 



♦GET ADDRESS OF ♦ 

♦ PROC.DIB - ♦ 

♦ F(SYSFIL) ♦ 

♦ * 
*****-^*^********lt 



*****QX^*k******** 



*****ili**it:*^**iti**ni 



*****^/^********^iti 

♦ * 

♦ ♦ 

♦ CLEAR PRC-DFI ♦ 

♦ ♦ 

♦ ♦ 

:t^itf^^:i^m*********** 



*****f:i^**:lli***Hii^i^^* 

♦ * 

♦ DEQUE ♦ 

♦ PROC ♦ 

♦ LIBRARY ♦ 

♦ ♦ 
***************** 



****Qt^********* 

♦ RETURN TO ♦ 

♦ CALLING * 

♦ SEQUENCE ♦ 

^1fitc:fif ********** 
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Chart NU. $aOBCTLG - EOP SubrcutiKes (Part 2 cf 2) 
Befer to Chart 13, 



♦♦♦*A1********* 

* * 

* PLOG * 



^^i^^^^f^f2^z***f^***■*** 



*4<4t:(c4t4E4t4>*««3(ii(c*«** 



♦ MOV E ♦ 

♦ MESSAGE * 
X* IN80I ♦. 

♦ INTO BUFFER * 

♦ ♦ 



*POUT NU * 

X* OUTPUT * 

* MESSAGE ♦ 

* * 



CI *. 
4* *. 

* EOP * 

PROCESSING 

*. .♦ 

*. .* 

♦ . ,* 

♦ YES 



«4'«««C2*«***4<*4'** 



#**« ««««*« 4< 3|t* « *«♦ 



* MOVE * 

* MESSAGE ♦ 
X* 1N90I ♦. 

* INTO BUFFER ♦ 

* ♦ 



♦-♦-♦_*-♦_ 



4ci|c««4(4(!(i«*4>«*4>4c4<4c4! 



«4t*«4(4>«4(**4i*«4(i(<*« 



* * 

* BUILD * 

* EOP PROCEDURE * 

* MESSAGE * 

* ♦ 



* ♦ 
SET PEOP 

FLAG IN 
JBCSM6 

♦ ♦ 



* WRITE * 

* EOP * 

* MESSAGE * 



* ♦ 

* POUT ♦ 

* * 



;((«4<*i»'««!|t4c*4c**#:*4(i(( 



*«««*F3*'(t«4'4<4»C*«4' 

♦MTNCNT GU ♦ 

*_♦_*_♦-*_«_♦-♦-* 

* RELEASE * 

* SYSTEM * 

* * 



♦lOROUTW NN* 

:((_♦_♦_♦_*-♦_♦_♦_* 

* WAIT FOR * 

* SYSLOG * 

* * 



*MSGOUT GJ* 

*_♦_♦_♦_*_#_♦_♦_♦ 

* LOG ♦ 

* MESSAGE * 

* ♦ 



PEOP FLAG ♦. 
SET .* 

.♦ 



.* PROCEDURE 
♦. CALLED BY 
*. OPERATOR . 



♦****J I********** 

♦ MOVE ♦ 

♦ MESSAGE ♦ 

♦ IIOOA ♦ 

♦ INTO BUFFER ♦ 

♦ * 



♦POUT NU * 

♦ WRITE *.. 

♦ MESSAGE ♦ 

♦ * 



* * 
RESET PEOP 

FLAG 
IN JBCSW6 

* * 



♦♦**J2 ♦*♦♦**♦♦* 

* RETURN TO * 

* CALLING SEQ. * 

* * 



♦MTNCNT GU * 

♦ _♦_*_»_*_* _*_o(c _* 

* SEIZE * 

* THE * 

♦ SYSTEM * 



♦LSTOUT GJ* 

* * 

* LIST * 

* MESSAGE * 

4c iti^^^^^Xcitc^^^slc^c**:*! 



* RETURN TO * 

* CALLING SEQ. * 

* * 
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Chart PA, $JOECTLJ - HOLD CoiDirand Processor 

Refer to Chart 15. 



♦♦**A3********* 
* tJOBCTLJ * 



«4>***«4t«**4>*«ii* 


♦ * 

♦ B4 * 

♦ ♦ 




J 




I 


**♦♦ 




' 


' 


T. 


HOLD X 

♦ LOAD P0INT4 * 

* WITH ADDR OF * 
♦INSTR THAT SETS* 


H0L02 X 

♦ OFF IN * 

♦ CORRECT * 

*PIB, *B5* 


2. 

3. 



NO 



RLSENT .♦. 

C3 *. 

.♦ MULT I *. 

♦ PROGRAMMING*. 

ENVIRONMENT . 

*. .* 

»• .* 

*, .* 



^dtt^t^e^DS********** 

♦SCANR2 GK* 

*_♦_♦_*_♦_*_♦_*_♦ 

* POINT TO * 

* FIRST OPERAND * 

* -Fl,F2f F3,F4- * 



,* DID * 

NO .♦ A BLANK 

X..*. OR COMMA 

♦.END SCAN 



OPERAND ' 
LENGTH EQ 
. 2 CHAR .^ 
*. .* 



* E5 * 

♦ * 



^iif***OJ**^if ****** 
♦LOAD PI8 TABLE * 
♦ADDR IN P0INT2 ♦ 
♦AND FOREGROUND * 

♦ 1 PIB ADDR * 

♦ P0INT3 * 
1f***iti*if**itHf1fm**** 



DID *. 
BLANK END . 
.LAST SCAN.* 



P0TNT4 CONTAINS AOOR 

OF CORRECT 

INSTRUCTION. 

D0INT3 CONTAINS ADDR 

OF CORRECT PIB. 

THE HOLD FLAG IS 

BIT 4 OF PIB+I2 
1 = HOLD 
= RELEASE. 



♦***C 5 ********* 

♦ BRANCH TO * 
, X* CONTROL IN * 

* SJOBCTLA ♦ 
i^^i^iif *********** 



♦SCANR2 GK* 
♦_♦_«_♦_*_♦_♦_♦_♦ 

* POINT TO * 
♦SECOND OPERAND * 

* -Fl,F2f F3,F4- * 

#it(4c************** 



.* DID *. NO 
*. BLANK END .*... 
*. SCAN .* 



♦*♦* 

* * 

* E5 * 

* * 
**♦* 



♦♦♦♦E') ********* 

* BRANCH TO ♦ 

* NVSERR IN ♦ 

* fJOBCTLA ♦ 

:t,ilfm************ 



YES .* IS 

...♦. OPERAND 
*. Fl 



4c ««:tc«J3«« «#*#«««« 

* * 

♦LOAD FOREGROUNDS 

♦ 2 PIB ADDR ♦ 

* IN P0INT3 ♦ 

♦ ♦ 



IS 

OPERAND 
F2 



...X. 
X 
*♦♦♦ 

♦ ♦ 

♦ 84 ♦ 

♦ ♦ 
*♦♦♦ 



♦*♦* 

♦ ♦ 

♦ E5 ♦ 

♦ ♦ 
♦*♦* 
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Chart PB. $JOBCTLJ - DCS Ccirirand Processor 
Refer to Chart 15, 



(Part 1 of 21 



* * 

* ucs ♦ 

* ♦ 



*INITL KA* 

♦_*-*_♦_*_*_♦_♦_♦ 

* RELOCATE * 

* ADCONS ♦ 

* ♦ 



iK4c4t4:4cC I********** 

♦SCANR2 GK * 
♦-♦-*-*-*-*-*-♦-* 

* POINT TO * 

* FIRST OPERAND * 

* -SYSXXX- * 



.* DID 

*. COMMA END 

*. SCAN 



♦CHUNCO PT * 
♦_♦_♦_*_*_♦_♦_*_* 

♦GET UNIT CLASS * 

* AND ORDER * 

* * 



B2 *. 


B3 *. 








.* UNIT *. 


.♦ * 






***«B44>***4<*4<** 


.* IGNORE OR *. YES 


.* IS 


** 


YES 


* BRANCH TO 


, UNASSIGNED .*...... 


..X*. ASSIGNMENT 




>*..... 


..X* CONTROL IN 


*. •* 


*. IGN 


,* 




♦ $JOBCTLA 


♦ . .* 


♦ . .* 






**««4c*4c* *;((***** 


*, ,♦ 


*, .* 








* NO 


* NO 








• 


.•••••(•••xl 








* 


X 




* 


***** 








X 


*PV * 








.♦. 


* CI* 








C2 *. 


, * * 








,* *, 


* 








.* VALID *. NO 


NOT ERR 








DEVICE .♦ 










*. TYPE .♦ 










*. *C5 ,* 










♦. .♦ 










♦ YES 











*C5 
DEVICE MUST BE A 1403 
WITH UCS FEATURE. 
-DEVICE TYPE CODE HEX 42- 



*4c***G I********** 

* LOAD LUB * 

* POINTER FOR ♦ 

* 1ST EG PROG * 

* UNIT IN * 

* WRKRGl * 
***************** 



UCSl 

*****H1********** 

* COMPUTE LUB * 

* TABLE * 

* DISPLACEMENT * 
♦TO DESIRED UNIT* 

* WITHIN CLASS ♦ 

*«****«4c4c***«;4c4:4t« 



*«**«J I********** 

♦CHKASG GU * 

♦_*_♦_*_♦_*_♦_♦_♦ 

♦GET LUB AND PUB* 

♦ ADDRESSES AND ♦ 

* CHECK ASSIGN ♦ 
*******«****4c«**4c 

' **** 



4c***Kl********* 

♦ BRANCH TO ♦ 

♦ NVSERR IN ♦ 

♦ SJOBCTLA ♦ 
****«*«**««4c*«* 



*****D2 ********** 

♦ ♦ 

♦ MOVE CLASS ♦ 
♦ORDER INTO .♦ 

* WRKDFS>6- * 

* ♦ 
*4<4i«***4[«***«**)t<* 



*«***E2********** 
♦SCANR2 GK* 

♦_♦_*_♦_♦_*_*_*_♦ 

♦ POINT TO ♦ 
♦SECOND OPERAND * 

* -PHASENAME- * 
***************** 



.♦. 

F2 *. 

.* DID * 

NO ,* A BLANK 

X..*. OR COMMA 

♦.END SCAN 



.* OPERAND ♦. 
, 1-9 CHAR IN . 
*. LENGTH .* 



THE SUBROUTINE CNUNCO RETURNS 
THE UNIT CLASS IN THE LOCATION 
UNCLOR, BYTE 0. 

EQUALS SYSTEM 

1 EQUALS PROG 

UNCLOR, BYTE 1» CONTAINS 

THE UNIT ORDER -PUB POINTFR-. 



* E3 * 

* * 
**** 



♦****E3 ♦**♦♦*♦♦♦* 
*MTNCNT GU * 

♦_♦_♦_♦_*_♦_*_♦_* 

* RELEASE * 

* SYSTEM * 

* * 

:4e*****«********** 



****«F3 *:((****«*«* 

* SVC 23 - LOAD * 

* THE UCS PHASE * 

* HEADER INTO * 

* BUFFER. * 

* -LODNAM+B- * 

4c«*«:4c******>|c«**** 



*****G3 ********** 

*MTNCNT GU ♦ 

♦_♦_♦_♦_♦_♦_♦_*_* 

* SEIZE ♦ 

* SYSTEM ♦ 

* * 

iti4c:(c*:ie************ 



*G4 
IF PHASE IS CATALOGED THIS 
VALUE CHANGES TO THE PHASE 
LOAD ADDRESS. BIT 7 ALWAYS 
BECOMES A ZERO 



****«H2***^^^^*** 


H3 *. 








*SET PHASE NAME * 


.* * 








* SAVE AREA AND * 


.* 


* 


. NO 


* BUFFER TO * 


*. PHASE 




.* 




*BLANKS SAVE PHS* 


*. FOUND 


* 






♦NAHE IN LODNAM ♦ 


*. .* 








***************** 


*. .* 
* YES 

xl 






X 
***** 
*PV * 

* 






PNPER 




'nulchk X 








J2 *. 


, 4c«*««J3:((««««*](c*:t<* 




.♦ *. 


, * 




* 




.* MPS *. NO 


♦ MODIFY UCS 




* 




*. ENVIRONMENT .*.... 


* LOAD CCWS 




* 




*, .* 


» *J5 




* 





*J5 
L0DCCW2-SFT tq NONFOLD OPCODE 

-HEX FB-. 
L0DCCW2+4-SET CHAIN FLAG TO 
CHAIN WRITE CCW 
-HEX 60-. 
LnDCCW3-SET ALLOW DATA 
CHECK OPCODE 
-HEX 7B- 



«*4c**K2'!!********* 
*SET 3RD BYTE OF* 

* BUFFER, * 

* LODNAME+10, * 

* TO HEX FF. * 

* *G4 * 
**«*«*«««««««**«* 



«4c««4c«*4t*4:««**««* 



X 
***** 

♦ PC * 

♦ B2* 
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Chart PC. $JOBCTLJ - ucs Ccirirand Processor (Part 2 of 

Refer to Chart 15, 



2) 



♦♦♦♦♦ 

♦PB ♦ 
♦ J3* 



UCSSCN 


.♦. 
82 *. 






♦ ♦, 


«♦«<< 


.* 


DID BLANK 


*. YES * 


*. 


END LAST 


.*....X* CI 


* 


SCAN 


* * 




*. .* 


**♦* 




«. .* 






* NO 





UCSVN X 

♦MTNCNT GU * 

♦_*_*_♦_*_♦_♦_♦_♦ 

* RELEASE ♦ 

* SYSTEM ♦ 

* * 



*C3 
THE PHASE IS LOADED INTO 
THE BUFFER LABELED LODBUF 



♦_♦_*_♦_ 



-*_♦_♦_* 



* POINT TO NEXT 

* OPERAND ♦ 

* *D3 * 



* * SVC 4 * * 

* * LOAC THE * ♦ 

* * UCS PHASE * ♦ 
*FROM CI LIB* 



* ♦ 



* C3 



« « 



D2 *. 

.* DID *. 

.* BLANK OR *. 

*. COKMA END .* 

SCAN ,♦ 



♦03 
THIS OPERAND MAY BE 
FOLD, BLOCK, NULMSG 



«*](ic*ik*««****4t*«*« 



♦ , 



.* 



♦MTNCNT GU ♦ 

♦_♦ -4,- *-♦_ *_♦_♦_♦ 

* SEIZE * 

* SYSTEM * 

* * 



E2 *. 

.♦ 

** LENGTH 

♦. EQUALS 

♦.4 CHARS. 



.* LENGTH ». NO 
EQUALS .*... 

*.5 CHARS. ,* 



.* LENGTH 

f. EQUALS 

*.6 CHARS. 



♦ STORE THE UCS * 

♦ CCW ADDR, * 

♦ LODCCW, INTO * 

♦ WRKDFB CCB * 

♦ * 
m********* ******* 



.♦ OPERAND *. NO 
FOLD .♦... 

*. .» 

*. .* 



♦♦♦♦pj; ********* 

* BPANCH TO * 

* NVSERR IN * 

* SJOBCTLA * 
********iti****** 



*****Ql********** 
♦EXCPRG ' 6Q * 

♦_♦-♦-♦_♦_♦-*-*-* 
♦EXECUTE I/O AS ♦ 
♦ SPECIFIED IN ♦ 
♦> WRKDFB ♦ 

*********if******* 



4c«G2 ♦♦♦♦♦♦♦ 
MODIFY L0DCCW2 

♦ TO FOLD. ♦ 
♦ -OPCODE EQUAL 

♦ HEX F3- ♦ 
* * 

*********** 



**G3 ♦♦♦*♦♦♦ 

♦ MODIFY ♦ 
♦ L0DCCH3 

♦ TO INHIBIT 
♦DATA CHECKS. 

♦ -HEX 73- ♦ 
*********** 



**(^i^******* 

MODIFY L0DCCW2 

♦SET CHAIN BIT* 

♦OFF TO PROHIBIT* 

* WRITE. * 

* ♦ 

*ti********* 



****Y\ I********* 

* BRANCH TO ♦ 

* CONTROL IN ♦ 

* $JOBCTLA * 
*************** 



.X.X.. 

X 

♦♦*♦ 

♦ ♦ 

♦ 82^ 

♦ ♦ 
♦♦*♦ 
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Chart PD. $JOBCTLJ - ACTICN and IKCLUEE StateffCEt Prcc€ssors 
Befer to Charts 15 and 16, 



4t***A 1********* 

♦ ♦ 

♦ ACTION * 

♦ * 

♦ * 

♦ Bl * 



.* CATALR ♦. NO 
♦ .OPTION SW ON .♦... 
♦ . * J2 .♦ 



**Cl******* 



«4e#«*«#«««4c 



4(4c4:«4cDl*4c*4c«*4t«3tc« 



TSLNKSW .♦. 














A2 ♦. 














.* *. 




****A3********* 










.* LINK *. NO 


♦ ♦ 










...X*. OPTION SWITCH.*. 




* INCLUDE * 










♦. ON .* 




♦ ♦ 










*. .* 




^^^'♦♦♦♦♦♦♦♦♦♦♦* 






*♦♦* 




♦ . .* 


X 








♦ * 




* YES 


***** 

♦ PV ♦ 

♦ G3* 
* ♦ 

OTSERR 


X 






♦ 64 * 

♦ * 
*♦** 

X 




I X 


INCLUDE .*. 






.♦. 




titHim^fQ2********** 




83 ♦. 






84 ♦. 




* * 




,* *. 






♦ 2 ♦ 




♦ PREPARE * 




.♦ LINK *. NO 


.* 


IN 


♦ . 


♦ BUFFER FOR * 




*. OPTION .♦ 


• • • 


♦ , 


1ST BYTE 


.* 


* OUTPUT * 




♦ . .* 




* 


.* 


♦ * 




*. .♦ 






*. .* 




4iif;f*********i'**** 




*. .* 
* YES 


X 

***** 




*. .* 
* YES 




*«** I 






♦ PV * 








*PN * 






* G3* 








♦ G2 ♦.X. 






* ♦ 








* ♦ 






♦ 








***♦ 






OTSERR 




X 




SETOUTPT X 




X 






.*. 




««:t>4c«C2«**«**«**« 




4c4>«4<^C3********** 






C4 *. 




♦ SET OUTPUT ♦ 




*SCANR2 GK* 






,* * 




♦CHARACTER COUNT* 




♦_♦_♦_♦_*_*_♦_♦_♦ 




.♦ 


END 


♦ . 


♦TO 80 BYTES IN * 




* SCAN * 




* . 


CARD 


.* 


* CNTFLO ♦ 




* FOR OPERAND * 




♦ 




* 



* PREPARE * 

* BUFFER TO *. 

* OUTPUT ASA * 

* CHAR 'W * 

illi*:i^it!************* 



4i4i4»(c«««4<4c«««4>«4t*4c 



4<*4c4c«D2********** 
♦UPDSAV PT* 

3k-*-*~*~*~*-* ~* -* 

.X*INCR BLK COUNT * 
*MOVE STATEMENT ♦ 
♦OUTPUT AREA *F1* 
^^♦♦♦♦♦♦♦♦♦♦♦♦♦♦* 



4c*«4')|cE2 *♦♦♦*♦**** 
♦LNKOUT PT* 
♦_♦_♦_ ♦-♦-♦-♦_^t_* 

♦WRITE STATEMENT* 

* TO * 

* SYSLNK * 

:lfifi1fitt:tfitf*********** 



«])(«♦*♦♦♦*♦♦♦♦*«♦♦ 



,* ANY *. 
.♦ CARDS IN ♦. NO 
.X*. SYSLNK OUTPUT.*... 
*. AREA .* 



4c:«:* )tc«f)(^ 4c4:4e« «*3(c* *# 

♦LNKOUT oT* 
* WRITE * 



♦ *** 

♦ ♦ 

♦ 81 * 

♦ * 
**** 



*F1 

1. UPDATE THE BLOCK COUNT 
FOR I/O AREA CONTROL. 

2. WAIT FOR PREVIOUS I/O 

ON SYSLNK TO BE COMPLETED. 

3. MOVE STATEMENT TO NEXT 
AVAILABLE AREA IN OUTPUT 
BUFFERt LNKBFl, FROM 
INPUT BUFFER AREA, BUFFER 



***Hc*f^'i**^itL*ili***iii 

* INIT FOR * 
♦COPYING SYSIPT ♦ 

♦ TO SYSLNK ♦ 



* F3 *.X 



♦ HI 

THE EXCPRG SUBROUTINE PLACES 
THE ATTENTION, ATNCUU, ROUTINE 
ADDR IN LINKRl ON EVERY RETURN 
TO CALLING SEQ. ATNCUU IS USED 
TO DISPLAY THE ATTENTION 
MESSAGE, ICOOA. 



1ti*if:it,*f2********** 

* * 

* SVC 7 ♦ 
♦WAIT FOR SYSLNK+ 
♦I/O COMPLETION ♦ 

* ♦ 
iii**li*******i,***** 



****Q2********* 

* BRANCH TO * 

* CONTROL IN * 

* $JCBCTLA * 



*H2 
LAND BIT 6 OF 

SYSIPT OFB FLAG OFF. 
2. SET OUTPUT CHAR 

COUNT TO 80 BYTES 

IN CNTFLD. 



♦♦*♦ 
COPYLP X 

^*ilfif,l^fi:H********* 

♦EXCPRG GO* 

♦ READ FROM * 

♦ SYSIPT ♦ 

♦ * 

4: :)<*♦♦♦* ♦♦♦♦*♦♦♦♦♦ 



E4 ♦. 
.♦ WILL ♦. 
THIS CARD 
FILL THE 
. OUTPUT . 
♦.AREA .♦ 
♦ . .* 
* NO 



1l*1ii)t*fif***^S**i)t*** 

*UPDSAV PT* 

♦_*_♦_*-♦_♦-♦_♦-* 
♦INCR BLK COUNT * 
*MOVE STATEMENT * 
*OUTPUT AREA *F1* 



.LPDOPT 

«4<>««^E5 **♦♦****** 
♦UPDSAV PT* 
*-*-♦-♦-*-♦-*-*-* 
*INCR BLK COUNT * 
♦MOVE STATEMENT * 
♦OUTPUT AREA ♦Fl^ 

**:4,*illi************ 



♦LNKOUT PT* 

«_♦_♦_;♦_♦-♦_*_♦-* 

♦ WRITE ♦ 



G3 *. 




.♦ HAS ♦. 




SYSIPT ♦ 


. NO 


BEEN OPENED 


.*.... 


.♦ 




♦ . .♦ 




♦ . .* 


X 


* YES 


*♦♦♦* 




♦ PV * 


. 


♦ F1+ 



SYSIPT 

END OF 

FILE 



INAERR 

ENDINC 

dtt****^i^********** 
♦ SAVE LINKRl ♦ 
YES ♦ IN LINKR4 * 



.X* 



BYPASS X 

3|c]|c**:4cH5 itt*#***i)c*** 

* * SVC 7 * * 

* * WAIT FOR * * 

* *SYSLNK I/O ♦ ♦ 
■ ♦COMPLETION ♦ ■ 



♦ J2 
ENTRY AND PHASE 
STATEMENT ENTER HERE. 



* * 



* * 



^^'♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



.*SYSIPT ♦. 








.♦ ANY ♦. 


,* *, 


.♦ UNIT 


* 


. YES I 




.♦ CARDS IN ♦. NO 


.* SYSIPT *. YES 


. EXCEPTION 




.♦ 


* 


.SYSLNK OUTPUT.*.... 


*. EOF .*.... 


♦ . 


* 






*. AREA .* 


*. .* . 


♦ . .♦ 








*. .* 


*. .* 


♦ . .♦ 








*, .♦ 


*. .* X 


♦ NO 








* YES 


* NO **** 

* * 

♦ G2* 


• 




















* ♦ 


X 

.♦ . 










♦♦*♦ 








X 




K3 *. 






*i^iil**^(^c^******^^*** 


X 


,* * 






♦LNKOUT PT* 


«4c4c«K5 ♦♦♦♦♦**** 


.* BLANK 


* 


. YES 


♦- 


-*-*_*-*-*-*-*_* 


* BRANCH TO * 


• CARD IMAGE 




...... 


♦ 


WRITE * 


* ATNCUU IN * 


♦ . 


* 




* 


TO * 


* SJOBCTLA * 


*. .* 






♦ 


SYSLNK * 


:^:(c«««4<4<«4(*««*^* 


*. .* 




X 


4c«*i(c«4<«^^^«^^^^^^ 




* NO 




♦♦** 

♦ ♦ 

♦ F3 ♦ 

♦ * 




^x. 




X 


X 




*♦*♦ 




**** 




**♦* 




♦ * 








♦ ♦ 




* 84 ♦ 








♦ H5 * 




* ♦ 








♦ ♦ 




**♦♦ 








♦♦♦* 
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*m**A I********* 



4i4i*««****4<*«4i4i« 



♦INITL KA« 

♦_♦_♦_♦_♦_♦_♦_♦_♦ 

* RELOCATE * 

* ADCONS ♦ 

* * 



* * 

* PUT ADDRESS ♦ 

* OF NVSERR * 

* IN LINKR4 * 

* * 



♦SCANft2 6K ♦ 

♦_♦_♦_*_♦_♦_*_♦_* 

♦POINT TO FIRST * 

* OPERAND ♦ 

* LOP CODE * 



* * 

* A2 ♦ 

* * 



.* IS *. NO 
COMMAND .♦.., 
*. WTM .* 
*. .* 



.* IS ♦. NO 
♦. COMMAND .♦.,. 
♦. RUN .♦ 



* SET CHAIN ♦ 

♦ BIT ON IN * 

* CCW * 

♦ * 



♦SCANR3 GK* 

♦_♦_♦_♦_»_♦_♦_♦_♦ 
♦POINT TO SECOND^ 

♦ OPERAND * 

♦ IUNIT> * 
«*«*****♦♦♦♦♦♦♦♦♦ 



.♦ DID ♦. 
YES .♦ EQUAL ♦ 

♦. SCAN .♦ 



♦♦♦♦ 

♦ ♦ 

♦ A3 ♦ 

♦ ♦ 
♦♦♦♦ 



6ETASG X 

♦CHKASG 6U ♦ 
♦-♦-♦-♦-♦-♦-♦-♦-* 

♦ CHECK THE ♦ 
♦ASSIGNMENT FOR ♦ 

♦ THIS UNIT ♦ 



YES .♦ IS ♦- 
...♦. THIS UNIT .♦ 
♦ .ASSIGNED .♦ 



♦♦*♦ 

♦ ♦ 

♦ A5 ♦ 

♦ * 
♦*♦♦ 

.X* 



n 

IN COL 1 
. AND 2 



♦♦♦♦A5 ♦♦♦♦♦♦♦♦♦ 

♦ BRANCH TO ♦ 

♦ NVSERR IN ♦ 

♦ SJOBCTLA ♦ 



♦TXCUU PT^ 
♦-♦_♦--♦-♦-«-♦-♦-♦ 

♦ GET DEV TYPE, ♦ 

♦ PUB ADDR, AND ♦ 

♦ PUB POINTER ♦ 
^[^♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



MTCMTC5 .♦. 


X 


C3 ♦. 


1^■fHHH^^^^i^1^■»^1HH^■^H^^^H^ 


.♦ IS *. 


* * 


.♦ THE UNIT *. NO ♦ PICK UP MASK ♦ 


♦. IGNORED ...... ♦ FOR OWNERSHIP ♦ 


♦. -IGN- .♦ 


♦ TEST ♦ 


♦ . .♦ 


* ♦ 


♦ . .♦ 


X ♦♦**♦♦♦♦♦♦♦*♦♦♦** 


♦ YES 


♦♦♦*♦ 




♦ PV ♦ 




* CI* 




♦ ♦ 
♦ 




NOT ERR X 




MTCTEST .♦. 


X 


D4 ♦. 


♦♦♦*D3^^++^+^^^ 


,♦ ♦, 


♦ BRANCH TO ♦ 


YES .♦CONFLICTING^. 


♦ CONTROL IN ♦ 


...♦. OWNERSHIP •♦ 


♦ SJOBCTLA ♦ 


♦ . .♦ 


4t4(4c4c4ti|t*4i]|c4c*«4c«3|c 


. ♦» .♦ 




X ♦. .♦ 




««*«« * NO 




♦ PV ♦ 




♦ F2+ 




♦ ♦ 
♦ 


MTC3 


NOSERR X 


«4c4t«^E3 ♦♦♦♦♦♦♦♦♦♦ 


##««*E4^^^^^^^^^^ 


♦SET DEVICE TYPE+ 


♦ SAVE ♦ 


♦ IN DVCTYP AND ♦ 


♦ OWNERSHIP ♦ 


.•A* bfiTEw ti.«SS '^ 


^ rLMub «Hi> -^ 


♦AND UNIT CLASS ♦ 


♦ PUB ♦ 


♦ IN WRKRG3 ♦ 


* NUMBER ♦ 


*««**4>4i*4t«4t^^^^^^ 


4c ^♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



.♦ IS ♦. YES 
.THIS A SYSTEM.^. .. 
♦. CLASS .♦ 



.♦ IS 
♦. THIS 
♦. SYSOOO 
♦ . 



*4(E5 ♦♦♦♦♦♦♦ 

♦ * 
^-.SET^ 

SWITCH 

♦ * 



♦IS OPERAND ♦. NO 


.♦ X»CUU' 


CHARACTERS IN. + ..X 


*. FORMAT 


♦. LENGTH .♦ 


♦ . 


♦ . ,♦ 


. ♦. .♦ 


♦ . •♦ 


♦ , .♦ 


♦ YES 


* NO 



♦CHKASG GU ♦ 
♦_*_ ♦_♦_♦_ »- ♦- *- % 

♦ ASSIGN SYSUE ♦ 

♦ TO DEVICE, ♦ 

♦ CLASSt ORDER * 



X 

.♦. 

.♦ IS ♦. NO 


. MTC2 X 

*4i*4c«G2^^^^^^^*^^ 
♦CNUNCO PT^ 

, ♦-♦_j|t_*_#_#_j|c_*_* 


OPERAND .♦..X 
♦. VALID .♦ 
♦ . .♦ 
*. .* 


♦CONVERT SYSXXX ♦ 
♦ TO SYMBOLIC ♦ 
♦UNIT ADDR ♦J3^ 



♦G3 

1. MOVE COMMAND TO CCW. 

2. SET CHAIN BIT OFF. 



....X. 

X 
•♦. 
G4 ♦. 
.♦ IS ♦. 
DEVICE ♦. 
MAGNETIC 
. TAPE .♦ 
♦ . .♦ 
♦ . .♦ 
♦ YES 



♦ ♦ 

♦ CONVERT TAPE ♦ 
♦COMMAND TO HEX ♦ 
♦AND INITIALIZE ♦ 

♦ CCW ♦ G3 ♦ 



IS ♦. NO 
COMMAND .♦... 
DSE ,♦ 



♦ ♦ 

♦ MODIFY ♦ 

♦ CCW CHAIN ♦ 

♦ FOR DSE ♦ 

♦ ♦ 
*♦♦♦♦**««««***«*« 



THE UNIT 
A SYSTEM 
. ENTRY 
♦ . 'WS .♦ 



4(4>«**J2 ♦♦♦♦«♦♦«*♦ 

♦ ♦ 

♦ UPDATE WRKRGl ♦ 
♦TO POINT TO IST^ 

♦ PROGRAMMER ♦ 

♦ LUB ♦ 

4c«:|i««4i :»♦♦♦♦♦♦*♦*♦ 



♦ ♦ 

♦ COMPUTE LUB ♦ 

♦ TABLE DSPLT ♦ 

♦ FOR THIS UNIT ♦ 

♦ IN WRKRG3 ♦ 







X 
.♦. 








♦H3 




H4 *. 








WRKRGl CONTAINS THE 




.♦ IS ♦ 








LUB POINTER TO THE 


.♦ 


DEVICE 


'♦, 


YES 




FIRST SYSTEM UNIT. 


*. 


A TAPE 




♦ ..X 






♦ 


.CARTRIDGE 
♦. PDR .♦ 


,♦ 










♦ . .♦ 




X 






♦ NO 




***** 
♦ PV ♦ 






• 




♦ CI* 

♦ ♦ 






X 




♦ 






.♦. 




NDTERR 


♦ J3 




J4 ♦. 






SYMBOLIC UNIT ADDR, 
SYST AND UNIT CLASS, 




,♦ ♦ 






.♦ 


DEVICE 


♦ 


YES 


IS RETURNED IN THE 


♦ . 


DOWN 




*.... 


FIELD UNCLOR. BYTE 


♦ 




♦ ' 




IS SYSTEM CLASS. 




**. .* 






BYTE 1 IS UNIT CLASS 




♦ . .♦ 
♦ NO 

X 
***** 
♦PF ♦ 




X 

***** 

♦PF * 

♦ C4+ 

♦ ♦ 

* 






♦ Al* 




N 


3SERRI 



♦♦♦♦ 

♦ ♦ 

♦ A2 ♦ 

♦ ♦ 
♦♦♦♦ 
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***** 

*PE * 
* J4* 



♦♦♦♦ 

♦ ♦ 

♦ A2 * 

♦ ♦ 
***♦ 



* A3 ♦ 

* * 
**** 



*****fi^l***:^****** 

* * 

* PICK UP MASK * 

* FOR OWNERSHIP ♦ 

* TEST * 

* * 
^iHiAt************** 



iti*,ti:t:iffi^2********** 

♦MTNCNT GW* 
*_♦_♦_♦_*_♦_♦_♦_♦ 



:^***:ti***,t^3ii*iti)tc**** 



^****/l^2*****:li*ic^t:tt 

♦NUMCON PU* 
♦_*-♦_♦_* _♦ -*-* -* 

* CHECK DUP * 
♦FACTOR AND CON-* 
♦VERT TO BINARY * 
***************** 



MTCTESTl .*. 


X 


.*. 










BI *. 


>(i4c**4tB2 ♦♦♦♦♦♦♦♦♦♦ 


B3 ♦. 










.* *. 


♦ INITIALIZE ♦ 


.♦ IS *. 










.♦CONFLICTING*. 


♦ REGISTER ♦ 


.♦ DUP ♦. 


/ES 








...*. OWNERSHIP .* 


♦ WITH LOG ♦ 


♦ . FACTOR .* 










*. .* 


* UNIT ♦ 


*. .♦ 










*. .* 


* ♦ 


*, ,♦ 








***** 


X *. .* 


;|i#*i|c4c«*«4(«3((«it(«*4i4c 


♦ . .♦ 


X 






♦ PF ♦ 


**** « fgo 




♦ NO 


♦ ♦♦* 






♦ J4+ 


♦ ♦ , 




♦*♦* , 


♦ 


♦ 




♦ ♦ 


* C4 * 




♦ ♦ 


♦ K3 


* 




4c 


* * 




♦ C3 ♦.X. 


* 


* 






**** 


• 


♦ ♦ , 
♦♦♦♦ 


♦*♦« 






• 


X 


X 


X 




NDSERRl 


X 


*^ft**Cl********** 


#«*:««C 2 ♦♦♦♦♦♦♦♦♦♦ 


«*4()tc4cC3*««««4e*4c4c4c 






*4icit******* 


* * 


♦ESTVOPEN PF^ 


♦EXCPRG GQ^ 






* 




* GET EXT * 


*_»_*_♦_♦_*_♦_♦_♦ 


*_♦_*_*_♦ _*-♦-♦ _* 






* 


SET 


* ADDR FROM * 


♦ FETCH ♦ 


♦ EXECUTE ♦ 






* 


ERROR 


* COM REG * 


* $$BOPEN TO ♦ 


♦ DESIRED ♦ 






* 


EXIT 


* ♦ 


♦ OPEN FILE ♦ 


♦ I/O ♦ 






* 




^E^^c^^cie^Jlile^^^iC^*** 




4l****)ll*****i(IC'tit'*** 






4c*******i)t)t:i)i 




♦**♦ l 










• 




* * . 














* 02 ♦.X. 










X 




♦ ♦ , 










♦ ♦♦* 


X 


♦♦♦♦ 


X 








* * 


.♦. 


NOESTV X 


.♦ . 








* E3 * 


Dl *. 


it,t***\)2 ********** 


03 ♦. 








♦ * 


.* *. 


* * 


.♦ ♦. 








**** 


.♦ COM ♦. NO 


* INIT ALUE ♦ 


.♦ NEW ♦. 


MO 








*. REG EXT .*.... 


....X* REGISTER ♦ 


♦ . DUP .♦ 










♦.AVAILABLE.* 


♦WITH LOG- UNIT ♦ 


♦.FACTOR .♦ 










*. .♦ 


* * 


♦ , .♦ 










*. .* 


««*4c«**«^4t««#«««:(c 


♦ . .♦ 


X 








♦ YES 


\ 


♦ YES 
*♦*♦ 

♦ ♦ . 

♦ E3 ♦.X. 

♦ ♦ . 
**♦♦ X 


**** 
* 

♦ C3 
* 

♦ ♦♦« 


♦ 

♦ 
♦ 






X 


X 


EREXIT .♦. 










#«««4!E 1********** 


«***«E2^****^^*** 


E3 ♦. 










* ♦ 


* ♦ 


.♦ ♦. 










♦ GET RF * 


♦ INITIALIZE ♦ 


.♦ PUB ♦. 


fES 








♦ TABLE ♦ 


♦ CCB AND CCW ♦ 


♦. IGNORED .♦ 










♦ ADDR ♦ 


♦ *H3 * 


*. .♦ 


. 









**:^^imf^t********* 



.♦ RMSR 
♦. SUPPORTED 
♦ . 



**** 

♦ * 

♦ 02 ♦ 

♦ ♦ 
♦♦♦* 



4c«:4c4c«;tc4(*«4c«4:4<4c«4(« 



##*4e4'F2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ SET COUNT FDR ♦ 

♦ SINGLE I/O IN ♦ 

♦ WRKRG4 ♦ 

♦ ♦ 
^.^^^^•(♦♦♦♦♦♦♦♦♦♦♦^ 



*itif^******j^ 

* * 
RESET PUB 
OWNERSHIP 

FLAGS 

* * 
4i********** 

*. X 



****l^^ ********* 

♦ * 

♦ ESTVOPEN ♦ 

♦ * 
^^^^^■^'♦♦♦♦♦♦♦♦* 



ESTVOPEN X 

i|c4c«*4cB5 ♦♦*♦♦♦***♦ 

* ♦ SVC 2- * ♦ 

* ♦ FETCH * ♦ 

* * SSBOPEN * * 

* ♦ TO OPEN * ♦ 

* ♦ FILE * * 

*#4t*4c]|c <!♦♦♦♦♦♦♦♦♦♦ 



****icC5 ********** 

♦ * 

♦ INITIALIZE ♦ 

♦ REGISTERS ♦ 

♦ *H4 ♦ 

♦ ♦ 
**********Hi**iH*** 



♦ ♦ 

♦ SVC 22 * 

♦ ♦ 

**:/t'************** 



**Qlh****** 

* POST ♦ 
OPEN 

REQUEST 
IN COMREG 

♦ EXT ♦ 



NO 


.* 


♦ 


. .* 


. WTH 


COMMAND 




*. 


.* 




*. 


.♦ 



♦♦J I******* 

* * 
POST WTM 

REQ IN 
COMREG EXT 

* * 
*M^********* 



**4c*4cK I********** 

* * 

* INITIALIZE * 

* REGISTER * 

* ♦HA ♦ 

* ♦ 
***************** 



.♦ DID ♦. 
.♦ A BLANK ♦. YES 
♦.STOP THE LAST.^.... 

♦. SCAN .♦ 



♦♦♦* 

♦ ♦ 

♦ C3 ♦ 

♦ ♦ 
♦♦** 



♦ UNASSIGN ♦ 

♦ SYSUSE LUB ♦. 

♦ -SET TO X»FF« ♦ 

♦ ♦ 



*****H2 ********** 
*SCANR2 GK* 
♦-»_*_♦_*_♦-♦-♦-♦ 
*POINT TO THIRD * 

* OPERAND * 

* -DUP FACTOR- * 



****Qt^********* 

* BRANCH TO * 

* CONTROL IN ♦ 

* $JOBCTLA * 
it*i$^***-tf****i^*** 



♦H3 
SET MODE COMMAND TO CCW. 
MOVE SYS AND UNIT CLASS 
TO CCB AS SYMBOLIC UNIT 
ADDRESS. 



*H4 
X»FF« TO SET SYS MASK 
TO ALLOW ALL INTERRUPTS. 



J2 *. 








* DID ♦. 






A BLANK 


♦. NO 




END THE 


.♦.. . 




SCAN 


♦ X 




♦ . .* 








*. .* 








♦ YES 




**** 




• 




* * 

* K3 *.X 








i * ♦ 




X 




**** 




.♦. 








K2 ♦. 




X 


* ♦ 




«*:tc«K3 ♦*♦♦♦♦*♦♦ 


DUP 


♦. YES 


* BRANCH TO i 


FACTOR GT 


.♦... 


* NVSERR IN 1 


99 


* 


* SJOBCTLA i 


*. .♦ 




*******i 


a******* 
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* ♦ 

* A3 * 

* ♦ 



**♦♦* REFERENCES 

* * TO PGBl: 

* ** PHG3, PJE5 
** PJKl. PKJ3 

* PPJ2 



****A2***4i**«*4t 



4i***«4>#*«**4e*4e« 



SETEXT .*. 

Bl *. 

.* DID *. 

.* A BLANK ♦. NO 

..X*. END LAST .*. .. 

*. SCAN .♦ 



* * 

* Bl * 

* « 



.SET X 

4i*4c4c*B2 *****«**«« 

♦ SCANR2 GK* 

♦ POINT TO ♦ 
♦CURRENT OPERAND* 

♦ *F5 * 



DATE ♦. YES 
CONFIG= .♦... 
.MM/DD/YY .♦ 



* ♦ 

* SWITCH * 

* MONTH AND ♦ 

* DAY REGS * 

* * 



* * 

* B4 * 



♦**♦♦ 
*PH * 
♦ Al* 



♦ BRANCH TO ♦ 

♦ CONTROL IN * 

♦ SJOBCTLA * 



• *« .*. 

C2 ♦. C3 *. 

.♦ DID *. .♦ ARE *. 

.* AN EQUAL ♦. NO NO .♦YEAR MONTH 

.SIGN END THE .*..... X. . .♦. AND DAY IN 

♦. SCAN .* . ♦. PROPER . 



NO 


,♦ 


FIELD 


. ..* 




LENGTH= 




* 


6 






♦ . 


X 




*. .♦ 


**♦* 




* Y 


* 






H5 ♦ 






* 






*♦♦♦ 







♦pp ♦ 

♦ Al* 



***** 
*PP * 
* A3* 



Fl * 
* 

UPSI 



* YEAR 

EQUAL EVEN 
♦.HUNDREDS . 



*****F3 ***♦*♦*♦♦* 

* * 

* ADD 1 TO * 

* DAY COUNT * 

* FOR LEAP * 

* YEAR * 

*4e4c4e *«********>(<*« 



♦ B4 * 

♦ * 
♦*** 

SYSUPI 
.*' 



««***D4********** 
*SCANR3 GK* 

♦_♦_»_♦_♦_*_♦_♦_* 

* POINT TO * 

* PARAMETER ♦ 

* -NN- * 
4c4c4c««************ 



.* ENDED BY *. NO 
*. BLANK .*... 

*. OR .* 

*. COMMA,* 



**«««P4*«*4t4<4c**4c* 

♦NUMCON PU* 

♦-*_♦-*_♦_*_*_♦-* 

* CONVERT * 

* PARAMETER TO * 

* BINARY * 
**4t«*******«4i«*«« 



4t«**4tB5 4c********* 

* * 

* COMOUTE * 

* NEW REMAINING * 

* LINES * 

* OER DAGE * 
*4c4E)ti************* 



C5 *. 

.* NEW *. 

.* REMAINING 

COUNT 

*. POSITIVE . 

*. .* 

*. .♦ 

* NO 



♦*«**D5 ********** 

* * 

* SET REMAINING * 
*CaUNT TQ X'Ol* * 

* INDICATING ♦ 

* END OF PAGE * 
***************** 



*F5 
THE OPERAND 
POINTED TO BY 
THIS SCAN MAY 
BE DATE, CLOCK, 
UPSI, LINECT, 
RCLST, RCPCH, RF. 



«**«*H1********** 
*SCANR3 GK* 
♦-*_*-*-*_*_♦_♦_* 

* POINT TO UPSI * 

* PARAMETER * 

* -NNNNNNNN- * 

4c****4c*4c«*4e****** 



Jl *, 

.* SCAN *. 

.* ENDED ♦. NC 

. BY BLANK OR .*. . 

*. COMMA .♦ 



*. 



X 
♦**** 
*PK * 
♦ C2* 



.* *. 

YES .* TOD * 

....*. SUPPORT 

*. .♦ 

*. .* 

*. .* 
* NO 



.* FIELD 
LENGTH= 
*. 4 



4c****J2********** 
*BINCON PU * 

*-*-*-«-*-«-*-*-* 

* CONVERT DATE * 

* TO * 

* BINARY * 
***************** 



*****K2 ********** 

* * 

* STORE DATE ♦ 

* IN SYSDAT, * 

* COMREG+79 * 

* * 
***************** 



* COMPUTE DAY * 

* OF YEAR AND * 

* STORE IN * 

* COMREG * 

*«3(C«************* 



8JF 

,** 
*. .* 
* YES 



MMDDl X 

***«*J3********** 

* STORE DAY OF * 

* YEAR IN EACH * 

* PARTITION'S * 

* COMREG * 

* * 
***************** 



G4 *. 
.* VALUE ♦. 
f LESS THAN 

30 OR 
♦. GT 99 . 



**4c**H4********** 

* SAVE OLD LINE * 

* COUNT AND * 
♦STORE NEW COUNT* 

* IN LINCNT * 

* -COMREG+78- * 
***************** 



**** 

* * 

* B5 * 

* * 
**** 



*#*]ttH5 ********* 

* BRANCH TO * 

* NVSERR IN ♦ 

* SJOBCTLA * 
*************** 
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Chart PH, $JOECTLJ - SET Stateirent Prccesscr (Fart 2 cf 3) 

Hefer to Chart 16. 



***** 

*P6 * 
* B4* 



X 

.*. 

Al ♦. 



****A2********* 

* * 

* DATE ♦ 

* * 

***^!*********** 



***** 
♦PJ ♦ 

* Bl* 



*. 

*. 

.** 



DATE 

*****]Q2********** 
*SCANR2 GK* 

* POINT * 



♦***♦ 
♦PJ ♦ 
* A3* 



*. 



*. 



CI 
.* DISK 
.♦ I/O FOR 
. SYSLST OR 
♦. SYSPCH 
♦ . .* 

*. .♦ 



*****J}l**tc******* 

♦INITIALIZE REGS* 

* WITH DIB TBL * 

* ADDR. P0INT4 * 

* WITH SYSLST * 

* DIB ADDRESS * 
♦♦♦♦«♦♦♦♦♦♦♦«♦*♦♦ 



El ♦. 

* ♦, 

IS 

OPERAND 

PCLST . 

*. .* 

*. .* 

* NO 



♦♦♦♦♦p !♦♦♦««♦♦♦«♦ 

♦ SET P0INT4 * 

♦ AS POINTER * 

♦ TO SYSPCH ♦ 

♦ DIB * 

♦ ♦ 
♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



.♦ IS *. 

OPERAND 

*. RCPCH .* 

♦ . .* 



♦♦♦♦ 

♦ ♦ 

♦ J5 * 

♦ ♦ 
♦♦♦♦ 



TO 



X 

.♦. 

C2 *. 

,♦ ♦. 
DID * 
BLANK END 
«;CAN ,* 

*. ' .* 
♦, .* 
♦ YES 



.♦CHARACTERS 
IN 
*. LENGTH . 



^♦♦««E2********** 



♦♦*♦♦*♦*♦♦♦♦*♦**« 



.♦ TOD ♦. NO 
*. SUPPORT .*.., 
♦ , ,♦ 



♦♦♦♦♦G2 ♦***♦♦♦♦♦♦ 

* ♦ 

* SET * 

* DATE BIT ON * 

* IN COMREG * 

* * 
♦*«♦♦*«♦♦♦♦♦♦♦*«« 



♦♦*♦ 

♦ ♦ 

♦ C3 ♦ 

♦ ♦ 
♦♦♦♦ 



C3 *. 
.* SCAN * 
.♦ ENDED BY 
. BLANK OR 
*. COMMA 
*. 



DIBRC 

♦♦♦♦«H !♦♦♦♦♦♦♦♦♦* 
♦SCANR3 GK* 
♦-♦-♦-♦-♦-♦-♦-♦-* 

♦ POINT TO * 

♦ PARAMETER * 

♦ -NNN- ♦ 

♦ ♦^^^(♦^^♦♦*3|C^«*^« 



* YES 



•*. 
D3 *. 
.* IS *. 
NO .* PARAM AT *. 
...*, LEAST 3 CHAR . 
*.IN LENGTH.* 
*. .* 

♦ . .* 
* YES 



*****i^^JttTH*nim***** 
♦NUMCOM PU* 

♦_* _♦_*_♦ _♦ -*_♦ _* 

* CONVERT RC * 

* PARAMETER TO * 

♦ BINARY * 

♦ ♦♦«*4c«««^«4ti|e«^3(i« 



***:^*f:^*1lt******iii* 

* ♦ 

* STORE * 

* RESIDUAL ♦ 

* COUNT ♦ 

* ♦ 
«*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



G3 *. 
.* IS *. 
* RC GT 
65,535 
*. 

♦ . .* 

*, .♦ 
* NO 



***** 
*PG * 
* Bl* 



*lf**l^i,.********* 



♦ ♦!((««♦#♦♦♦♦♦♦«« 



.♦ TOD *. 

SUPPORT 
*. .* 



*♦♦«:*(;; 4********** 
♦SCANR2 GK* 

* _♦_♦_♦_:«:_♦_*_♦-* 

* POINT * 

* TO * 

* OPERAND * 

* ♦♦♦♦♦♦♦♦ 4t 4c ♦♦««4c« 



04 *. 
.♦ ♦, 

DID *. NO 

BLAND END .*,.X 
. SCAN .* 



.* 10 *. NO . 

*. CHARACTERS .*..X. 

*.IN LENGTH.* 



**ti** f^j^********* 
♦NUMCON PU * 

♦_♦_♦_♦_♦_ ♦_♦_♦-* 

* CHECK AND * 
*CONVERT HRS AND* 
*SECONDS TO BIN.* 
^♦♦♦*it(4i«4t«««*^^4i](< 



IS 

ZONE 

-EAST 



IS 

ZONE 
=WEST 



♦♦♦♦♦E5 ♦♦♦♦♦♦♦♦♦♦ 

* ♦ 

* GET NEGATIVE * 

* VALUE OF * 

* SECONDS * 

* ♦ 
i^*i),Hi*il,***1f****ilfHt*i 



SKIP X 

^^♦♦♦F5 *******♦*♦ 

* STORE ZONE * 

* VALUE IN * 

* JOBZONE IN * 

* COMREG * 

* EXTENSION ♦ 
«*♦♦♦♦♦♦««♦♦♦♦♦♦♦ 



♦♦♦♦G5 *««♦♦♦♦♦♦ 

* RETURN TO ♦ 

* CALLING * 

* SEQUENCE ♦ 
*♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦*♦ 

* * 

* J5 * 
» ♦ 

♦♦♦♦ 



^♦♦♦H2********* 

* BRANCH TO * 

* CONTROL IN * 

* SJOBCTLA * 
♦♦^♦^(.^.^♦♦♦♦«4c«4c 



^♦«4c^J4^«^*^^^^4t« 

* CONVERT HOURS * 

* TO SECONDS * 

* AND ADD * 

* TO SECONDS * 

* ♦ 
^(♦♦«)K*4c !!(«♦♦♦♦♦♦♦♦ 



♦♦♦♦ 

♦ ♦ 

♦ J5 * 

♦ ♦ 
♦♦♦♦ 



))<«♦♦ j5 ♦««♦***♦♦ 

* BRANCH TO ♦ 

* NVSERR IN ♦ 

* SJOBCTLA ♦ 
«♦♦♦♦♦*«♦♦♦♦♦♦♦ 



♦ B5 * 

♦ * 
♦♦♦* 
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Chart PJ. $JOBCTLJ - SET Stateirent Prccesscr 
Refer to Chart 16. 



(Fart 3 cf 3) 



***** 

♦ PH ♦ 

* BI* 



**** 

♦ * 

♦ A4 ♦ 

♦ * 
**** 



* * 

* SYSRF * 

* * 



♦♦♦* 

♦ PH ♦ 

♦ Al *.X 



_♦_♦_*_♦_♦ 

* POINT TO * 

* PARAMETER * 

* -HC STATUS- * 



SCAN ENDED *. 
Y A BLANK OR. 
. COMMA .* 



SYSHC .*. 

A3 *. 
.* * 

.♦ FIELD 
*. LENGTH=2 



B3 *. 
.♦ ♦. 

* CRTTAB 
AVAILABLE 



.* 
* YES 



^^^■^*C3********** 
♦SCANR GK* 

♦_» _♦_♦ _* _*_*_♦ _♦ 

♦ POINT TO * 
♦PARAMETER HARD * 

* COPY STATUS * 
if^cm************** 



.♦SCAN ENDED *. 
.ON A BLANK OR. 
♦. COMMA .♦ 



HC=YES 

♦ . 

♦ . .♦ 



B4 ♦. 

.♦ ♦. 

HC=CREATE 



X 

.♦. 

C4 *. 



A5 ♦. 
.♦ ♦. 

FIELD *• NO 
LENGTH=3 .♦.., 



i^^fis******* 

* * 

♦ INDICATE * 

♦HARD COPY FILE 

♦TO BE OPENED * 



♦ ♦ 

♦INDICATE HARO^ 

♦COPY FILE TO BE^ 

♦ CREATED ♦ 

♦(IN CRTSAVJ^ 

*«««3tC <>♦♦♦♦♦ 

\ ♦♦♦♦ 

♦ ♦ 
..X^ C5 ♦ 

♦ ♦ 

♦♦♦♦ 



♦ 


!<*«*«*««♦♦ 




♦*♦♦ 




♦ 


♦ . 




♦ C5 


♦ .X. 




* 


♦ • 




*♦♦♦ X 




HCEND 


C5 *. 




,:N ♦. 




NO •♦ 


INITIAL *, 




.. .♦. 


IPL 


♦X 


♦. 


,♦ 





♦ ♦ 

♦ CLEAR * 

♦ OPTI ON ♦ 

♦ BITS ♦ 

♦ ♦ 
«**♦♦♦♦♦♦♦♦♦♦♦*♦♦ 



♦♦*♦ 

♦ ♦ 

♦ K2 ♦ 

♦ ♦ 
♦♦♦♦ 



♦♦♦* 

♦ ♦ 

♦ K2 ♦ 



Fl ♦. 
♦ 

RF=YES 



♦♦♦♦ 

♦ ♦ 

♦ A4 ♦ 

♦ ♦ 
♦*♦♦ 



«*J !♦♦♦♦♦♦♦ 




♦ ♦ 


♦ ♦ 




♦*♦♦ 


♦ SET SWITCH ♦ 






♦FOR FILE TO BE ♦ 






♦ EVALUATED ♦ 






♦ ♦ 




♦*♦♦ 


#««**4.*4>«:)<« 




♦ ♦ 

♦ K2 ♦ 


♦♦♦♦ I 




♦ ♦ 


♦ ♦ , 




♦♦♦♦ 


♦ Kl ♦.X. 






* ♦ , 






♦♦♦♦ X 






RFEND .♦. 






KI ♦. 




X 


.♦ ♦. 




:|t*:**K2 ********* 


.♦ ♦. NO . 


« ♦ 


BRANCH TO 


♦. INITIAL IPL .*... 


....X^ 


NVSERR IN 


♦ . .♦ 


♦ 


$JOBCTLA ^ 


♦ , ,♦ 




^^^^'♦♦♦♦♦♦♦♦♦♦^ 


♦ . .♦ 






♦ YES 






SET EXT : 

X 
♦♦♦*♦ 










*PG ♦ 






♦ B1+ 







NO •♦ FIELD ♦. 
X....^. LENGTH=3 

♦. .♦ 



iltitm2******* 



SET SWITCH 

FOR FILE 

CREATED IN 

♦ RF TABLE ♦ 

ii:ti ********* 



F4 ♦. 

.♦ IS ♦ 

SYSLOG 

ASSIGNED 



.♦ ♦. 

.♦ ♦ 

.♦. SYSLOG CRT 



itif *************** 



***** 

♦PG ♦ 

♦ Bl^ 

♦ ♦ 



G5 



.♦ 



NO 



INITIAL IPL .*.... 
♦. .♦ 

♦- -♦ 

X 
♦*♦♦ 

♦ ♦ 

♦ K2^ 



♦ YES 



* ♦ 

♦ INDICATE * 
♦ HARD COPY FILE 

♦ NOT IN USE • 

♦ ♦ 



^^♦♦♦H5 ♦♦♦♦♦♦♦♦♦♦ 

♦ SET UP ♦ 

♦ MESSAGE ♦ 

♦ »1I98I« ♦ 
♦•HC=NO IGNORED ♦ 
♦YES IS ASSUMED'^ 
4i«4> ♦♦♦♦♦♦♦*♦♦♦♦♦♦ 



_♦_*_*_*_♦_*_*_* 



^«« ]((;«:#«:(: itc^c^^^fc^* «>(c 



t*i(,'^ ******* 



4i4i««*»c«:tt«4t4i 



Charts 213 



Chart PK. $JOBCTLJ - UPSI Statement Processor 
Refer to Chart 16 • 



♦ UPSIPROC ♦ 

* * 



UPSIPROC 

♦SCANR2 GK* 

♦_♦_♦_♦_♦_♦_♦-♦_♦ 

♦ POINT TO * 

♦ OPERAND * 

♦ -NNNNNNNN- * 



♦ PG ♦ 

* Jl* 



CI *. 

.*' A BLANK *♦. YES 
. STOP THE .*..... 


SYSUPTl .♦. 

C2 ♦. 
.* VALID *. 
.♦ LENGTH ♦. YES 
...X*l-8 CHARACTERS.*... 


*. SCAN .♦ 
*. .* 


♦ . .* 
*. .* 


♦ . .♦ 


*. .* 


* NO 


* NO 


Dl ♦.X. 

* , 




♦♦♦* 




X 




BRANCH TO * 
NVSERR IN ♦ 
$JOBCTLA ♦ 





POI 

WRK 



LOOP CONTROL 



MRKRG3 = BIT ON MASK, HEX 0080 
BIT OFF MASKt HEX FF7F 



♦ INITIALIZE ♦ 

♦ REGISTERS FOR ♦ 
.X*SETTING BITS ON* 

♦ AND OFF * 

♦ *EI * 

*♦♦♦ ', 

♦ * , 

♦ D3 *,X. 



THIS 
CHARACTER 
. AN X 



E3 
.* IS 
THIS 
CHARACTER 
A 1 



*. 



* OR BIT ON * 

♦ USING MASK * 

♦ IN WRKRG3 * 

* ♦ 



.♦ IS *. 

THIS *. NO 
CHARACTER .*.... 
A .* 



* AND BIT OFF * 

* USING MASK * 

* IN WRKRG4 * 

* * 



NXTBIT 

* SHIFT WRKRG3 * 

* AND WRKRG4 * 

* RIGHT ONE BIT * 
*T0 CONTROL NEXT* 

* UPSI BIT * 



:tt4c«4<4tH3 ********** 

* INCREMENT * 
*P0INT1 TO POINT* 

* TO NEXT CHAR ♦ 

* OF UPSI PARAM * 

* * 



* LAST * 


. YES 


UPSI CHAR 


.*.... 


*. CHECKED .* 




*. .* 




*. .* 


X 


* NO 


**♦*♦ 




*PG * 


. 


* Bl* 



21*4 DOS/vS IPL and Jofc Contrci 



Chart PL. $JOECTLJ - FAUSI, LCG, and NOLOG Coiriraiid Processors 
Refer to Chart l^l. 



♦♦**A1********* 

* PAUSE ♦ 

* * 



Bl ♦. 

.♦ WAS ♦. 

.* STATEMENT *. 

FROM ,♦ 

♦.OPERATOR .* 

*. *F3 .* 

*. .* 

* NO 



*S6T SYSLOG * 

♦ INPUT ♦ 
* INDICATOR ON 

♦ JCSWl ♦ 
* * 

*«♦«♦*♦♦♦«* 



♦ SET ♦ 
JCSWl 

TO LOG ON 
SYSLOG 

* * 



♦ * 

♦ LOG * 

♦ ♦ 



B3 *, 
.« WAS ♦. 

.* STMNT *. 
.FROM OPERATOR.' 
*. *F3 .* 



* SET * 
JCSW4 

TO WRITE TO 
SYSLST 

♦ ♦ 



♦LSTOUT 6J* 

♦ WRITE * 



* * 

* NOLOG * 

* ♦ 



.*. 

84 *. 
.♦ WAS *. 
» STMNT *. YES 



♦. ♦Fa .* 

♦ . .♦ 

♦ . .♦ 

♦ NO 






,*!** 


ONOLOG X 


* TURN OFF * 
LOG SWITCH IN* 

JCSW4 * 

♦ * 

* * 


* TURN 

♦ OFF LOG 
* SWITCH IN 

♦ JCSWl 

* 


Ix 


• 



♦♦♦* 

* ♦ 

♦ Fl ♦ 



♦ SET PAUSE * 
FOR NEXT 

ENTRY 
SWITCH 

♦ ON ♦ 



♦ ♦*♦ 

♦ ♦ 

♦ Fl ♦.X 

♦ * 
♦♦♦* 



♦♦♦♦F !♦♦♦*♦♦♦♦♦ 

• BRANCH TO ♦ 

* CONTROL IN ♦ 
« tJOBCTLA ♦ 



♦ F3 
JOB CONTROL SWITCH 
NO. 4 IS CHECKED 
FOR OPERATOR 
COMMUNICATIONS. 
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Chart PM. $JOECTLJ - STOP Stateirert Prccesscr 
Refer to Chart la. 



• * 
« STOP * 

♦ * 



.* IS *. 

* MULTI- ♦. NO 

PROGRAMMING .*. .. 
*. SUPPORTED.* 



4<*;tc«B2**'C****4<* 

* BRANCH TO * 

* NVSERR IN ♦ 

* IJOBCTLA ♦ 



♦♦♦♦♦CI********** 
*MTNCNT GU * 
♦_«_♦_♦_♦_♦_♦_♦_♦ 

* RELEASE * 

* THE * 

* SYSTEM * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦ 

♦ ♦ 

♦ 03 * 

♦ ♦ 
♦♦♦♦ 



I/O 
ON SYSLOG 
.COMPLETE . 



♦♦♦♦♦02*** 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



**03 ******* 

♦ ♦ 
SET STOP 

COMMAND SW 
IN PIB 

♦ * 
♦♦♦♦♦♦♦♦♦♦♦ 



**E1******* 

* TURN ON * 
* INPUT FROM * 

SYSLOG SWITCH * 
-JCSW4 BIT2 =* 

♦ 0- * 
♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦E3^^^^^^«^*^ 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



.* JOB *. 
.*ACCOUNTING *. 
. INTERFACE . 
*. SUPPORT .* 



**G1^****** 
* SET BR * 
*AT ACCTIGNT6 
* TO 
* PROGRESS 
*ACCOUNTING * 
♦♦♦♦♦♦♦♦♦♦♦ 



**H2******* 

♦ ♦ 
SET NO 
ACTIVE 

PARTITION 

* SW ON * 
♦♦♦♦♦♦♦♦♦♦♦ 



■ACCTUPDT 

♦♦♦♦♦J !♦♦♦♦♦♦♦♦♦♦ 

* DECREMENT * 

* PARTITION * 

* COUNTER * 

* AND * 

* STORE * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



.X.X. 



♦ ♦♦♦ 

♦ ♦ 

♦ 03 * 

♦ ♦ 
♦♦♦♦ 



.* IS *. 
* THIS THE * 

ONLY ACTIVE 
*. PART .* 



♦♦♦♦♦Q3 ♦♦♦♦♦♦♦♦♦♦ 

* ♦ 

* INCREMENT * 

* BATCH * 

* PARTITION * 

* COUNTER * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦H3 ******* 
♦ ♦ 

* SET NO * 
ACTIVE 

* PARTITION * 
*SWITCH OFF * 

*♦♦♦♦♦♦♦*♦♦ 



♦♦♦♦♦j3+^^^^^+^++ 

* CLEAR * 

* TIME COUNTERS * 

* IN * 
♦PARTITION TABLE* 

* * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



****K3********* 

* BRANCH TO * 

* CONTROL IN * 

* $JOBCTLA * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
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Chart PN. $JOBCTLJ - CATAIR Stateirent Processor 
Refer to Chart 16. 



« * 

♦ CATAL ♦ 

* * 
mm************* 



L .*. 

Bl *. 

.* IS *. 
.♦OPTION LINK*. 

CARD 
♦. PRESENT .* 



tmci******* 

* * 

* SET CATALR * 
OPTION SWITCH 

* JBCSW5, * 

* BIT ON * 

mmiliittilfit:***** 



.*FIRST CARD *. 
•".COLUMN BLANK . 

*, .* 



*♦♦♦♦ 
♦PV ♦ 
♦ F3* 



♦*B2******* 

* * 
MODIFY 

FOP PUNCH 
STACKER 2 

* * 
*m********* 



C2 *. 
.♦ IS * 
.* DEVICE A 
1442 NI 



NXTOPRD 

m****El********** 
♦SCANR2 GK * 

m-*-*-*-*-*-*-*-* 

* POINT TO * 

* CURRENT * 

* OPERAND * 





.*. 








Fl *. 








.* * 






NO 


.♦ OPERAND 


** 




..* 


. DELIMITER 


A 


* 




♦. BLANK 


.* 





.* 
.* 

NO 



D2 ♦. 
.* IS * 

.* DEVICE A 
*. 1442 N2 



♦♦** 

* * . 

* E2 *.X. 

* ♦ . 
**** , 

T1442 X 

m*E2******* 
* * 

* MODIFY CCW * 
*FOR PUNCH 1442 

* STACKER2 * 



**♦* 

* ♦ 

* F2 *. 



* * 

* 83 * 

* ♦ 
**♦* 



MRTN X 

mTtt***Bi********** 
♦VMBUCK PN* 
*_♦_*_♦_*_*_♦_♦_* 
♦PICK UP VERSION* 
♦NUMBER AND NEXT^ 
♦ CHARACTER ♦ 
m**************** 



C3 *. 

* *, 
IS NEXT * 
CHAR A 
PERIOD .* 

♦ . ,* 



4c**4c 

* ♦ 

* B4 * 

* ♦ 
**** 



* CONVERT VERS ♦ 

* NO. TO BINARY ♦ 

* AND STORE IN ♦ 

* ENTRY AREA * 

* FOR V.M * 
:lfm*****v********* 



**** 

* * 

* E2 * 

* ♦ 
*♦*♦ 



YES 



4t4:««4tD3 ****♦*♦*♦* 

* STORE VERSION * 
*N0, IN CONVERT * 
» BUCKET AND * 

* POINT TO NEXT * 

* CHARACTER * 



***** 
*PV * 
* 85* 



**** 

♦ * 

♦ B2 * 

♦ * 
♦*** 



* IS 
DEVICE 

TAPE 



**G2 ******* 

* * 
MCDIFY 
CCW FOR 

TAPE 

* * 
m*********# 



***** 
♦PD * 
* C2* 



4c 4<***E3 ********** 
♦VMBUCK MN* 

*_4t_*_4e-*-* -*-*_* 

* PICKUP MOD * 

* LEVEL AND ♦ 

* NEXT CHAR * 

4c*4e**«***** ****** 



.* BLANK * 

*. FOLLOWS MOO 

*. LEVEL .* 



*****04****^^^^^* 

* CONVERT MOD * 

* LEVEL TO * 

* BINARY AND * 

* STORE IN * 

* AREA FOR V.M ♦ 

4c **************** 



IS 

MOO LEVEL 
. GT 255 . 



**** 

* * 

* B2 ♦ 

* * 
**** 



4c*** A5 ♦♦♦♦*♦♦♦♦ 

* * 

* VMBUCK ♦ 

* * 
m************** 



VMBUCK X 

4c 4c* **B5 ********** 

* CLEAR WK REG2 ♦ 

* AND SET ♦ 

* INDEX REG FOR ♦ 

* A 3-CHAO * 

* <;CAN * 
4c***«************ 



.X.... 
X 
NEXT .*- 

C5 *. 

.♦ IS ♦. 

YES .* CHAR 
.♦. VALUE LT 
♦. GT 9 



4c****05 **♦♦***♦♦♦ 

* PUT THE CHAR ♦ 

* IN WKRE64 ♦ 

* AND SET DTR * 

* TO NEXT * 

* CHAR * 
4(**************** 



.* HAVE ♦. NO 
*. DIGITS BEEN .♦... 
** TESTED .* 



VMEND 

X 
4c***f:s********* 

* * 

* RETURN ♦ 

* * 
4t************** 



X 

***** 
*PV * 
* 85* 



4c****H3********** 

* STORE MOD ♦ 

* LEVEL IN * 

* CONVERT * 

* BUCKET * 

* * 
4c*4c******** ****** 



**** 

* * 

* B4 * 

* * 
***♦ 



Kl *. 

.* *. 

.♦V.M. OPERAND*. 

. COMBINATION . 

-.TOO LONG ,* 



*. 



.* 

*. .* 
* NO 

I IVSERR 
X 
**** 
» * 

* 83 ♦ 

* * 
*♦** 



***** 
*PV ♦ 
* 85* 
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Chart PP. $JOECTLJ - SETSVA and SETSDL Statement Processors 
Refer to Chart 16, 



***** 

*PG * 
♦ D2* 



**** 

* * 

* A2 * 

* * 
**** 



***** 
*PG * 
* E2* 



SETSVA 


.*. 




Al *. 




* i 


YES .* 


SVA 


, , .*. 


ALREADY 


* 


IN USE 




*. ,* 


X 


*, ,* 


***** 


* NO 


*PV * 




* F5* 




* « 




* 




NVAERR 





«**««B1 ********** 

* * 

* SET DEFAULT * 
*SVA AND GETVIS * 

* START ADDRESS * 

* * 
9(l*4t* ****** ******* 



♦_♦_*_♦_*_♦_♦_*_* 



«**«****«*««**«** 



.* WRONG *. YES 
*. SPECIFICATION.*.... 
*. .* 



GETVIS 

DEFAULT 

WANTED 



SVA 
ALREADY 
IN USE 



_♦_*_♦_♦-*_♦_ 

CONVERT 

*ALLCCATION. 

*T0 HEX.* 

*. .* 



:(c:(c««3(c02 ********** 



««:tc4c«C3********** 


C4 *. 


*SCANR3 GK * 


,* 


♦_*-♦_*_*_*_♦_*_* 


. YES .* INVALID 


* GET ♦ 


,X....*, PHASE 


* OPERAND * 


*. NAME 



NOTHING 


* 




YES 


* CONVERT * 


PECIFIEO 


.* 


* 




* ALLOCATION * 

* TO START * 


.* 








* ADDRESS * 


*, ,* 






X 


«*««********«>te«*:(c 


* NO 






**** 

* * 

* F4 * 

* * 
**** 


♦**♦ * 

* * 

* E2 *.X. 

* * . 


X 








**** X 


.*. 






SETSVA4 .*. 


El *. 








E2 *. 


* 








.* *. 


SVA 


** 




NO .* GETVIS *. 


DEFAULT 




* 




.*. FITS IN .* 


WANTED 


.♦ 




. 


*. SVA .* 



*iK*«:*Fl**««*4^*«:t<* 

*CONVERT PS * 

* CONVERT * 

* ALLOCATION * 

* TO HEX * 

**«:(c«4c*********** 



♦*F2******* 

* * 
INDICATE 

SVA 
ALLOCATION 

* * 

**««3f****«* 



***** 

«PQ * 
* 01* 



4c:«c#«;tcHi********** 

* * 

* CONVERT * 

* ALLOCATION * 

* TO START * 

* ADDRESS * 

4c:tc:(c4:4c:tc:|c4c4c******** 



***** 
*PQ * 
* J5* 



SETSVA5 X 

4:****J2********** 

* GET KEY + * 
*INVALID + USED * 

* IN PAGE TABLE * 

* FOR CHANGED * 

* AREA * 

*:(<«*«4i:«:«4c^:(c4t4c:{e««« 



**«*4:K 1********** 

♦SCANR3 GK * 

*-*-*-*_*-*-*-*-* 

* GET GETVIS * 

* ALLOCATION * 

* * 



***** 
*PG * 
* Bl* 



**^i^:/^*:ti******^** 



**B5*:****** 

* * 

INDICATE 

INPUT ON 

SYSRDR 

* * 



**** 

* * 

* F3 * 

* * 
**♦♦ 



**** 

* * 

* F4 * 

* * 
**** 



****«D4********** 

* * 

* BUILD * 

* SDL * 

* ENTRY * 

* * 



**E3******* 

* * 
INDICATE 
BUILDING 

OF SVA 

* * 

itc«*:(e*4c**4c** 



*SCAN03 GK * 

X* SFT SVA * 

* PARAMETER * 

* * 
*«**««*4c********* 



* F3 *.X 



**** 
NXT ENTRY 

4(ic««:tcF3****«***** 

*RDSTMT FM* 

*_* _♦_*_♦ _« _♦_* _* 

* READ * 

* CONTROL * 

* STATEMENT * 

4C4:*************** 



***** 

* * 

* F4 *.. 



* PRINT * 

* STATEMENT * 

* ON SYSLST * 

4:««*:(c««4c**««4:**** 



-*_*_*_*_*_*_*_* 



«*««<*** ********* 



*«4=*F4********* 

* BRANCH TO * 

* NVSERR IN * 

* SJOBCTLA * 



*****G4** ******** 

* * 

* XFER CONTROL * 
X* TO SMAINDIR * 

* TO COMPLETE * 

* SVA * 

4c * « « * * « « :tc :<E * * « :(c 3(c « «: 



!«c«H4******* 

* * 

* INDICATE 
SVA BUILDING 

* FINISHED 

* * 

4c:(c«4:******* 



**J4******* 

* * 

INDICATE 

SVA 

ACTIVE 

♦ * 

3tC«********* 



♦***K4********* 

* EXIT TO * 

* CONTROL IN * 

* $JOBCTLA * 

4C*3<C ************ 



*«4(**F5 ********** 



* COMPLETE SDL 


* 




*FNTRY WTTH SVA 


* 




* ELIGIBLE 


* 




* 


♦ 




4c]|e* ************** 




**** * 






* * 






* G5 *.X. 






* * 






**** X 






.*. 






G5 *. 






.* *. 






.* SDL * 


NO 




*. OVERFLOW 


.*. . 




*. ,* 






*. .* 






♦ . .* 




X 


* YES 


**** 




* 


* 




* 


F3* 




* 


* 




*♦** 


X 






**H5******* 






* * 






* TNDICATE 


* 




* SOL 


* 




* OVERFLOW 


* 





*4c********* 



*****J5 *******♦♦* 
*MSGOUT GJ * 

* PRINT MSG * 

* ITIOI ON * 

* SYSLOG * 

4::«t:«c4c************* 



««« 4c 4cK5 ********** 

*LSTOUT GJ * 

*_*-*-*-*-*-*-*-* 

* PRTNT MSG * 

* 111 01 ON * 

* SYSLST * 
4c4:********* ****** 



«4c4* 

* * 

* F3 * 

* * 
**** 
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Chart PQ. $JOBCTLJ - ALLOC Statenrent Prccesscr 
Eefer to Chart II, 



♦ ♦ 

♦ ALLOC ♦ 

♦ * 



♦ TAKE START ADDR* 

♦ OF SVA AS * 
*E.O. PARTITION * 

♦ ♦ 



♦♦CI******* 



*A3 

OUL 
NUL 
OLL 
NLL 
THESE 



**»* 

» ♦ 

♦ A« ♦ 

♦ Hf 

*«** 



**♦♦ 
» ♦ 

* A5 * 

*♦♦* 



OLD UPPER LIMIT 
NEW UPPER LIMIT 
OLD LOWER LIMIT 
NEW LOWER LIMIT 
ARE COUNTED DOWNWARDS 



*. YES FROM START OF SVA. 



4t]|<iK««B 2 ********** 
*SCANR3 GK* 

* GET NUMBER OF * 

* IK BLOCKS * 

* * 



*4t4<4<*B44i**«****«« 



♦ ♦♦♦♦^c^i^^^it^Ki^^^^ 



*. OLL GT NLL .♦. 



* INDICATE ♦ 


.* INVALID *. YESX 






* NORMAL * 


*. DELIMITER .*...... 






* ALLOCATION * 


*. .* 






* * 


*. .* 






#«#itc4'«*4<«4'# 


♦ . .* 
* NO 






♦ ♦** '. 


* 


***♦ 




*PP * 




♦ * 




♦ F2 *.X. 




* D3 *.X 




* * . 




♦ * 




»**♦ 




***♦ 




PRALLOC X 


X 






itit***Dl********** 


♦♦♦♦♦02 ********** 


X 


* * 


*CONVERT PS* 


4c*««D3«4c**«**4>« 


* INITIALIZE * 


♦_♦_♦_♦_♦-.♦_♦_♦-* 


* BRANCH TO 


♦FOR ALLOCATION * 


* CONVERT * 


* NVSERR IN 


* ROUTINE * 


* ALLOCATION * 


* SJOBCTLA 


♦ * 


♦ TO HEX * 


********** *4c4c4E* 




*«4c:<c4t««4.4t*4c«*«*«4c 







X 
LIMITS .*. 

C4 *. 
.* *. 

NO .* PARTITION 
.*. ACTIVE 
*. 



REALLOC *. 
OF ACTIVE . 
. AREA .* 



♦♦♦** 
»PV * 
* F5* 



* J3* 

* * 
**** 



NXTFG 

*)it***[ti ******** 

♦ INITIALIZE 

* ALLOC TABLE 
" BG ■■ ' 



FG 



X«40» 



***************** 



**** 

* * 

* G2 * 

* * 
*♦** 



TSTALSWl 


.*. 




= 1 * 


,♦ 




.* 


ALLOC 


*. 


OF 


*, 


SVA 



**** 

* * 

♦ F3 * 



♦*** 

* 
* 62 



*.X. 



GTNXOP 

*****G1 ********** 

♦SCANR3 GK* 

*_*_*_*-.*_*-*_*_* 

* GET FIRST * 

* PART OF * 

* OPERAND * 
***************** 



**** 

* * 

♦ HI * 



♦*♦* 
P64K X 

*****g2********** 

* STORE NUMBER * 

* OF IK BLOCKS * 
♦IN REOUEST PART* 

* OF ALLOCATION * 

* TABLE * 
***************** 



**** 
* 

* D3 
* 

**«* 



MERGESVA X 

*****P3 ********** 

* INITIALIZE * 

* REQUEST * 
*COUNTER TO # OF*. 

* BLOCKS OF ♦ 

* REALLOC. SVA * 
***************** 



H2 



*. 



*. 



***************** 



.* ALL *. YES 
. OPERANDS .*.... 
*. PROCESSED.* 
*. .* 
*. .* 
* NO 



*****J2********** 
*SCANR3 GK* 

*-.*_*w *_;)£-.:(,_*_*-.* 

* GET NEXT * 

* OPERAND * 

* * 
***************** 



* INITIALIZE * 
.X*REQUEST COUNTER* 

* TO ZERO * 

* * 
***************** 



*. OUL LT NUL •*. 



.♦ 
.* 
YES 



X 

***** 
*PV ♦ 
* F5* 



*****H3 ********** 



***************** 



**** 
MERGES X 

*****J3********** 

* * 
*CALCULATE PART.* 
*SIZE IN NUMBER * 

* OF IK BLOCKS * 
* 
***************** 



*****K3 ********** 

* ♦ 

* STORE # IN * 

* STATUS PART * 
*0F ALLOC TABLE * 

* * 
***************** 



*****H4********** 

* * 

* ADO PARTITION * 

* STATUS TO * 
*STATUS COUNTER * 

* * 
***************** 



*****j4********** 

* * 

* ADO PARTITION * 

* REQUEST TO * 
*REOUEST COUNTER* 

* * 
***************** 



**** 

* * 

* A5 * 



* CALCULATE * 
X* REQUEST FOR * 

* BG PARTITION ♦ 

* * 
***************** 



*****H5 ********** 

* * 
*UPDATE BOUNDARY* 

* BOX AND PAGE * 

* TABLE * 

* ♦ 
***************** 



* MO ***** 

♦ PP ♦ 

* J2* 
♦ * 



****KS ****♦*♦♦* 

* BRANCH TO * 

* CONTROL IN * 

* $JOBCTLA * 
*«««*********** 



♦**♦ 

♦ * 

♦ A2 * 

♦ * 
**** 
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Chart PR. $JOECTLJ - ALLOCR Stateirent Processor (Part 1 of 2) 
Refer to Chart 14. 



♦ ♦♦♦A 14i«4c***4c*« 

♦ * 

♦ ALLOCR * 

♦ * 



LOCR .*. 






Bl ♦. 






,* * 






.♦ GETREAL 


* 


. YES 


♦. IN PROCESS 




.♦. ... 


*. 


* 




*. .* 






*. .* 




X 


* NO 




♦♦*♦* 
♦PV ♦ 
♦ F5* 



*A1 

OUL = OLD UPPER LIMIT 
NUL = NEW UPPOER LIMIT 
DLL = OLD LOWER LIMIT 
NLL = NEW LOWER LIMIT 
THESE ARE COUNTED DOWNWARDS 
FROM START OF REAL STORAGE 



♦SCANR3 GK* 

* GET NUMBER OF * 

* IK BLOCKS * 

* * 



:t!**^*B^********** 



If^tf^iti******** 



* * 
♦INITIALIZE FOR * 

* ALLOCATION ♦ 

* ROUTINE * 

* * 



* INITIALIZE * 

* ALLOCR TABLE ♦ 

* BYTE 1 TO ♦ 



4t4t«3(c#««4<*:*«*«)|c««4> 



GTNXOPR 

*SCANR2 GK* 

♦ GET FIRST * 

♦ PART OF ♦ 

♦ OPERAND * 



**** 

♦ ♦ 

* Gl *.X 



♦****H1********** 

* * 

* SCAN PIB * 

* ON FIRST * 

* OPERAND * 

* * 



* 


OPERAND 


♦ 


NO 




FOUND IN 




*. . 


* 


PIB 

*. .* 

*. .* 

* YES 


* 





♦****D2 ♦*♦♦*♦*♦** 
♦CONVERT PS* 
*_*_*_*_*_♦_*_*_* 

* CONVERT * 

* ALLOCATION * 

* TO HEX * 

^t^c*************** 



«*« *:(cE 2 ********** 

* STORE NUMBER * 

* OF IK BLOCKS * 

* IN REQUIRED * 

* PARTITION OF * 

* ALLOCR TABLE * 

#4c«4<««:|<4c«:4c4<«4<**** 



**♦* 




* * 




* D3 *. 


X. 


* ♦ 




**** 





ALL 
OPERANDS 
.PROCESSED. 



♦♦♦**G 2 ********** 
*SCANR3 GK* 
*_ #_ *_ *_ ♦_ *_ *_ ♦_* 

* GET NEXT * 

* OPERAND * 

* * 



♦*** 

* * 

* A2 * 

* * 



♦ * 

♦ D3 * 

♦ * 
*♦** 



****D3********* 

* BRANCH TO * 

* NVSERR IN * 

* $JOBCTLA * 
4t«4i4c«* **«***<(** 



LIMITR 

4c«;tc**E 3 ********** 

* INITIALIZE * 

* REQUEST AND * 
..X* STATUS CTRS * 

* TO START OF * 

* REAL CORE * 

♦ *** 



* F3 *.X 



;|t«4(* 

MERGER X 

* CALCULATE * 
♦NUMBER OF DRAP * 
♦PAGES AND STORE* 
*IN ALLOCR TABLE* 

* * 



♦♦♦♦♦G3 ********** 

* * 

* ADD DRAP * 

* NUMBER TO * 
♦STATUS COUNTER * 

* * 
*««««************ 



«3(ici«:#«H3**** ****** 

* CALCULATE REAL * 
♦PARTITION SIZE * 

* IN NUMBER OF * 

* IK BLOCKS * 

* * 

i«c:(c «(*««* ********** 



4c4e4c4e«D4******^^** 

* ♦ 

* SAVE SIZE * 

* OF SMALLEST * 

* PARTITION * 

* * 

4c :(c***4(4:*4< ******** 



E5 *. 

.* *. 

.* 

*. OUL GT NUL 



**♦♦♦ 

♦ PV ♦ 

* F5* 

* * 



* ALL 

PARTITIONS 
*. DONE 



* F3* 

* * 
**** 



***:«e«Q5*:«:4c******* 

* * 

* CALCULATE * 

* NEW MAIN PAGE * 

* POOL SIZE * 

* * 
***************** 



***** 
*PV * 
* F5* 



♦♦♦♦♦j3 ******** 


** 


J4 *. 


* STORE NUMBER 




.* *. 


* IN STATUS 




YES .* *. 


* PART OF 




...*. OLL LT NLL .* 


* ALLOCR TABLE 




*. .* 


* 




♦ . .* 


«««**4c*********** 


X *. .♦ 






«)ic:(c4c4: =(c MQ 


, 




♦ PV * 






* F5^ .X 


X 




* * 


**** 




♦ 


* * 




NVAERR 


* A4 * 




X 


* * 




:«c:4c**4cK4:(e«;tc*:»;i^4c*** 


**** 




♦ ADD PARTITION * 
♦SIZE TO REQUEST* 

♦ AND STATUS * 

♦ COUNTERS * 



***** 
*PS * 

* Al* 



4:**************** 

X 
**** 

* * 

* A5 ♦ 

* * 
**** 
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Chart FS, $JOECTLJ - ALLOCR Statenent Processor (Fart 2 cf 2) 
Befer to Chart lU, 



♦ PR » 

* H5* 



♦. PFIX = YES 



♦**♦ 

* ♦ 

* El ♦ 



X 
♦**** 
*PV * 
* F5* 



CI * 

♦ 

MAIN 



.♦ PHASES 
♦ . IN 

*. SVA 



.* 
.* 

NO 



♦ * 

* ADD SMALLEST * 
♦REAL PARTITION ♦ 

♦ SIZE TO PP ♦ 

* ♦ 
^^(♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



♦ * 

♦ CONVERT ♦ 

♦ * 
^(^■♦♦♦♦♦♦♦♦♦♦♦♦^ 



♦ BRANCH TO ♦ 

♦ NVSERR IN ♦ 

♦ $JOBCTLA ♦ 



♦♦♦♦♦ 
♦PV * 
♦ F5^ 



♦ ♦ 

♦ UPDATE ♦ 

♦ BOUNDARY ♦ 

♦ BOX AND ♦ 

♦ PAGE TABLE ♦ 
«Xc ♦«♦♦♦♦♦♦♦♦♦♦♦♦♦ 



4c4c*«H !♦♦♦♦♦♦♦♦♦ 

♦ EXIT TO ♦ 

♦ CONTROL IN ♦ 

♦ $JOBCTLA ♦ 



«««4t^F3^^^^^^^«^^ 



♦CONVERT TO HEX ♦ 



4t**4<iK«i|c«««««4t«4t** 



♦ RETURN TO ♦ 

♦ CALLER ♦ 

♦ ♦ 
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Chart PT. $JOECTLJ • Kiscellanecus Subroutines 
Befer to Charts 14-16. 



(Part 1 cf 2) 



♦ * 

♦ TXCUU ♦ 

♦ ♦ 



.♦CHARACTERS ♦. NO 



LENGTH . 
*. .♦ 

*. .* 
* YES 



♦HEXCON PT* 

♦_♦-♦-♦_♦_*_♦_*_* 
♦CONVERT HEX CUU* 

♦ TO BINARY ♦ 

* ♦ 



TXCUU 1 

«:(c«««[)l ♦♦♦♦♦♦♦♦♦♦ 

♦ SEARCH PUB ♦ 

♦ TABLE FOR ♦ 

♦ DESIRED DEVICE.* 

♦ SEARCH FOR * 

♦ CUU ♦ 



NO .♦ DEVICE ♦. 
...♦.FOUND IN PUB .* 

♦. TABLE .* 
• * . .* 

X ♦. .* 

♦♦*** ♦ YES 

*PV * 
♦ C3*DNEERR 



TXCUU2 

♦ SAVE DEVICE * 

♦ TYPE AND PUB * 

♦ ADDRESS. COM- * 

♦ PUTE THE PUB * 
♦POINTER. ♦HI ♦ 

4( 4> :tc :(e « « # ;(c 4c « * «4: 4c « 4< « 



4e4t«*Gl ♦♦♦♦♦♦♦♦♦ 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ SEQ ♦ 

'4t* « «4c 4c ««♦«♦*« ♦♦ 



1. THE DEVICE TYPE IS 
SAVED IN DVCTYP 
FROM THE PUB. 

2. THE PUB ADDRESS IS 
SAVED IN REGISTER 
P0INT4. 

3. THE PUB POINTER IS 
COMPUTED IN WRKRG3. 



4c 4c 4t*A2 ♦♦♦♦♦♦♦♦♦ 
« ♦ 

♦ HEXCON ♦ 

* ♦ 
4c4>4c4t**^^^^**^^4c 



HEXCON .♦. 

B2 ♦. 
.♦ 
NO .♦ VALID 
X...*. FORMAT 
♦ . *F3 



4.4t^**C2^^^**^+^^^ 

♦ CONVERT ♦ 

♦ EBCDIC TO HEX ♦ 

♦ AND SET UPPER ♦ 

♦ CHECK LIMIT ♦ 

♦ TO FF * 

4<«*«««*«*)«<«***4<*4' 



4<4<***02 ♦♦♦♦♦♦♦♦♦♦ 

♦CHKRNG KA^ 

4c-»-4<-4'-^-^-^-+-^ 

♦ CHECK ♦ 

♦ CHARACTER ♦ 

♦ RANGE ♦ 

♦ ♦♦♦♦4«*********** 



.♦ CHECK ♦ 
NO .* FOR CHAR 
.X...^. RANGE 
*.F0 TO FF 



* G3 ♦ 

* * 
*♦♦♦ 

4c 4c :((4c«F2 ♦♦♦♦♦♦♦♦♦♦ 

* ♦ 

* PACK HEX ♦ 

* TO BINARY * 

* IN lORGSA ♦ 

* ♦ 
4c4c^4(4'4'****^*^***^ 



4c*4t*G2********^ 

* RETURN TO ♦ 

* CALLING ♦ 

* SEQ ♦ 

4c*4:4i«*^****^^^* 



*H2 
THE SYSTEM CLASS, NICL AND FICL 
POINTER, IS SET TO A 1 IN 
UNCLOR BYTE 0. 



♦ X. 



♦ * 

♦ SET POINTER 

♦ P0INT2 FOR 

♦ SYSIPT TABLE 

♦ ENTRY ♦ 
4c 4c4t4c««4' ♦♦♦♦♦♦♦♦«« 



*♦♦♦ 

♦ * 

♦ F4 ♦ 

♦ 4t 



4i4>4c4(A4******^«* 



4c4c4e****«*^*4'^** 



.* SYSIN, 

SYSXXX, 
♦.OR OTHER 



C4 ♦. 
.♦ IS ♦. 

♦ THIS A 
PROGRAMMER 

♦ . UN I T 



4c 4c 4i4iA5 ♦♦♦♦♦♦*«♦ 

* 4t 

♦ CNUNCOl * 
4c 4t 

4c4t4>4i*#***4<***** 



♦ G3 * 



PRGUNT 

4c4!4;4i^C5 ♦♦♦♦♦♦♦♦♦♦ 

♦ TNIT REGISTER ♦ 
♦FO" PROGPAMMER * 

...X* UNTT ♦ 

♦ *H4 ♦ 

♦ 4t 

♦ **4"*****4«*****«4i 



4( 4c 4t*^D3 ♦♦♦♦♦♦♦♦♦♦ 

♦ 4< 

♦ ADDRESS ♦ 

♦ NEXT * 

♦ ENTRY ♦ 

♦ * 
4c4t4c««*«*^**«**«** 



FDSYSU 

4c«««4'DA*******^^* 

♦ LOOK UP SYS ♦ 

♦ UNIT IN ♦ 

♦ SYSTEM UNIT ♦ 

♦ TABLE SYSUTB ♦ 

4e * 

4c4c4>*4e**««**«***«^ 



CNUNCOl 

4t4t4t**D'=> ♦**♦♦♦**♦* 

♦ NUMCON PU* 
^_4(_4,_4c_4<-4"-^-*-* 

♦ CHECK XXX AND ♦ 

♦ CONVERT TO ♦ 

♦ BINARY ♦ 
4c4c4<4>4<«*^***^*^«^* 





E3 ♦. 




E4 *. 


4c4i4t4<*E 5 ♦♦♦♦♦♦♦♦♦♦ 




.♦ ♦. 




.♦ UNIT *. 




SAVE * 


YES .* LAST ♦ 




NO .♦ FOUND *. 




PROGRAMMER * 




.♦. ENTRY 


♦ X... 


♦. IN .♦ 




UNIT NUMBER * 




♦ . .♦ 




*. TABLE .♦ 




!N UNCLOR * 




♦ . .♦ 




*. .* 




4< 


X 


*. .* 




♦ . .♦ 


4c4<4<4<^*^*«4>4<****^^ 


4c4c«** ♦ 




♦ YES 






♦ PV 


♦ 




*♦** 






♦ C2*NLUERR 




♦ ♦ . 






♦ * 






* F4 ♦.X. 






* 






♦ ♦ . 
♦♦♦♦ 
UNTFNO X 




X 
• ♦. 


*F3 






**4c4'«F4^**^*^**^^ 




F5 ♦. 


1. 


FIRST TWO CHARACTERS 


♦ SET UNIT CLASS ♦ 




.♦ IS *. 




MUST BE X« 




♦ AND SYSTEM * 


NO . 


* UNIT ♦. 


2. 


LAST CHARACTER 




♦ CLASS IN SAVE ♦ 


.. .♦. 


NUMBER TN LUB.* 




MUST BE • . 




* AREA UNCLOR ♦ 




♦. TABLE .* 




(AS IN X'CUU* ) 




♦ ♦H2 * 




♦. ♦J2 .♦ 








4c4c4c4'4c*4(*«^4(^4'^*** 


X 
♦ ♦♦*4< 


♦ . .♦ 
♦ YES 




♦♦♦♦ 






♦PV ♦ 






♦ * 






* C2^ 






* G3 ♦... 






♦ ♦ 






♦ ♦ . 












♦«♦« . 




. 


NLUERR 






X 




X 


4c****G5 ***♦♦♦♦*♦♦ 




4c4c*^G3 ♦♦♦♦♦♦♦♦♦ 


4c4c4c4cG4*^****^*^ 


« 


♦ 




♦ BRANCH TO 


* 


♦ RETURN TO ♦ 

♦ CALLING * 


♦SET PROGRAMMER ♦ 




* NVSERR IN 


« 


* 


CLASS IN BYTE ♦ 




* SJOBCTLA 


* 


* SEO ♦ 


♦0 OF UNCLOR ♦HZ^ 




4<*«^4c4c4e* ♦♦«♦♦♦♦ 


4(4c4<**^*^****^** 


♦ 


4c 



POINTl tS 
INCREMENTED BY 
3 TO POINT TO THE 
FIRST CHARACTER 
OF XXX. 
P0INT3 IS 
INITIALIZED TO 
A 2 AS A CHARACTER 
COUNT REGISTER. 



4c 4c4e4c4(*^4c^«4c ♦♦♦♦♦♦ 



4c*4c4cH5 **♦♦♦*♦*♦ 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ SEO ♦ 
4c4c4c«4c4c****^*^«* 



UNCLOR, BYTE 1. THE UNIT CLASS, 
LUB POINTER, IS THE FUNCTION OF THE 
SYS ARGUMENT IN THE TABLE SYSUTB, 
UNCLOR, BYTE 0, THE SYSTEM CLASS, 
NICL AND FICL POINTER, IS SET TO ZERO 
BECAUSE THE ROUTINE IS WORKING WITH 
A SYSTEM UNIT. 



*K2 
CHECK ONLY LUBS 
FOR THIS PARTITION 
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Chart PU, $JOECTLJ - Kiscellanecus Subroutines (Part 2 cf 2) 
Refer to Charts m-16. 



« * 

* UPDSAV * 

* ♦ 



♦ INCREMENT * 

* BLOCK COUNT ♦ 

* ♦BZ * 

♦ ♦ 



♦COMPUTE ADDRESS* 
* OF NEXT ♦ 

♦AVAILABLE AREA ♦ 
♦IN LINK OUTPUT ♦ 
♦BUFFER ♦CZ* 



♦♦♦♦A3 ♦♦♦♦♦♦♦♦♦ 



4c«4<4c4<«««4iiti^^^^^ 



THE OLD BLOCK COUNT, 
BLKCNT IS SAVED IN 
REGISTER WRKRGI. 
NEW BLKCNT EQUALS 
OLD BLKCNT PLUS 1. 



THE INITIAL VALUE 
OF BLKCNT IS 0. 
OLD BLKCNT, WRKRGI, 
TIMES 80 EQUALS 
DISPLACEMENT IN 
OUTPUT AREA. 
DISPLACEMENT PLUS 
OUTPUT AREA STARTING 
ADDRESS, LNKBFl, 
EQUALS ADDRESS OF 
NEXT AVAILABLE AREA. 



.♦ PREVIOUS ♦. NO 
I/O .*... 
♦.COMPLETE .♦ 



. X*- 



♦MOVE STATEMENT ♦ 

ft «=pQ«| Tf^pilT * 

♦ BUFFER to ♦ 

♦ SYSLNK OUTPUT ♦ 

♦ AREA ♦ 



3|e4t4t«4<D2 ♦♦♦♦♦♦♦♦♦♦ 

* ♦SVC 7 WAIT ♦ ♦ 

* ♦ FOR * ♦ 
PREVIOUS ♦ ♦ 

♦ ♦ I/O ON ♦ ♦ 

♦ ♦ SYSLNK * ♦ 



♦E2 
SYSLNK OUTPUT AREA IS 

322 B^TC5 SYA^TTMC; 
AT CNTFLD. 



LNKOUT 

♦ SET OUTPUT * 

♦ BLOCK COUNT ♦ 

♦ IN CNTFLD * 

♦ FROM BLKCNT ♦ 

♦ * 

it:f *************** 



♦EXCPROG KL* 

♦WRITE STATEMENT* 

* ON SYSLNK * 

* *E2 * 



**««4>E3 ♦♦♦♦♦♦♦♦♦♦ 



*^m************** 



****l^^***tc***** 

* * 

* NUMCON * 

* ♦ 

*********:ti*iti*^ic* 



NUMCON X 

* SET PANGE * 

* LIMIT IN * 

* CHKRNG * 

* TO 9 * 

* * 
*tt*************** 



«CHKRN6 KA* 
♦_♦_♦_♦-*-♦_*-♦_♦ 

♦ CHECK * 
♦CHARACTER PANGE* 

* * 



CHARACTER 
RANGE FO 
. TO F9 . 



*4c*##E4********** 

* PACK INTO * 

* lORGSA AND * 

* CDNVfcRT ID * 

* BINARY IN * 

* WRKPGl * 



*«4e4cA5 ***♦♦♦♦*♦ 

* ♦ 

* BTNCON ♦ 

* ♦ 



BINCON 

4c4c4c«4<B5 *****♦♦*** 

*SCAN''3 GK* 

♦_♦_*_*_♦-*_*_♦_* 

* POT NT TO ♦ 

* DAPAMETER * 

* *H5 ♦ 



C5 *. 

.* DID ♦. 
YES .* AN EQUAL ♦. 
...♦.SIGN END THE . 
*. SCAN .* 



* RETURN TO * 

* CALLING * 

* SEQUENCE * 
*************** 



♦H3 

1. MM/DD/YY 

2. DD/MM/YY 

3. HH/MM/SS 



****fit********* 

* * 

* CHGSTIT * 

* * 
*************** 



CHGSTT 

*****Q4^********** 

* SAVE THE ADDR * 

* OF THE PROG * 

* CHECK ROUTINE * 

* FOUND IN THF * 

* NEW PC PSW * 
***************** 



*****^^i^********** 

* PUT INST ADDP * 
♦OF INST FOLLOW-* 

* ING BAL IN * 

* ADDRESS FLD * 

* OF NEW PC PSW * 
***************** 



**ji^******* 
♦FORCE PROG * 

* CHECK TO * 
♦RETURN IN LINE 

* TO CALLING * 
* SEQ. * 

*********** 



****i(^i^********* 

* NSI FOLLOWS * 

* BAL+ * 

* INSTRUCTION ♦ 
*************** 



*****f^ ********** 
*CONV DAPAMETER * 

* TO BINARY IN ♦ 

* REGS POINTI, ♦ 

* t>oiNT2, AND * 

* P0TNT3 *J5 * 
***************** 



♦♦**G5 ********* 

* RETURN TO * 

* CALLING * 

* SEOUENCE * 
*************** 



****^^********* 

* BRANCH TO * 

* NVSERR IN * 

* SJOBCTLA * 
*************** 



IF PROCESSING THE 
DATE OPERAND — 
POTNTl CONTAINS 
MM OR 00 
P0INT2 CONTAINS 
DO OR MM 

P0INT3 CONTAINS YY 
TF PROCESSING THE 
CLOCK OPERAND — 
OQINTI CONTAINS HH 
D0TNT2 CONTAINS MM 
P0INT3 CONTAINS SS 
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Chart PV, $aOECTLJ • Errcr Subroutines 
Befer to Charts 14-16, 



***** 

♦PB * 
♦ H3* 



♦*♦♦* REFERENCES 
*^* PNKl 



***** REFERENCES 

♦ * TO PVCl: 

* ** PBB3, PEC3 
* * PEH4 



***** REFERENCES 

* * TO PVC2: 

* ** PTE3, PTF5 



***** 

♦ PT ♦ 

* El* 



Ht^Q^******* 



:4(*«4i]tc«««itc*4c 



* TURN AUTO * 
* CANCEL SWITCH * 

* ON * 
* * 

^t,yne******** 



NDTERR X 

*1Hlf4'*Cl********** 

* POINT TO ♦ 

* DESIRED * 

* MESSAGE * 

* IA20D * 

* *H1 * 



NLUERR X 

* POINT TO * 

* DESIRED ♦ 

* MESSAGE * 

* 1A40D * 

* ♦HI ♦ 

:ti^t************** 



DNEERR X 

♦♦♦♦♦C3 ^t********* 

* POINT TO * 

* DESIRED * 

* MESSAGE * 

* IC30A * 

* *H1 * 



4c#«4c«C4********** 

* POINT TO * 

* DESIRED * 

* MESSAGE * 

* IC30A *H1 * 

* * 
j^iiitf*************** 



♦♦««*c 5**** ****** 

* POINT TO * 

* MESSAGE * 

* ISOOI * 

* *H1 * 

* * 



♦♦**♦ 


*♦**♦ 


***** 


♦ PD * 


*PE * 


*PN * 


* G3* 


♦ 04* 


* 81* 


♦ * 


* * 


♦ ♦ 


♦ 


* 


♦ 


INAERR X 


NDSERR X 


OTSERRl X 


*****fl**^il,**t:*** 


:|c«F 2 ******* 


♦ «F3«**^#^4<: 


* POINT TO * 


♦ NOP * 


* TURN * 


* DESIRED * 


* ERROR * 


* AUTO * 


* MESSAGE * 


* EXIT * 


* CANCEL SW * 


* ICIOA * 


* EREXITl ♦ 


* ON * 


* *HI * 


* * 


♦ + 




:ti********** 


*********** 






I 


l***^ • REFERENCES 






* 


* * *.X. TO PV63: 








* * . PDA2» PDB3 








♦**♦ 






X 


OTSERR X 




:ti***ifiQ2********** 


*****Q-^********** 


♦ ♦♦^cQl^c******** 


* PO NT TO * 


* POINT TO * 


* BRANCH TO * 


* DfSIRED ♦ 


* DESIRED * 


* OERRTN IN * 


* MiSSAGE * 


* MESSAGE * 


* SJOBCTLA * 


* - A70D * 


* ISIOO * 


«4c##****4:***i(<«« 


* ♦HI * 


♦ ♦HI * 






***************** 


***************** 



***** REFERENCES 

* * TO PVF5J 

*^ ** PPAl. PPG I 

*^* PQB5, PQF4 

* PRBlt PRE5 
PRH5, PRJ4 

• PSCl, PSFl 

NVAERR X 

* ♦♦♦♦F5 ********** 

* POINT TO * 

* DESIRED * 

* MESSAGE * 

* -IPOOO- * 

* ♦HI * 
***************** 



****[^^ **** **** * 

♦ BRANCH TO * 

♦ ERRRTN IN * 

♦ $JOBCTLA * 
*************** 



.MESSAGE.. DESCRIPTION 



.1A20D 
IiA40D* 



INVALID DEVICE TYPE 

'invalid'logical* UNIT 'specification* 



.1A50D 
IlATOO* 



DEVICE NOT-DEFINED 
'iNVALio'DEvicE'STATUS* 



.IClOA 
'lC30A* 



PLEASE ASSIGN-SYSRDR»SYSIPTtSYSLNK- 
'PROGRAM 'not* FOUND 



.IPOOD 
r 15031* 

risioD* 



INVALID ALLOCATION 

* INVAL ID * STAT EMENT 

*sfAfEMENf*6uf*6F 'sequence* 
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Chart CA. 



$JOECTLK 
Befer to 



- LELTYP, VOL, 6 
Chart 17. 



TFLAB Stateirent Processors 



♦ A3 * 

* « 



*♦♦* 
♦ A4 ♦ 

♦♦♦♦ 



♦ SJOBCTLK ♦ 

« * 4t 4> « 4> 4>« * He )|c« 4c * « 



LBLTYP 

^^^'♦♦B I********** 
*SCANR2 GK ♦ 
♦_*_*-♦-♦-♦-♦-♦-♦ 

* POINT TO * 

* OPERAND TAPE * 

* (NN) NSD (NNl ♦ 



NO .♦ DID 
. .•♦. BLANK END 
*. SCAN 



*****D1 *******♦*♦ 

* SET LENGTH OF * 
♦PARTITION LABEL* 

* AREA 80 IN ♦ 

* WRKRG3 * 

* -ASSUME TAPE- * 

* 4t « 3(< ^C* ^ « « * * llt^C « « * # 



♦♦♦*A2 ♦*♦♦♦*♦♦♦ 

* ♦ 

* TPLAB * 

* ♦ 



TPLAB 

«4i*4t*g2 ♦***♦***** 

* INITIALIZE ♦ 

* LINKR4 WITH ♦ 

* ADDRESS ♦ 

* OF ERROR ♦ 

* ROUTINE ♦ 



C2 *. 
.♦ WAS *. 
.CONTINUATION*. NO 
CARD .*,.. 

♦.SPECIFIED.* 



.* HAS VOL 


♦ 


. NO 


* STRING * 


X*STATEMENT BEEN 


.* 




* TO * 


♦.PROCESSED 


• ♦ 






* LABEL OUTPUT * 


*. .* 








* AREA MTFID * 


*. .♦ 






X 


4i*]t<****)t(«*)|t4i**4c*4c 


* YES 






♦ ♦*»♦ 
*QS ♦ 

* CI* 

* ♦ 

* 

OTSERR 


X 


X 








.*. 


4c*«4>*B3i(t* *«**«*«* 




B4 *. 


♦SCANR2 


GK* 




.♦ *. 


*-♦-♦-♦-♦_♦_*. 


-* 


-♦ 


YES .* LONG *. 


* POINT TO 




♦ 




.*. STRING .* 


♦ OPERAND 




* 




*. *K4 .* 


* -FILE ID- 




* 


. 


*. .* 



* SET EXTENT * 

* AREA COUNTER * 

* TO 20 IN ♦ 

* WRKRG3 * 

* -ASSUME NSD- * 



NO ,* IS 

;..*. OPERAND 
*. NSD 



*«]t(4c4cHl********** 

* ADJUST REG- * 

* ISTERS POINTl * 
*AND P0INT2 FOR * 

* CONVERSION * 

* ROUTINE ♦ 

4c4c« *!tE:|c *«l|c*4e #**«*# 



Jl *. 

.♦IS LAST*. 
NO .* CHARACTER *. 
X...*, OF OPERAND . 
♦. A PAREN .* 



.* 



#4::«c4t«02 ********** 
♦CONCAT QM * 
*_*_*_♦_♦_♦_♦_♦_* 

*BUILD COMPLETE * 
* CARD IMAGE * 
*BUFFR1, BUFFR2 * 

4t««#4c***9|<**««««*lt> 



**** 

* * 

* A3 * 
« * 

**♦* 

*♦** 

* ♦ 

* F2 * 

* « 



3(c4>***F2 ********** 
♦COMPUTE LENGTH * 

* OF PARTITION * 

* LABEL AREA ♦ 

* WRKRG3 *K5 * 

* * 

:(t«*:ti«3tc*«:tc**i(t:«i«:(i*« 



LBTOUT 

««4e*«62 ********** 

* COMPUTE ADOR ♦ 

* OF THIS » 
*PARTITION LABEL* 

* SAVE AREA » 

* FROM PIK * 



4>4e***4<***«»«4'**** 



.* IS *. 

.* FIRST ♦. 

*. CHARACTER AN . 

♦APOSTROPHE.* 



«*)tt4t 4(03 ********** 
*INITIALIZE REG-* 

* ISTER P0INT4 * 

* AS POINTER TO * 

* LABEL STORAGE * 

* AREA * 

4c*4c#«*«4c* «:***: «!««« 



MTFLG2 

FOR 

* TPLAB * 

*#*4t«4c#4<**« 



YES .* IS GEN- *. 
...*ERATION NUMBER. 
*. BLANK .* 



4c«4t«4eG3 ♦♦******♦* 
♦CHKRNGl QR^ 

♦_K|<-*-*_* _*_#_#_♦ 

*CHECK FOR NUM- * 
*ERICS IN GENER-* 
* AT I ON NUMBER * 



*. SHORT STRING .*. 



««**A5 ********* 

* ♦ 

* VOL ♦ 

* • 
inf ************* 



«4!«4i*B5 ********** 
*FOKTV OC* 

*_♦_*_*-*-*-♦-♦-♦ 

* STATEMENT ♦ 
♦INITIALIZATION ♦ 

* * 
#*#4t*)f**4t«4(*4>**«* 



**itt**C5 ********** 

♦SCANR2 GK* 

*-*_*-♦_♦-*_♦-.♦_♦ 

* GET SYSXXX * 

* OPERAND * 

* ♦ 



**** 

*QB * 
* H3 



*.X 



**** 
TFILL X 

4c***4c04********** 

♦INSERT DEFAULT * 

* VALUE * 

..X* •OOOOOOODOS * 

. * VER 5» * 

, * ♦ 



4i#«4(*E4********** 

* * 

* tJF«;pT B> nCK * 

* COUNT FOR » 

* TAPE TO ZERO * 

* * 
«4t4c**«4i«**4> **«*«* 



««F4*^***** 
♦SET JBCSW5 * 

* TO INDICATE * 
♦TPLAB STATEMENT* 

* PROCESSED * 



DID 
COMMA 
.END SCAN 



♦ *** 

* * 

* J5 * 

* * 



*********** 



«««:**G4********** 

* RESET DATA * 

* LENGTH TO 80 * 

* CHARACTERS * 

* AND STORE IN * 

* DTALGT * 

:t:***if ************ 



*C0Nvfc«1 StSXXX * 

* TO SYMBOLIC ♦ 

* UNIT ADDRESS * 

4i4i******4t ******** 



itt****f^ ****i(fm**** 
♦FOKTVNM OC* 



4i4>« ♦*G5 ***♦*♦*♦*♦ 

* SET BITS IN * 

* JBCSW5 TO ♦ 

* ALLOW DLAB * 

* OR TPLAB ♦ 

* * 

4c4t«4<«4'4:4>«***4'**4t« 



4c«««*H2******«*** 


H3 *. 


j(c«*«4(H4********** 


*STORE LENGTH OF* 


.* *. 


* 


SET 


FILE TYPE * 


* PROG LABEL * 


.* IS *. YES 


* 


FIELD TO »T« * 


♦AREA FOR LIOCS * 


♦VERSION NUMBER.*.... 


* 


TO 


INDICATE * 


*AND THE LINKAGE* 


*. BLANK .* 


* 




TAPE * 


♦ EDITOR ♦ K2 * 


*. .* 


* 




* 


«4>****«****«****^ 


*. .* X 






* NO **** 








♦*** 




* * 








* * 




* D4 * 








♦ J2 ♦.X 




. * * 






X 


♦ ♦ 




**** 






*♦♦* 


**** 




X 






* * 

* J2 * 


X 


«4«**4c J3 *«4t4:«*4c«X(« 






* * 


4c**«J2********* 


*CHKRNG1 OR* 






♦♦*♦ 


* BRANCH TO * 

* CONTROL IN * 


♦_*_*-♦-.*_*_*_*-* 








*CHECK FOR NUM- * 








* $JOBCTLA * 


* ERICS IN VER- * 








******* 


|t#4t4i«#4t« 


* SION NUMBER * 









:ti**************** 



****J5 ********* 

* BRANCH TO * 

* NVSERR IN * 

* SJOBCTLA * 
ni************** 



«4c4c«*K I********** 
*NUMCON QR * 
♦_*-»- *-*_ *-*_ *_* 

* CHECK NN AND * 

* CONVERT TO * 

* BINARY * 
*****ilf*if******1e^fiiti 



*K4 
INCLUDES FILE 
SECURITY, BLOCK 
COUNT, AND SYSTEM 
CODE. 



1. FOR LIOCS STORE 
IN PARTITION 
SAVE AREA+80 
BYTES. 

2. FOR LNKEDT STORE 
IN COMREG + 44. 



*K5 
POINTl IS POINTER TO 
THE FIRST 'N* OF 'NN', 
P01NT3 IS SET TO ONE 
LESS THAN THE NUMBER 
OF CHARACTERS IN 'NN*, 



**♦* 

* * 

* F2 * 

* * 
**** 
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Chart CB. $JOBCTLK - TLBL Stateirert Prccesscr 

Refer to Chart 18. 



* * 

♦ TLBL ♦ 

• ♦ 



TLBL 

*FDKTV QC* 

*-*_*_♦_♦_♦_♦_♦_♦ 

♦ STATEMENT * 
♦INITIALIZATION * 
» * 



* CLEAR FIELDS ♦ 

* FILE ID THROUGH* 

* EXPIR. DATE ♦ 

* IN OUTPUT * 

* BLK. * 



♦FDKTVNM QC* 

* SET UP FILE * 

* NAME AND KEY * 

* FIELDS * 
«4>*4c4c4(«4c«4c«*4<4<4(*« 



* * 

* LOAD MAX * 

* LENGTH MINUS ♦ 

* 1 OF FILE-ID * 

* INTO WRKRGl * 

]|c4>«««4c«4<«4t«*****4c 



««4c4c«Fl********** 
♦FDKTID QD* 

♦_*_♦_*_♦_*_♦_♦_♦ 

* PROCESS FILE * 

* TO OPERAND * 
*CHECK DATE *K1* 

«**«:f***«#4t«*«««# 



4i:((iK4t*G I********** 

* * 

* WAS * 

* ENTRY * 

* FROM * 

* EXEC * 



****B2********* 

* RETURN FROM * 

* FDKTID, LINK * 

* RE6+8 * 
«4'««****4t«4c**4'« 



4c***4cC2 ********** 
♦CHKRNGl QR* 

♦_*-♦_♦-♦_*-♦-♦_♦ 

* CHECK DIGIT * 

* RANGE * 

* * 
***************** 



1f****02 ********** 

* * 

* POST * 

* PARTITION * 

* COMPLETE * 

* * 
Hfif4'************** 



♦♦♦♦♦E2********** 
*FETINSRO QC* 

♦-♦-*_:»_♦_♦-*_♦-♦ 

* CHECK AND * 

* INSERT DAY IN * 

* OUTPUT BLOCK * 
4i««««4c3(t3tc4<*«««4c«4c* 



t:****f2********** 

* * 

* INSERT * 

* CREATION * 

* DATE INTO * 

* OUTPUT BLK * 
4(«««*««4<**>fc***«*« 



4c*:«c4>A3** ******* 


4t4c4<«A44c**4ci(c4<**« 




♦ *AZ * 


* * 




* RETURN FROM * 


* FSCAN * 




* SJOBACCT * 


* * 




^O^^^^^c******** 


4i4c4<4i««4t4i4<*4c*4'** 




*»** I 


***♦ [ 




* * . 


* ♦ , 




* 83 *.X. 


* B4 *.X. 




♦ * . 


* * . 




**** X 


**** X 




.*. 


FSCAN .*. 




B3 *. 


B4 *. 




.* *. 


.* *. 


****B5 *♦**♦**♦* 


YES .* OMITTED *. 


.* BLANK *. YES 


* RETURN TO 


.-.*. OPERAND .* 


*. END LAST .* 


..X* LINK REG 


*. .* 


*. SCAN .* 


* 


*. .* 


*, .♦ 


«« **: >«c « «« :(c# «* ** « 


*. .* 


*, ,♦ 




* NO 


* NO 





4(4'4c«*C3 ********** 
♦FETINSRl QC* 

♦_*_♦_♦_*_♦_*_♦ _* 

* PROCESS AND ♦ 

* INSERT FILE * 

* SERIAL NUMBER * 



FSCANI 

:ti****CA********** 

*SCANR2 GK* 

*-*_*-*_*_♦_*_♦-♦ 

* GET NEXT * 

* OPERAND * 

* ♦ 

^fMf^illtilc:^*********** 



^1tl**C5********* 

* * 

* FSCANI * 

* * 



****G2 ********* 

* RETURN FROM * 

* FDKTD, LINK * 

* REG+4 * 



4c*««*H I********** 
*FSCAN QB* 

*_*_*_*_♦_*_♦_♦-♦ 

* GET FILE * 

* SERIAL * 

* OPERAND * 



FTENDl X 

^,t,if:^ili02********** 

♦FETINSRT QC* 

*_*_«_*_♦_*_♦_♦_♦ 

* PROCESS AND * 

* INSERT VOL * 

* SEQUENCE NO. * 

it^:ffitf************* 



Hii^iiftimES********** 
*FETINSRT QC * 

♦_*_♦_)((_♦_♦_«_♦_♦ 

* PROCESS AND * 

* INSERT FILE * 

* SEQUENCE NO. ♦ 



««j((Jtc:(cp3«*#*4(*«**« 

*FETINSRT QC* 

♦_♦_*_*_*_♦-♦_*_* 

* PROCESS AND * 

* INSERT SYSTEM * 

* GENERATION * 
]««««*«4(«4c«4t4c««**4t 



«4'4!«*G3********** 
*FETINSRT QC* 
♦_*_♦_*_*_*_♦_*_♦ 

* PROCESS AND * 

* INSERT THE * 

* VERSION NO. * 



YES .* BLANK * 
...*. FOLLOW LAST 
*. OPERAND .* 
*. .* 



.* . 


CLRl 


D4 ♦. 


♦♦♦♦♦05 ********** 


* *. 


* * 


EQUAL *. NO 


♦ CLEAR * 


SIGN END .*.... 


* TIME ♦ 


SCAN .* 


* COUNTERS * 



4i«4'****4<««*)l<««4c** 



***** 

*QA * 

* D4* 

* * 



*4c**J3********* 

* BRANCH TO * 

* NVSERR IN * 

* SJOBCTLA * 

*****4e««**4i***4c 



*K1 
RETURN FROM FDKTID IS TO 

1. B2 FOR ABSOLUTE DATE (LINK REG+SJ 

2. G2 FOR OMITTED DATE (LINK REG+4) 

3. Gl FOR RETENTION (LINK REG) 



.*EXTENT *. 
NO .* STMNT 
, ..*. PROCESSING 
*. VALID . 



NO .* FIRST 
:..*. 2 CHARS. 
*.0F OPEND 



*^i^t*G^********** 
*SCANR3 GK* 
♦_«_ ♦_ *_ ♦_ *_ ♦_ *- * 

* GET BIN * 

* NUMBERS * 

* ♦ 

*#«4c«**4c«***«*»c«« 



NO .* VALID 
(..*. OPERAND 
*. *H5 



*«««](( J 4.«4t*:4c«4c**«« 

*CHKRNG1 QR* 

*-♦_*-*_*_*-*_*-♦ 

* CHECK DIGIT * 

* RANGE * 

* -0-g- * 
***4i***** ******** 



* INSERT BIN * 

* NUMBER IN * 

* OUTPUT BLK. * 

* * 

**««:((*«**** ****«4c 



**** 

* * 

* B4 * 

* * 
**** 



««*#«g5***4t**«4t*« 



****«4i«4c********* 



****F5 ********* 

* RFTURN TO * 

* LINK REG. * 

* ♦ 

4i«*4e4<********** 



****G5********* 

* * 

* FEBTNl * 

* * 

**4i4i:*)tc4e******** 



*H5 
CHECKS FOR — 

1. BLANK DELIMITER 

2. BLANK OPERAND 

3. noERAND=2 CHAR 

IN LENGTH 



226 DCS/VS IPL and Jot Control 



Chart QC. $JOECTLK - label Frccessing Subroutines (Fart 1 of 2) 
Befer to Charts 17 ard 18. 



* * 

* FDKTV ♦ 



FDKTV 

* SET ♦ 

* LINKR4 * 

* TO ADDRESS * 

* ERROR ROUTINE ♦ 

* -NVSERR- * 



***** REFERENCES 

* * TO QCB2: 

♦ ** QGCl, QJCl 



FDKTV2 X 

««*)»i4iB2********** 

* RESET ALL ♦ 

* SEQUENCE * 

* FLAGS IN ♦ 

* JBCSW5 * 

* * 



4c4>4>«A3********* 



4t4>*4c*«4>*4<««*«4t* 



.* STATEMENT *. YES 
*, OUT OF .*.... 

*. SEQUENCE .* 



4t**4tA4********* 

* FETINSRT * 

* « 



FETINSRT X 

4c«4i*4<B4«]|e«4t*«**4E4c 
*FSCAN QB* 

♦-♦_♦_♦_*_♦_*_♦_* 

* GET NEXT * 

* OPERAND * 

* * 



FDKTVNM 

*3|e«4>«C3 ********** 

*FSCAN1 QB* 

* GET FILENAME * 

* OPERAND * 

* * 



«4<4<**01********** 

* TURN OFF ALL * 

* FLAGS IN * 

* JBCSW5 EXCEPT * 

* BLOCK-NOT- * 

* PRESENT *F2 * 



♦_.GET^ADDR.gF„ * 

*' stmnt^'storage"* 

* AREA, store * 

* IN LBLPTR * 



»**♦* 
♦OS * 
* CI* 



OMITTED *. 


YES 


OPERAND 


*.... 


• * 




. .* 




*. .* 


X 


* NO 


♦*♦♦ 




* 




* Kiy 




* 


, 


♦*♦* 



*F2 
BLOCK-NOT-PRESENT 
BIT MAY BE ON 
OR OFF. 



SEQ 
DISK 
TYPE 



4c«4:**:GX********** 

♦TURN ON BIT IN * 

* MTAFLG AND * 

* MTRSVD FOR * 

* LAST SEQ DISK * 

* EXTENT *G2 * 



*G2 
BYTE 0+8 OF 
DATA FIELD 
OF LABEL 



FOKTVi X 

4i4c«*«Hl********** 

*LBLOUT QN* 
♦-♦-♦-*-♦-*-♦_♦-* 
*OUTPUT LABEL TO* 

* VOL AREA OF * 

* SYSRES ♦ 



♦♦♦♦*J I********** 

* TURN OFF * 

* LOST EXTENT * 
*BIT IN MTRSVD, * 

* CLEAR H.T. * 

* FLAG BYTE * 



*#4i:(eK X******4'4<* 

* RETURN TO * 

* LINK REG * 

* ♦ 



LENGTH GT 
7 



*«4(*«F3********** 

* CLEAR FILE * 

* NAME FIELD * 

* AND RESET ♦ 

* AUX FLAG * 

* BYT E * 



##4(i|t:«cG3********** 

* ♦ 

* MOVE FILENAME * 

* TO OUTPUT * 

* AREA AND SET * 

* UP KEY FIELD * 



4t««*«H3********** 

* * 

* CLEAR LAST ♦ 

* POSITION * 

* OF KEY * 

* FIELD * 



«4t*«D5 ********* 

* * 

* FETINSRO * 



FETINSRO 

*CHKRNG1 OR* 

* CHECK DIGIT * 

* RANGE * 

* 0-9 * 



* * 

* FETINSRl * 

* * 



* GET ADDR. OF * 

* THIS FIELD * 

* OUTPUT BLK * 

* INTO WRKRGl * 



INPUT 
LENGTH GT 
. THAN 
*OUTPUT.* 



****G5 ********* 

* BRANCH TO * 

* NVSERR IN * 

* *JOBCTLA * 



PETINSR3 

*#4t#4<H4********** 

* INSERT * 

* LEADING * 

* ZEROS IN * 

* THIS FIELD * 

* * 



, 


FETINSR4 X 


X 


«4c*«4iJ4«4c««)(t4citt4c«« 


♦♦**J3********* 


* ♦ 


RETURN TO * 


* INSERT * 


LINK REG * 


* THIS FIELD * 


♦ 


* INTO OUTPUT * 


«4c«***«4e4c*««**« 


* BLOCK * 




*4<««*4(**«***««««)(< 




♦*♦* 






* * 






* K4 *.X 






♦ ♦ 






♦*♦* 






FETINSR5 





♦***K4********* 

* RETURN TO * 

* LINK REG +2 * 

* * 
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Chart CD. $JOECTLK - Label Processing Subroutines (Part 2 of 2) 
Refer to Charts 17 and 18 • 



* * 

* FDKTID * 



♦ * 
RESET DISKETTE* 

♦UNIT SAVE AREA * 
* SWITCHES ♦ 

* ♦ 



_♦-♦-♦-*_*_* 



^t***^*^'*^:**^!***** 



**** 










»»♦♦ 


* * 










♦ ♦ 


* B2 ♦ 










* B3 * 


* * 










* ♦ 


♦♦♦* 










*♦♦* 


X 

.♦• 










X 


B2 ♦. 










Xc^t^^KiBB********** 


.* *. 










* SET SCAN * 


.* ANY MORE 


♦. 




rES 


♦ DELIMITER * 


. CHARACTERS 




* 






* TO INDICATE * 


*. . 


*' 








♦END OF OPERAND * 


*. ,* 










* * 


*, «* 








X 


«««««««4<4c««4i4e*«4i:(c 


* NO 






♦♦** 




♦*♦* 






♦ 


* 




* * . 






* 


Jl * 




► 02 ♦.X. 






♦ 


* 




« ♦ . 






♦*♦* 




*«♦* , 










X 

.♦ . 


X 










C3 ♦. 


**it:tiC2********* 






,♦ ♦. 


BRANCH TO 




♦ 






.♦ IS ♦. YES 


NVSERR IN 




* 






♦. DELIMITER .♦... 


$JOBCTLA 




* 






♦ . A BLANK .* 


«:^#« 1(1 «4c4i ](i4t4:4t4c](<« 






♦ . .♦ 



♦C5 
RETENTION PERIOD 
OR ABSOLUTE DATE. 
FORMAT OF ABSOLUTE 
DATE IS VYYOOD*. 



.♦ IS ♦. 

. COLUMN 72 . 

♦.NON-BLANK.* 



NO .♦ IS ♦. 

...*. DELIMITER . 
♦ . A COMMA ,♦ 



♦*** 

♦ * 

♦ H3 ♦ 

♦ ♦ 
♦*** 



♦*** 

* C2 * 

« * 

*♦♦♦ 



4>4t*«*p x*****«*«** 

♦ ♦ 

♦ LOAD SCAN * 

♦ LIMIT INTO ♦ 

♦ P0INT2 ♦ 

♦ ♦ 
**♦♦♦♦♦♦*♦♦♦♦♦♦♦♦ 



♦ START SCAN ♦ 

♦ WITH FIRST ♦ 

♦ CHARACTER ♦ 

♦ AFTER QUOTE ♦ 

♦ * 



♦ ♦** 

X 
«4i4c«4cJ 1*«*«*«***>K 

♦ * 

♦ LOAD ♦ 

♦ CHARACTER ♦ 

♦ ADDRESS ♦ 

♦ ♦ 



IS 
CHARACTER 
. A QUOTE . 
♦ , ,♦ 



♦ ♦ 

♦ STORE LENGTH ♦ 

♦ OF FILE ID IN ♦ 

♦ SAVE AREA ♦ 

♦ SWITCH ♦ 



♦ INSERT FILE ♦ 
♦IDENTIFICATION ♦ 
♦IN OUTPUT BLOCK* 
♦LEFT JUSTIFIED * 

* ♦*♦* 

* * 
..X^ H3 ♦ 

* * 
***♦ 

SCAN .*. 

J2 ♦. 
,♦ *, 



* * 
♦COMPUTE POINTERS 

* FOR NEXT SCAN * 

♦ 2N0 STORE * 

♦ SCAN LIMIT ♦ 

i|ci(e3t(^**^ ♦♦♦♦♦♦*♦♦♦ 



1 .♦. 

G3 *. 

.♦ IS ♦. 

THERE AN 

OPERAND 

. WITHIN . 

♦ QUOTES.^ 

♦ . .♦ 

♦ NO 



* * 

* E5 ♦ 

* * 
*♦*♦ 



* H3 *.X 



♦**♦ 
FOKTDAT X 

«*«««H3^**^^*^^^^ 
♦FSCAN QB^ 

♦_♦_♦_*_#-♦-♦_*_# 

* GET DATE * 

* OPERAND ♦ 

* * 

«««;f *******«♦♦♦♦♦ 



G5 ♦. 

♦ * .* ♦. 

♦ GET LENGTH ♦ YES .* IS 

♦ OF DAY ♦X ♦.3RD CHARACTE 

♦ FIELD * *. A SLASH . 

♦ ♦ ♦, *C5 ,* 
«4i4c*************« *, ,* 

* NO 



DAY 

FIELD 

OMITTED 



**** 

* * 

* C2 * 



QUOTE IN 
. COLUMN 
♦. 72 .* 



*♦*♦ 

♦ * 

♦ C2 ♦ 

♦ * 
*♦♦* 



*♦*♦ 

♦ ♦ 

♦ B3 ♦ 

♦ * 
*♦♦* 



DAT E * . 

OPERAND 
. OMITTED .♦ 
♦ . .♦ 



♦♦♦♦K3 ♦***♦♦♦*♦ 

♦ RETURN TO ♦ 

♦ LINK REG ♦ 

♦ ♦ 



♦ ♦♦* 

* * 

* E5 * 

* * 

♦ *** 



♦ * 

♦ POINT TO * 

♦ START OF * 

♦ ABSOLUTE ♦ 

♦ DATE FIELD * 



♦♦**K4^* ♦♦♦♦♦*♦ 

* RETURN TO * 

* LINK REG * 

* * 

*)|c4( *4t ♦♦♦♦♦♦* **4c 



FDKTOATl X 

♦ NUMCON QR+ 
♦_*_♦-*-*-♦_*-*_* 

♦ CONVERT ♦ 

♦ TO ♦ 

♦ BINARY ♦ 



♦♦♦♦K5 **♦♦*♦*♦♦ 

♦ RETURN TO ♦ 

♦ LINK REG * 

♦ ♦ 
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Chart QE. $JOECTLK - DLBL Stateirert Prccesscr 
Refer to Chart 18, 



* * 

♦ DLBL * 



♦CONCAT QM * 
♦_♦_*_♦_♦_♦_♦_*_♦ 

* READ * 

* CONTINUATION * 

* CARD ♦ 



DLBLl X 

♦FDKTV QC ♦ 
♦-♦-*-♦-♦-*-*-*-♦ 

♦ INITIALIZE ♦ 

♦ STATEMENT * 

♦ ♦ 



* INCREMENT ♦ 

* BY 6 TO POINT * 

* TO NEXT LIOCS ♦ 

* TABLE ENTRY * 



«4c* :«*£ 2 *♦*♦*** «** 

*SET LOC. UNCLOR* 

♦ +1 TO THE * 

♦ LOGICAL UNIT * 

*FROM THIS ENTRY* 
*IN LIOCS TBL+3 * 



FILE *. YES 
NAME EQ .♦... 
. TO TBL .* 
*, ENTRY.* 



♦♦♦* 

* ♦ 

* B3 * 

* * 
♦♦♦* 



«*«««B3** **♦****« 
*FOKTIO QD* 
♦-♦_*_♦-♦-♦-*-♦-♦ 

* PROCESS FILE ♦ 

* ID OPERAND * 
♦CHECK DATE *K5* 

^^^^^^^c:*!* ♦*♦♦*♦♦♦ 



♦STORE RETENTION* 

* PERIOD IN * 

* BYTES 76-77 * 

* OF OUTPUT » 

* BLOCK ♦ 



*4c«*A4*******^* 

* RETURN FROM * 

* FOKTID, LINK ♦ 

* REG+8 * 



*4c4t4(«B4^*****^*** 
♦NUMCON QR* 

♦_♦_♦_♦_♦_♦_♦_♦_* 

* CONVERT YR * 

* AND DAY TO ♦ 

* BINARY * 



* STORE YEAR ♦ 

* IN EXPIRATION * 

* DATE OF ♦ 

* nUTPUT * 

* BLOCK * 



♦A 5 
FILE ID = BLANKS 
FILE SERIAL = BLANKS 
FORMAT ID -1 
VOL SEO = X'OOOl* 
CREATION DATE = ZERO 
EXPIRATION DATE = ZERO 
RETENTION PERIOD = X«0007' 
FILE TYOE CODE = S 
SYS CODE = DOS/VERSION 4 



4.4>*4<«E ]^«4c«***«*)t<« 


E2 ♦. 


♦ SET DEFAULT 




.♦ ♦. 


♦VALUES IN FLOS 




NO .♦ END ♦. 


♦ FILE ID 




...♦. OF .♦ 


♦ THROUGH 




♦. TABLE .* 


♦ SYSCOOE ♦ AS 




. ♦. .* 


I 




♦♦♦* '''♦'yes 

♦ ♦ , 

♦ B2 * 

♦ * . 
♦♦** 


X 




X 


4i4t***F !♦♦♦♦♦♦♦♦♦♦ 


Hf itc4c*4cF 2 ♦*♦*♦*♦*♦* 


♦ RESET 




* INITIALIZE * 


♦CURRENT EXTENT 




* REGS FOR * 


♦ DEFAULT 




* CNUNCOl ♦ 


♦ TABLE TO 




♦ SUBROUTINE ♦ 


♦ STANDARD 




* *E5 * 


*«4<*4E*«4>«*#«4t4(4c*4c 


ili:tt*if:ti4f*********** 



♦♦♦♦♦G !♦♦♦♦*♦♦♦♦♦ 
♦FDKTVNH QC * 
♦_♦_*_♦_♦_*_♦_*_* 

♦ SET UP FILE * 

♦ NAME END KEY * 

♦ FIELDS * 



FILE NAME *. 

SYSTEM FILE. 

*H5 .* 



♦ * 

♦ SET UNCLOR * 

♦ TO FOR ♦ 

♦ SYSTEM CLASS * 

♦ * 



*«**«G2 ♦♦♦♦♦♦♦♦♦♦ 
♦CNUNCOl PT* 

* VALIDATE AND * 

* CONVERT UNIT ♦ 

* NO. TO BINARY ♦ 






FDKIJL 

*4:«*«H2 ♦♦♦♦♦♦♦♦♦♦ 

♦ SET LOGICAL ♦ 

♦ UNIT DEFAULT ♦ 

♦ IN CURRENT * 
♦EXTENT DEFAULT ♦ 
♦TBL FRM UNCLOR * 
^^'^(^♦^'♦♦♦♦♦♦^♦♦♦A 



♦ RETURN FROM ♦ 

♦ FDKTID LINK * 

♦ REG+4 ♦ 



.♦ ♦. 

♦ NUMBER ♦ 
OF DAYS 


. YES 

.♦•».. 


]([ 4c #4c D 5 *4! * * « :(t 4c « 4t 

♦ BtiANCH TO ♦ 
....X* NVSEPP IN ♦ 


♦. G.T. .♦ 
♦. 366 .♦ 
♦ . .♦ 
♦ NO 




♦ ^JnSCTLA ♦ 

«4'4<*4'4c4e4>4'4t««4>«* 


X 


•c* 


♦ E5 

1. OOTNTI = ADDRESS OF 
LOGICAL UNIT IN 
FILE NAME (MTFILN+S 


STORE DAY 

IN EXPIRATION 

DATE 




2. P0TNT3 = LFNGTH 
LOGICAL UNIT-l 



3. LINKR4 = ADDRESS OF 



♦ * 

♦ MOVE FILE ♦ 

♦ NAME INTO ♦ 

♦ FILE ID AS ♦ 

♦ DEFAULT VALUE ♦ 

« 4c4(i(e«ite«4e« «****4c*4: 



*H5 
FIRST 5 CHARACTERS 
EQUAL IJSYS 



♦ SET ADDRESS ♦ 

♦ OF NVSERR ♦ 

♦ ERROR RTN ♦ 

♦ INTO LINKR4 ♦ 
^^(^^^^♦♦^♦♦♦♦♦♦♦* 



4c4eH4^^^^^** 
♦ SET MASK ♦ 

♦ DSEQMSK TO 
ALLOW EXTENT 

♦ STATEMENT 
♦PROCESSING ♦ 

4c«*««4c*««^4e 



♦ SET FLAG ♦ 
MTAFLG TO 

ASSUME 
EXTENTS 

♦ OMITTED ♦ 



***** 
*0F * 
* K3^ 



*4c***K 1********** 
*INIT REGISTERS ♦ 

♦ POINTl AND ♦ 

♦ P0INT2 FOR * 

♦ NEXT SCAN AND * 
♦SAVE IN TMPARl ♦ 
***«**««****4c**** 


****4tK2 ♦♦♦♦♦♦♦♦♦♦ 

♦ WRKRGl WITH ♦ 

♦ MAX LNG-1 ♦ 

* OF FILE ID ♦ 

* FIELD * 

4c**************«* 


X 
**♦* 


x 
♦♦** 



♦K5 
RETURN FROM FOKTID IS TO- 
1. A4 FOR ABSOLUTE 

DATE (LINK REG + 8> 
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Chart QF. $aOBCTLK - DLAB Stateirert Prccesscr 
Refer to Chart 17. 



♦*♦* 
* * 

* A2 * 



♦♦** 

* * 

* A4 * 

* ♦ 



* * 

* A5 * 

* * 
*♦♦* 



**4c*A 1********* 

* ♦ 

* DLAB ♦ 

* « 



DLAB 

♦ INIT LINKRG4 AS* 

♦ BRANCH REG * 

♦ THE INVALID * 

♦ STATEMENT MSG * 

♦ ROUTINE * 



*****A2********** 

♦INIT REGISTERS * 

* POINTl AND * 

* P0INT2 FOR ♦ 

* NEXT SCAN AND * 
*SAVE IN TMPARl * 



* POINT TO 2ND * 

* OPERAND ♦ 

* -VOL SEQ NO- ♦ 



♦_#_♦_»_#_#_*_♦_ 







♦ GET FILE ♦ 






♦ TYPE ♦ 


**** 




♦ OPERAND ♦ 


* ♦ 




:(c:9tc4<4(^^>|c4<4c4<«4c«*4c4:« 


♦ 83 * 






* * 






♦*** 






I 






.*. 






B3 *. 




B4 ♦. 


.♦ IS * 




.♦ ♦. 


.♦EXPIRATION 


♦ . YES 


.♦ OPERAND ♦. 


DATE LT 


...... 


♦. OMITTED OR .♦ 


♦.CREATION 


.♦ . 


♦. SD .♦ 


♦ .DATE .♦ 




*, ,* 


♦. .♦ 


X 


♦ . .♦ 


♦ NO 


♦ ♦♦♦♦ 


♦ NO 




♦ QS ♦ 


♦♦♦♦ 




♦ C2+ 


♦ ♦ . 




♦ ♦ 


♦ C4 ♦.X. 




* 


♦ ♦ 


. 


NLSERR 


♦♦♦♦ , 



DLBOUT X 

4c ^^♦♦♦AS *♦♦♦♦♦♦»♦♦ 
♦FSCAN OB * 
♦_♦_*_*_*_*_♦_*_♦ 

♦ SCAN FOR LAST ♦ 

♦ OPERAND ♦ 

♦ ♦ 



CI ♦. 






C2 ♦. 


.♦ WAS ♦ 






.* DID ♦. 


.♦ VOL THE 


♦ 


. NO 


.♦ A COMMA ♦. NO 


. PREVIOUS 




.♦. .. . 


♦. END THE ...... 


♦. STMNT 


.♦ 




*. SCAN .♦ 


♦ . ,♦ 






♦ . .♦ 


♦ . .♦ 




X 


♦. .♦ 


♦ YES 




♦♦♦♦♦ 
♦QS ♦ 
* CI* 


♦ YES 






♦ « 








♦ 




^ 




OTSERR 


X 


X 






.♦. . 


^(♦♦^oi*^'^^*^^**^ 


D2 ♦. 






* 


.* VALID *. 



♦INIT REG P01NT4* 

♦ AS POINTER ♦ 
♦THE LABEL AREA ♦ 

♦ ♦ 



♦CONCAT QM* 

♦BUILD COMPLETE ♦ 

♦ CARD IMAGE * 

♦ BUFFRl, BUFFR2 ♦ 
4E4t4c««4!^*«^4c4c^^^^4c 



♦SCANR2 GK^ 
♦_*_♦_♦-♦-♦_*_*_♦ 

♦ POINT TO FIRST ♦ 

♦ OPERAND ♦ 

♦ -51 CHARS- * 

4c4:4t4c«i(e#*4c#«*4c:it4c4c« 



.♦. 

HI ♦. 
.♦ 1ST ♦. 
.♦ AND LAST ♦. NO 
.CHAR AN APOS-.^... 
♦. TROPHE .♦ 



♦NUMCON QR^ 
*_3»1_ *_♦-*-♦-♦_♦-* 

♦ CONVERT ♦ 

♦ TO BINARY IN ♦ 

♦ WRKRGl ♦ 

tut:*************** 



««««4(F2^^*^*^^^^* 

♦ STORE BINARY ♦ 
♦VOL SEO NO. IN ♦ 

♦ LABEL SAVE ♦ 

♦ AREA ♦ 

♦ DAVLSQ ♦ 



*_*-*_♦_♦_♦_*_*_♦ 

♦CHECK, CONVERTf^ 

♦ STORE CREATION ♦ 

♦ DATE IN LABEL ♦ 

^^'♦♦♦♦♦♦♦^^[♦♦^citc*^ 



♦UPDATE POINTER * 

♦ P0INT4 FOR ♦ 

♦ STORING ♦ 

♦ EXPIRATION ♦ 

♦ DATE ♦ 



4(#*«i|(C3 «♦♦♦♦♦♦♦♦♦ 

♦ ZERO RESERVED ♦ 
♦AND EXTENT FILE^ 
♦TYPE FIELDS IN ♦ 
♦THE LABEL AREA ♦ 

♦ * 



♦SCANR2 GK^ 

*_♦_»_♦_♦_*_♦_*_;<( 

♦ POINT TO ♦ 

♦ 5TH OPERAND ♦ 

♦ -SYSTEM CODE- ♦ 



.♦. 

E3 ♦. 

.♦ 1ST ♦. 

.♦ AND LAST ♦. 

.♦.CHAR AN APOS-.^ 

♦, TROPHE .♦ 



♦♦♦♦ 

♦ ♦ 

♦ Kl ♦ 

♦ ♦ 
♦♦♦* 



♦ STORE SYSTEM ♦ 

♦ CODE IN LABEL ♦ 

♦ AREA, DASYCO. ♦ 

♦ -13 BYTES- ♦ 

♦ * 
«***4c*4t *j|c*<( 4c«*4c «;(( 



*«***J 14<::(c«**4c«^^^ 


4(*4C«<3|CJ2 ♦«♦«♦♦«*«« 


**«««J3«««:(c4<^^^^« 


♦ STORE FILE ID ♦ 


♦D0P34 QM^ 


♦ SET AUX FLAG ♦ 


♦ IN DATCRL, ♦ 
...♦ DAFMT TO 1 ♦ 


*_♦_♦_♦_♦_*_*_♦_♦ 


♦ BYTE, X»10« OF ♦ 

♦ LABEL TO 04 ♦ 


♦CHECK, CONVERT, ♦ 


. ♦ENSURE FORMAT 1* 


♦ STORE EXP RA- ♦ 


♦TO INDICATE EX-+ 


. ♦ ♦ 


♦ TION DATE * 


♦TENTS CONVERTED^ 


X *♦♦**♦♦♦♦*♦♦**♦♦♦ 


*>(c)tc4<:(t«;(c«**«^*««^^ 


^^i;:^ti************* 


♦♦«« 






K ♦*«*« 


* 


*♦** I 


A2 ♦ ♦ 




♦ QE ♦ 


* ♦ Kl ♦... 




♦ J4 ♦.X. 


4c*4c*^ * .X. ......... 




♦ ♦ , 


♦ ♦♦♦ 




**** 




X 


FDDKCODE X 


X 


iti**^:im2********** 


«4c*:<c«K3^^*^^*^^^* 


4e*4c^K !♦♦♦♦♦♦♦♦♦ 


♦RESTORE P0INT4 ♦ 


♦ * 


♦ BRANCH TO ♦ 


* TO POINT TO ♦ 


♦ SET FILE TYPE ♦ 


♦ NVSERR IN ♦ 


♦ CREATION DATE ♦ 


♦ IN FILTYP TO ♦ 


♦ SJOBCTLA ♦ 


♦ IN LABEL AREA ♦ 


* -S- FOR SEO * 


«4c:tc^«**4c^«4'4c«^« 


* ♦ 


♦ DISK ♦ 




4c««*4c«4t4c^^4>^*^*** 


^^[♦♦♦♦^(♦^^^^♦♦♦♦♦« 




X 
♦♦*♦ 


X 
♦♦♦* 




♦ ♦ 


♦ ♦ 




♦ B3 * 


♦ A4 ♦ 




♦ * 


* ♦ 




♦*♦♦ 


**** 



4c4t4t4;4cC4^^^^^^^^^^ 

♦ RESET EXTENT ♦ 
♦COUNT FLAG BYTE* 

♦ FOR DA OR IS. ♦ 
♦TO 0, SET FILE * 

♦ TYPE TO -0-. ♦ 



*#D4^+^^+^+ 

♦ SET ♦ 
SEQUENCE 
REQUIRES 

EXTENT 

* FLAG * 



.♦ TYPE = DA 
•«. FOR DIRECT 
♦. ACCESS . 



♦ SET STATEMENT ♦ 

♦ SEQ MASK ♦ 

♦ DSEQMSK TO ♦ 
♦INDICATE EXTENT^ 
♦REQUIRED FOR IS* 



DATA ♦. NO 
SECURITY .♦.,. 
.SPECIFIED. ♦ 



♦♦05^*^**^+ 



SET 

DATA 

SECURITY 

♦ SWITCH * 



♦ SET STATEMENT ♦ 

♦ SEQUENCE FLAG ♦ 

♦ INTO JBCSW5 * 

♦ ♦ 



♦ PUT FILE TYPE ♦ 

♦ INTO OUTPUT * 

♦ BLOCK AND RESETS 
♦DATA LENGTH TO ♦ 

♦ 84 ♦ 
^^(♦♦♦«4( ♦♦«*«♦«♦*♦ 



itc**^*G3********** 


««4c4(4cG44<*«««:(t«*4c4< 




G5 ♦. 


♦INIT REGISTERS ♦ 


♦ * 




.* *. 


♦ POINTl AND ♦ 


♦ MOVE THE TYPE ♦ 




.* FILE ♦. NO 


♦P0INT2 FOR NEXT^ 


♦ C OR E TO * 




♦. TYPE ...... 


♦ SCAN AND SAVE ♦ 


♦ FILTYP FOR ♦ 




*. DU .* 


♦ IN TMPARl ♦ 


* INDEX SEQ. ♦ 




*. .♦ 


4c*4c:(t4e*4e«4t«#««4c4c^4c 


**^,i:ilft,if*********'t' 




*. .* X 
♦ YES ♦♦♦♦ 

♦ ♦ 

♦ C4^ 














♦ ♦ 








♦ ♦♦♦ 


X 




X 


j(t«i|e«:|eH3 «♦♦♦*♦«**« 


H4* '*. 




«4c4<^«H5 ♦*♦*♦♦♦♦♦♦ 


♦INITIALIZE INST^ 


.* *• 




♦ ♦ 


♦ AT DSEQMSK ♦ 


,* OPERAND ♦. YES 


♦ INDICATE DU ♦ 


♦INDICATE XTENT ♦ 


♦. EITHER ISC .♦. 




♦ STORE 'SO' IN ♦ 


♦ STATEMENT ♦ 


*. OR ISE .* 




♦ SAVE AREA ♦ 


♦ REQUIRED ♦ 


*. .* 




♦ SWITCHES * 


:((««♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


*. .♦ 


X 


«*>t(«««^ie*«:(i4t«*4c«« 




♦ NO 


♦♦♦♦ 






♦♦♦♦ 


♦ ♦ 






♦ * . 


* A5 * 






♦ J4 ♦.X. 


♦ * 






* * 


**** 






**** 






X 


X 




X 


**«««J3«««:(c4<^^^^« 


4c4c*«4<J4«*«4'««^^*4c 




4c*:(c:tc« J5 >ec«««:(c««;(c4c* 


♦ SET AUX FLAG * 


* * 




* * 


♦ BYTE, X»10« OF * 

♦ LABEL TO 04 * 


* MOVE TYPE A * 




♦ CHECK FILE ID ♦ 


* TO FILTYP * 




* LENGTH FOR * 


♦TO INDICATE EX-+ 


* FOR VSAM * 




* 8 OR LESS ♦ 



**«*««;te4c«4(«:»:«^**« 



«*4c:(e«:(c«««««««4c««« 
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Chart QG. $JOECTLK - XTENT Stateirent Processor 
Refer to Chart 17. 



(Part 1 of 2) 



* XTENT ♦ 

♦ * 



♦INIT LNKRG4 AS * 

* BRANCH REG * 

* INVALID STMNT * 

* RTN * 



♦ A4 * 



.♦ IS THIS 
*. THE FIRST 
*. EXTENT . 
*. .* 



,* «. 


«C2 


NO .♦ PREVIOUS *. 


I. 


...*. STATEMENT .* 




*. DLAB OB .* 




♦.XTENT.* 




X *, .♦ 




***** * YES 


2. 


*0C * 




♦ B2* 




* * 


♦02 


* 


1. 


FDKTV2 




X 


2. 


4t«»«4cDl ********** 




* * 


3. 


♦INIT REGISTERS * 




* POINTS AND ♦ 


4. 


* WRKRGl * C2 * 





4i4!«********«***** 



P0INT4 MINUS THE LENGTH 
OF THE VOL AND DLAB FIELDS 
IS SET TO THE BEGINNING 
ADDRESS OF THE CURRENT 
EXTENT IN THE LABEL AREA. 
WRKRGl IS SET TO ENDING 
ADDRESS OF THE CURRENT 
EXTENT IN THE LABEL AREA. 

UPPER AND LOWER LIMIT CELL NOS . 

XTBl AND XTB2 MUST BE EQUAL. 

UPPER EXTENT»XTULtCANNOT EXCEED 

MAX VALUE, MXCCHH. 

LOWER EXTENT, XTLLf CANNOT 

EXCEED UPPER EXTENT, XTUL. 

IF SPLIT CYLINDER, LOWER HEAD, 

XTLLH2, CANNOT EXCEED UPPER 

HEAD,XTULH2 



...*. ASCENDING .*..... 




*. SEO NO .* 




♦ . ,* 


♦♦♦* 


*. .* 


* ♦ 


* 


* C5 ♦ 


**** 


* * 


* * 


♦*♦* 


* C4 *... 




* * , 




***♦ X 




.♦. 


XT0P3 X 


C4 ♦. 


4t*4c**C5 ********** 


.♦ IS *. 


♦KT0P34 QM* 


YES .* THIS THE *. 


K ♦-*-♦-*-*-*-*-*-* 


X..*. FIRST EXTENT .* 


. ..X*CHECK, CONVERT,* 
* STORE LOWER ♦ 


*. .* 


*. .♦ 


* C1,C2,H1,H2 * 


*. .* 


«#**4(«*4>********* 



***** 
*QS * 
♦ C1*0TSERR 



.* WILL THIS * 


NO 


*.tXTENT FIT liN 


*. .. • 


*. LABEL .* 




*.APEA .* 




*. .* 


X 


* YES 


***** 




*QS * 




* C3* 




* * 




* 




LAXERf 



«4t«)»:*Fl********** 

*XT0P12 QM * 
♦_♦_♦_♦_*_«_*_*-♦ 
*CHECK, CONVERT * 

* EXTENT TYPE * 

♦ * 



««**#Q|^«««4c«4(«4c4« 



«4c*4c*D5 ♦♦****♦*** 

* STORE LOW LIMIT* 

* CELL NOfBI,IN * 

* XTBl OF LABEL * 

* AREA. INCR * 

* P0INT4 BY 4 * 

«4c4!«************* 



:ic«***E 5 ********** 
♦XT0P34 OM* 

*_»_♦_♦_*-*_♦-*-♦ 

* STORE UPPER * 

* C1,C2,H1,H2 * 

««i(e4c««*********** 



4e«***F5 ********** 

♦RESTORE P0INT4 * 

* STORE UPPER * 

* LIMIT CELL * 
*,B1,IN XTB2 OF * 

* LABEL AREA * 

3(e#*4c4i****^*^***** 



* STORE TYPE IN ♦ 
*EXTENT .TYPE FLD* 

* OF LABEL AREA * 

* -XTTYPE- * 

*i3«c*4c***4=4t4'**4e**4* 


....X* 


.* 


DIRECT 
ACCESS 

♦ . .* 
*. .* 
♦ YES 


X 

.*. 
HI ♦. 

.*' FILE **. NO 
*. SEQUENTIAL OR.*... 
♦.VSAM DISK.* 


NO .*' 
X....*. 


H2* **. 



EXTENT 

TYPE GT 

2 



. YES .* EXTENT 

.* X*. TYPE EQUAL 

*. 4 



:|c#«iic){cH4********** 

♦ XT0P12 QM* 
*_♦_♦-♦_*-♦-*-*-* 
♦CHECK, CONVERT,* 

♦ STORE EXTENT * 

♦ SEQUENCE NO- ♦ 



X 
***** 
*QS * 
* C2* 



SXTPOK 

*4t4<**K !****♦*♦*** 
*XT0P12 QM ♦ 

*CHECK, CONVERT,* 

* STORE EXTENT * 

* SEQUENCE NO. * 
iK*4c«t*****^****** 



««4e««J2********** 
*XT0P12 QM* 

♦CHECK, CONVERT,^ 

♦ STORE EXTENT ♦ 

♦ SEQUENCE NO. * 
IK**************** 



**** 

♦ ♦ 

♦ C5 ♦ 

♦ * 
**** 



*CHECK, CONVERT,* 

* STORE EXTENT * 

* SEQUENCE NO. ♦ 
«*4(*^**** ******** 



.* 
.* 
YES 



SEO 
NO. GT 

1 



K4 *. 
.* IS *. 
.* THIS THE ♦ 
I'. FIRST EXTENT 



NO .* VALID 

...♦. EXTENTS 

*. *D2 



*♦*«♦ 
♦OH ♦ 
♦ Al^ 



***** 
*QS * 
NLSERR * C2* 



***** 

*os * 

* C2* 



**** 

* * 

* C5 * 

* * 
**** 



* C4 * 

* * 
**** 
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Chart QH. $JOBCTLK - XTENT Stateirent Prccesscr (Part 2 cf 2) 
Befer to chart 17. 



♦**♦♦ 












♦ ♦♦* 


♦ Q6 * 










♦ * 


* G5* 










♦ A4 ♦ 


♦ * 










* ♦ 


* 










*♦♦« 


XT0P5 X 










CHKPUN .♦. 


*4>«4c4cA 1********** 










A4 ♦. 


♦SCANR3 GK* 










.♦ THIS ♦. 


♦_*_♦_♦_♦_♦_♦_*_♦ 










NO ,*UNIT EQUAL *. 


* POINT TO 5Tri * 










...♦. TO PREVIOUS .♦ 


♦ OPERAND * 










♦. UNIT .* 


♦ -SERIAL NO.- * 




*♦♦* 


♦♦♦* 




*. .* 


#*4t4c*4<**««*4t4i«**4i 




* ♦ 


* * 




X ♦. .♦ 






* B2 * 


♦ 83 ♦ 


♦♦♦♦ * YES 






* ♦ 


* * 


♦ 








*♦«♦ 


♦*♦* 


* E4 * 

* * 
♦ *** 

X 


X 




■- 


* 


•♦. 




X 


X 




.♦. 


Bl ♦. 




*«««4iB2********** 


*«B3 *«#«««>)( 




84 ♦. 


.* 1ST *. 




♦ SCANR3 6K* 


♦ SET SWITCH * 




.* BIN ♦. 


.* AND LAST *. NO 




*_♦„♦_♦_♦_♦_♦_♦_* 


* MTRSVD AND ♦ 


NO .* NO EO. *. 


♦,CHAR AN APOS-.*,. 




♦ POINT TO 7TH * 


♦ HTAFLG AS 


^ 


...♦.PREVIOUS BIN .* 


*. TROPHE .♦ 






♦ OPERAND * 


* LAST SD 


It 


♦. NO. .♦ 


*. .♦ 






* -B2- * 


* EXTENT * 




*. .* 


*. ,♦ 






**«*«*«*)t>«*4<*«4<*« 


:4(i|(;4(:(c4<4c4< «♦*)(' 




♦ . .♦ 


* YES 






I 






♦ YES 


X 






X 






X 


.*. 






.♦. 


X 




.♦. 


CI *. 






C2 *. 


:|(«4c«^C3 *♦♦♦*♦♦**♦ 


C4 ♦. 


.* *. 






.* ♦. 


♦ SET WRITE DISK 


* 


.♦ VOL ♦. 


NO .* IS *. 




. NO .♦ SCAN *. 


♦ DATA LENGTH, 


* 


.♦SER. NO. EO*. YES 


....*. THIS FIRST .* 




X. 


.♦. STOP CHAR A •♦ 


* DTALGT, TO 


* 


♦ .PREVIOUS VOL .*.... 


♦. EXTENT .♦ 






*. BLANK .* 


♦ 104 BYTES 


♦ 


♦. SEP NO. .* 


, *, ,* 






*. .* 


* 


♦ 


*. .* 


• *• .* 






*. .* 


it(4t4c4:4c*«4<4t«)tc«4c#«** 


♦ . .♦ . 


* YES 






♦ YES 






♦ NO 

..........xl I 


I X 






X 


X 




NOOCUX X 


, 4t*«*4(01*'<'**'t<***^4< 






D2 *. 


^^t03******* 




#4i:D4*^^^*^* . 


* PUT FILE ♦ 






.* *. 


* RESET ALL * 




* * , 


* SERIAL NO. * 




NO .* VALID *. 


* FILE OEFIN. 


^ 


* SET NO * 


♦ IN OUTPUT ♦ 


X.. 


.*. LENGTH .♦ 


* STMNT FLAGS 


* 


♦ XTENT * 


♦ BLOCK * 




*.-l CHAR- .* 


♦ IN JBCSW5 


¥ 


♦ FLAG * 


, ♦ * 




*. ,* 


♦ * 




♦ ♦ , 


, *4c*4:#4:4t«))ca(c««i(t«**« 


X 


*. .* 


4(«3|e4cite#4t^^^^ 




i«c9^*«*>«e*4c*«« 




**♦* * YES 










* 


* 






♦*+* , ' 


• ••••••. «».xl 


* 63 
* 


* 
* 


I 




♦ ♦ . 

* E4 *.X. 






**♦* 






♦ ♦ . 












♦ **♦ 


X 




X 


X 




X 


4c4<*4:*EI4"f#4c****«* 




4t«*4c*E2 ********** 


4c«* # *E 3 4c* !tt« *«4< 4< 


«e* 


**E4«****3(ci(( 


♦UPDATE POINTERS* 




♦NUMCON QR* 


♦LBLOUT QN* 


♦ SET BIT ♦ 


* POINTI AND ♦ 




»_♦_*_*_♦_*_*_♦_♦ 


♦_♦_*_♦_*_♦_*_♦ 




♦OF MTAFLG ON * 


*P0INT2 FOR SCAN* 




* CONVERT 82 * 


♦ WRITE EXTENT 


* 


♦TO FORCE LIOCS ♦ 


* RTN. STORE * 




* TO BINARY IN * 


♦ TO VOL AREA 


* 


* LOOK AHEAD * 


* TMPARl * 




* WRKRGl ♦ 


* OF SYSRES 


♦ 


♦ ♦ . 


««««4e#*4(««4t«^](c9tt*« 




4t«4i4c3«c«:»*4i«4c*«3tc :(<«]{< 


4c*«4<4c«4t«««4c**«!t<«>tc 


i^:********-** . 






; 


X 
**♦* 




Ix l 








* ♦ 






X 




X 


* J5 ♦ 




OUTLBL X 


««4(]|c;«cF: 14:4t«««i(c#««4< 




4t*«««F 2 ********** 


* * 




4t4[*««F4*4t«4c*#**>(:« 


♦SCANR3 GK* 




* STORE CURRENT * 


♦♦** 




♦ SET FLAG BYTE ♦ 


*«♦_*_♦_*-♦_*_♦_* 




* CELL NUMBER, * 

* B2, IN XTB2 * 






♦ MTRSVD IN * 


♦POINT TO SIXTH * 








♦ LABEL+8 FROM ♦ 


♦ OPERAND ♦ 




* OF LABEL AREA * 






♦ MTAFLG, LABEL ♦ 


* -SYSXXX- * 




* FROM WRKRGl * 


**** 




♦ + X« 10' * 


4i«)(t*«4<««««*««#««« 




* * , ♦ * 

* G2 *.X.X..*OK * 

* * . * J4* 


* * 

* G3 ♦ 

* * 
♦*** 




4<4<4:4(«4t«#*««**«*«« 


X 




♦♦** X ♦♦** 








.*. 


XTOUT .*. 






X 


GI *. 




G2 *. 


X 




*:«(««)(( Q44(*«««**^«« 


.* SCAN ♦. 




.* IS *. 


^i:ic*:ffQ2********* 


♦LBLOUT 0N+ 


.* STOP CHAR *. NO 




.* FILE TYPE *. NO 


♦ BRANCH TO 


♦ 


♦ _;((_*_*_*_*_:^_*_« 


♦. A BLANK OR .♦. . 


K. 


♦.SEQUENTIAL SD.*.... 


♦ NVSERR IN 


♦ 


♦OUTPUT PREVIOUS^ 


*. COMMA .* 




♦. OR VSAM .* 


♦ SJOBCTLA 


* 


♦ XTENT TO VOL ♦ 


*. .* 




*. .* 


4t 4c:«c«4( «:««:((« 4(« 4(<c 4: 


♦ AREA OF SYSRES * 


*, ,* 


X 


♦ . .♦ X 






#;tcj«(4:)t!4<**4c#>^««:4(«:«« 


* YES ♦*** 


« YES **** 








♦ 


* 


♦ * 








. ♦ 


G3 ♦ 


* C5 * 






, 


♦ 


* 


, ♦ ♦ 








, ♦**♦ 


♦*** 








X 




X 






X 


«S«E#««HI**'t«******* 




:(<«4<:V#H2********** 






;|c:(c4c4c4cH4^^^^^*^^^^ 


♦CHUNCO PT* 




*IN1T P0INT4 AS * 






♦ RESTORE WRITE * 


*_*_♦_*-»-*_♦_*-♦ 




* POINTER TO * 






♦ DISK DATA ♦ 


*CONVERT SYSXXX * 




♦PREVIOUS EXTENT* 






♦ LENGTH TO 84 * 


* TO SYMBOLIC * 




* AND ZERO BITS ♦ 






♦ BYTES IN ♦ 


* UNIT ADDRESS * 




♦ 0,1 OF MTAFLG ♦ 






♦ DTALGT * 


4c«:tc*«««««4t4c4c««**« 






«4c;4c* :«(*♦♦♦♦♦♦***** 






««*:4c«*««««,tc*#:tc«:|c4c 



♦*** 
* r5 ♦ 



XTUNIT X 

««4e4i«C 5 ♦♦♦♦♦♦♦♦*♦ 

♦ INCREMENT ♦ 
♦EXTENT CNT BY !♦ 

♦ TN BYTE 8 OF ♦ 

♦ FIRST EXTENT ♦ 

♦ -MTRSVD ♦ 



♦ F5 ♦.X 



♦*** 
NEWXTN X 

* UPDATE LBLPTR ♦ 

* WITH ADDRESS ♦ 
♦OF NEXT EXTENT ♦ 

* S^VE AREA * 

* ♦ 



:<c«* **n5 ****♦♦♦♦♦♦ 

♦ INCREASE BYTE * 
♦COUNT IN WRITE * 
♦DISK DATA LNG. ♦ 

♦ DTALGT, BY ♦ 
♦EXTENT ?0 BYTES^ 



**H5 ♦♦♦♦♦♦♦ 

♦ SET JBCSW5 ♦ 

♦ TO INDICATE ♦ 
♦LBL BLK PRESENTS 

♦ AND NO ♦ 
♦STMNTS REO.* 

♦ *** 



* * 

*STORE SYMBOLIC * 

* UNIT ADDRESS ♦ 

♦ IN UNCLOR ♦ 

♦ » 



.*. 
Kl *. 
.* LAST ♦. 
.* OPERAND 
♦. STOP CHAR A 
*. BLANK . 
*. .♦ 
♦ . .♦ 
♦ YES 



♦♦♦♦♦J4«***«***** 


X 


♦ MOVE CURRENT 


« 


««:)>« J5«:|e«««««4e* 


♦ EXTENT TO 


* 


♦ BRANCH TO 


♦ OUTPUT AREA 


* 


♦ CONTROL IN * 


* OVERLAYING 




♦ ^JOBCTLA 


♦PREVIOUS EXTENTS 


««:((«!«c*:tc:(c«4c«*4>** 


xT 


** 




X 


♦K5 


***♦ 




IJSYSIN 


♦ * 




JSYSPH 


♦ F5 ♦ 




JSYSLS 


♦ ♦ 




JSYSLN 


**** 




JSYSSL 
JSYSRL 
JSYSRS 



♦ B3 * 

♦ * 
♦♦*♦ 
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♦ EXTENT ♦ 

♦ * 



* LOAD ADDR. * 

* OF NVSERR * 

* ERR RTN INTO * 

* LINKR4 * 



*A5 
DEFAULT VALUES 
SET UP IN DLBL 
ROUTINE FOR. 

1. VOL SERIAL 

2. EXTENT TYPE 

3. EXTENT SEQ. NO. 

4. EXTENTELOWER LMT. 

5. EXTENT UPOER LMT. 

6. LOGICAL UNIT 

7. BIN NO. 



.*. 

B2 ♦. 

.♦ FIRST ♦. 

.* EXTENT * 

♦.SPECIFY LOGL 

*. UNIT .* 



♦ C2 *.X. 

♦ * . 

FESYSX3 X 

*PUT LOGICAL UNT* 
*INTO EXTENT AND* 

♦ SPECIFY THIS * 
♦UNIT AS DEFAULT* 
♦IN NEXT EXTENT * 



*ti«4t«C3********^* 

* SET FILE ♦ 

* SERIAL FROM ♦ 

* VOL. SERIAL * 

* NUMBER * 

* * 
4c4>**^*********«** 





♦QC * 


♦*** 




♦ B2* 


* * , 




* * 


* D2 *.X. 




* 


* * . 


X 


FDKTV2 


**** . . 


.*. 


FEVSER X 


Dl ♦. 




****4<02********** 


.* *. 




♦FSCAN QB+ 


.♦ ENOUGH *. NO 


♦_♦_♦_♦-*_♦-♦-♦-* , 


*. ROOM IN .* 




* GET VOL * 


*. LABEL .♦ 




* SERIAL * 


*.AREA .* 




* OPERAND * 


*. .* 


X 


9|t!|t4c**#««#:|i«;(c«**«« 


* YES 
* 


***** 
♦QS * 

* 






LAXERR 


X I 


X 


FEVSERl .*. 


*«*«4cE l««*4c****** 




E2 *. 


* SET DEFAULT ♦ 




.* *. 


♦ VALUES FROM ♦ 




.* OPERAND ♦. YES . 


♦CURRENT EXTENT ♦ 




♦. OMITTED .*...... 


♦ DEFAULT ♦ 




*. .* 


* TABLE *A5 ♦ 




*. .* 


W4P4<«:*«W4««¥V^^V 




*. .♦ 



FILE 
TYPE EQ 

SD 



....X 



FETYPE X 

#41 ^cjH^tDS ********** 

* SET DEFAULT * 

* VALUE FOR * 

* EXTENT TYPE * 

* TO 1 ♦ 
« * 



4(*4e#*E3********** 

♦FSCAN QB* 

♦-«-♦_*-*_♦_♦_♦_♦ 

* GET EXTENT * 

* TYPE * 

* OPERAND * 



#4c**«F !♦******«*« 
*FSCAN1 QB* 

* GET SYSXXX * 

* OPERAND * 

* ♦ 

«4t4ci|e4c************ 



FEVSER2 

4:)|t«4c«P2********** 

*FETINSR1 QC* 

*_♦_*_♦_♦_♦_*-*-♦ 

* INSERT SERIAL * 

* NO. IN OUTPUT * 

* BLOCK * 
*4e******^******** 



.*. 

F3 *. 
.* *. 

♦ OPERAND 

LENGTH GT 
*. 1 

*. .* 

*. .* 
* NO 



FESYSX2 

4t«4c«4tHI********** 
*CNUNCO PT* 

#_*_♦_*_*_*_♦_*_* 

♦CHECK, CONVERT ♦ 
♦SYSXXX TO LOG. * 
♦UNIT CLASS, ORD^ 

««:|c*#*4c«4t4:#«^^**4: 



H2 *. 






* ARE *. 






LOGICAL 


*. 


Nn 


UNITS THE 




♦. . 


SAME 


♦ 





.* *. 


.♦ WAS *. 


YES .* FIRST *. 


YES .*VOL SERIAL *. 


.,.*. EXTENT .* 


*.SPEC. ON LST .* 


. *. .* 


*. EXTENT .* 


*. .* 


*. .* 


X *. .♦ 


♦. .* 


i|c«4t* * NO 


* NO 


♦ * . *♦** 




* C2 ♦ . * * 


Ix 


* * ..X* B2 * 




**** « * 




*♦** 


X 
««««*K2*******^** 




4c4<««Kl*****^^^* 


* SET DEFAULT * 


♦ BRANCH TO * 


♦VALUE FOR NEXT * 


..X* NVSERR IN *X.. 


*EXTENT TO VALUE* 


. * SJOBCTLA * 


* OF THIS VOL * 


4'*******4c*4:***« 


* SERIAL NO. * 


, 


:it*if*******if****** 



*«3»i4c*H3******^^** 
♦TEST FOR START * 

♦ TRK. AND TRK. * 

♦ NO. BOTH * 
♦PRESENT OR 80TH+ 

♦ NOT PRESENT ♦ 



.♦. 


FETYPEO .*. 


D4 ♦. 






05 *. 


.♦ ♦. 






.* ♦. 


.♦ EXTENT *. 


NO . 


* FILE ♦. 


*. TYPE EG .* 




.*, 


TYPE EQ .♦ 


*. 1 .* 






*. OA .♦ 


*. .* 






*. .♦ 


*. .* 


X 




*. .♦ 


* NO 


***** 


♦ YES 


* . 


*QK ♦ 




* . 


♦ Bl^ 




* . 


♦ * 

* 




• 


X 


FETYPE] 


X 


.*. 






.*. 


E4 *. 






E5 *. 


.* *. 






.♦ ♦. 


.* 3540 *. 


fES NO . 


♦ EXTENT ♦. 


♦. LABEL SET .♦ 


....X... 


,*, 


TYPE EQ .* 


*, .* 






♦ . I .♦ 


♦ . .♦ 


, 




*. .♦ 










♦ NO 


***** 

♦QS ♦ 

♦ C2^ 

* ♦ 




♦ YES 




* 






X 


NLSERR 






.♦. 






X 


F4 ♦. 




**:tc**p5 ********** 


,♦ ♦. 
.♦EXTENT TYPE+. 




♦FESEQ OL* 


^0 


*- 


.*_*_*_♦_*_*_*_* 


♦. EQ 8 ,♦ 




* 


PROCESS AND * 


♦ . .♦ 




* 


INSERT EXTENT ♦ 


♦ . .♦ 




♦SEQUENCE OPRND ♦ 


*. ,* 


X 


********4c«4c4t***** 


* YES 


***** 
*QS * 
* C2* 




[ 




* * 




X 




* 




***** 




NLSERR 




*QK ♦ 


X 






♦ E2^ 


«4t**«G4**^*^^^^** 






♦ * 


* * 






* 


* PUT 128 INTO * 






FETK 


* EXTENT TYPE * 








* FIELD IN * 








* OUTPUT BLK. * 








4t4e*«*******^^^*^^ 








♦ **♦ * 








* ♦ . REFERENCES 






♦ ♦ *.X. TO QJH4: 






♦ ♦ . QKCl, QKKl 






♦ ♦*♦ 









FETYPEl 

*****H4^********* 
*FESEQ QL * 
*_*_*_*-*_*_*_*-* 
♦PROCESS EXTENT * 

♦ SEQUENCE * 

♦ OPERAND ♦ 
***************** 



*****J3** ******** 

* * 

* STORE EXTENT * 

* TYPE IN ♦ 

* OUTPUT BLK. ♦ 

* * 

*********«*4(****;|c 



♦.FIRST EXTENT .*. 



♦♦♦♦ 

♦ ♦ 

♦ Kl ♦ 

♦ ♦ 
**** 



3540 EXTENT .♦. 
», .* 

*. .* 
*. .* 
* NO 

I FETK 
X 
**** 

* * 

* J5 * 

* * 
**** 



J5 *. 

.* *. 
* ASCENDING 
SEQUENCE 



***** 

♦ QS ♦ 

♦ Cl^ 



***** 
♦QK * 
♦ E2^ 
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***** 

*QJ * 
* 05* 



**♦* 

* * 

* B3 * 

* * 
♦*** 



FETYPEI .*. 




X 


Bl *. 




*****Q2***4'**4'**'l< 


,» *, 




♦FESEO OL* 


T.2 .* EXTENT ♦ 


. 


♦_ ♦_♦_*_ ♦^ ♦_♦_♦_ * 


...♦. TYPE EQ 0» 


*. ... 


♦ GET SEQ * 


*. 1 OR 2, .* 




* OPERAND ♦ 


*.GT 2 .* 




* * 


*. .* 


X 


**it<*4c««*««it4c«4c*** 


* 10R2 


«*♦** 

*QS * 
♦ C2* 

* * 
* 


: 


X 


NLSERR 


X 


.*. 




.*. 



FES^LIT 



.* FILE *. YES 


*. TYPE EQ .* 




*.IND, SEQ .* 




*.EXP. .* 




*. .* 


X 


* NO 


***** 




*QJ * 




* H4* 




* * 




* 


X 
**:(c««01 ********** 


FETYPEI 




*FESEQ OL* 




#_*_*_J(C_»_#_#_#_# 




* GET EXTENT * 




* SEQ * 




* NUMBER * 




*««4( #«:*********** 







*****C3********** 




* RESET IMMED. * 


NO 


* OPERAND AT * 




* FES PL IT 3 * 




*INDICATING EXTS* 




* NOT OMITTED * 


X 


**««*4c««*«*****4i>|c 


***** 




*os * 


**** 


* C2* 


* * .X...... 


* * 


* 03 *.X. 


* 


♦ * , 


NLSERR 


**** , 



i^4c4ci|c*Q4**4c******* 
*FSCAN OB* 

*_*_*_*_*_*_♦_*_* 

* GET SPLIT ♦ 

* CYLINDER * 

* OPERAND * 

]»:*****4c«4c*******4t 



SEQ 

= OR 
1 



REFERENCES 
TO 0KE2: 
0JF5, QJK4 



***** 
♦QS * 
♦ C2* 



**** 

* * 

* Gl * 

* * 
**** 



FETKNO 

*«**4i[)3*********4c 

*FETKNO QL* 

♦ _♦_*_»_«:-♦_♦-♦-.♦ 

♦GET AND CONVERT* 

♦ NUMBER OF * 
♦TRACKS OPERAND * 

«*:(c*««4<4c********* 





* 


FESPLITl .*. 






04* **. 


05 *. 






.* *. 


.* *. 






.♦ EXTENT *. NO YES .*' EXTENT * 






*. TYPE=128 .* 


...X....*. TYPE EO 


* 




*, ,♦ 


*. 128 .* 






*, ,* 


*, .♦ 






*. .* 


X *, .♦ 






* YES 


***** * NO 
«QS * **♦* 
* C2* * * . 
* * * E5 *. X, 
* * * , 
NLSERR **** X 






X 


FESPLIT2 .*. 






4:«*4i*E4********** 


E5 *. 






♦NUMCON OR* 


,* *. 




=s 


*_♦_:(«_♦_!((_♦_♦_*_« 


.* BLANK * 


. YES 




* CONVERT * 


*. END LAST 


*. . . 




* TO * 


*. SCAN .* 






* BINARY ♦ 


*, .* 




X 


)»:*4c*)|c** ********** 


*, .* 




**** 


. 


* NO 





* Gl *.X. 



.* EXTENTS *. NO 
*.IN ASCENDING .*. .) 
*. SEQ .* 



***** 
♦QS * 
* CI* 



**** 

* i 

* F2 *.X, 

* i 
R *♦** 

FETK 

**4c**|: 2 ********** 

* SET IMMEDIATE * 

* OPERAND AT * 

* FESPLIT3 TO * 

* FF INDICATING * 
*EXTENTS OMITTED* 
**4c4t«**********«* 



♦♦♦♦♦G2 ********** 
*FETKTK QL* 
♦_*_*_*-*_*-*_♦_♦ 
*GET AND CONVERT* 
*RELATIVE START * 
* TRACK OPERAND * 
***************** 



HIGH 

TRK GT 

19600 



**** 

* * 

* F2 ♦ 

* * 
**** 



**** 

* * 

* 03 * 

* * 
*♦** 



***«*G3********** 

* * 

* STORE HIGH * 

* TRACK NO * 

* FOR OUTPUT * 

* * 

itc*4c«************:4c 

**** 



* H3 *.X 



**** 
FETKNOl X 

*****H3********** 
*TEST FOR START * 

* TRK. AND TRK. * 

* NO. BOTH * 
♦PRESENT OR BOTH^ 

* NOT PRESENT ♦ 

****:((* 4c********** 



***** 
*QS * 
♦ C2^ 



Kl ♦. 
.* *. 

K FILE 

TYPE=IND. 
*.SE0. EXP.. 



NO ***** 

*QJ * 

FETYPEI * H4* 



*♦*♦ 

* * 

* B2 * 

* * 
**** 



START 

TRK GT 

19600 



*****K2 ********** 

* PUT START * 

* TRACK IN * 

* OUTPUT * 

* BLOCK * 

* * 
***************** 



**** 

* * 

* B3 * 

* * 
**** 



**** 

* * 

* H4 * 

* * 
***♦ 



X ♦. 

**«#* * 

*QS ♦ 

* C2* NLSERR 



.* 
*. .* 
* NO 



««4c**G4******^^^^ 

* STORE SPLIT ♦ 

* CYLINDER STRT. * 

* TRK, NO. FOR * 

* OUTPUT * 

* ♦ 
4(««*4c************ 

* **** 
. * * 

..X+ E5 ♦ 
* * 

**** 



*«**H4********* 

* BRANCH TO * 

* NVSERR IN * 

* SJOBCTLA * 

**i(c*«](c ;((*««:*«««* 



*«**«J44:********* 

* * 

* CLEAR EXTENT * 

* LIMITS FOR *X 

* THIS EXTENT * 

* * 
«*«*«***«******:«t* 



#««*:(cp54c:(e4c4<4<***** 

*SCANR3 GK* 

*_♦-*_*_*_*_*_*_* 

* GET * 

* B= PARAMETER * 

* * 

*4c*************** 



EQUAL 

SIGN END 
. SCAN 



«:«***H5 ********** 
♦FEBINl OB^ 

♦ PROCESS ♦ 

♦ B BINS ♦ 

♦ OPERAND ♦ 



FESPLIT4 X 

FESPLTT3 .*. 

J5 *. 
.♦EXTENT *. 
YES .* LIMITS * 
....*. OMTTTED 1ST 
♦ . EXTENT .* 



***** 
*QH ♦ 
♦ G2^ 



**♦* 

* * 

♦ B4 * 
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* ♦ 

* FESEO * 

* * 

#4i «* * 4 « ifr « « 4c « 4c 4e 4i 



FESEQ 

♦♦♦♦♦62 ♦♦♦♦♦♦♦♦♦♦ 
*FSCAN OB* 

♦_♦-♦_♦_♦_♦_♦_♦_♦ 

* GET EXTENT * 
» SEQUENCE * 

* OPERAND ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦A3 ♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ FETKTK ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



FETKTK 

♦♦♦♦♦B3********** 
*FSCAN QB* 

♦_♦_♦_♦_♦_♦_♦_♦_« 

* GET RELATIVE * 
♦START TRACK OR * 
*TRK NO. OPERAND* 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



NO .* 


OPERAND 


♦ 




• •.*« 


OMITTED 




♦ 


, ♦ 




♦ 






♦ . .* 






X 


♦ . .♦ 






♦♦♦♦♦ 
*QM * 
* D2* 


* YES 














♦ ♦ 










♦ 










XT0P12A 










♦♦♦♦♦02********** 


♦FETKTK 


QL* 


♦-♦- 




-♦ 


-♦ 




TCCT POP 




4c 


♦ 


OPERAND 




♦ 


*OMISSION VALID 


♦ 


♦♦♦ 


!■***♦ 


»:♦♦♦♦♦♦♦♦ 



♦♦♦♦♦P2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ INCREMENT * 

♦ PREVIOUS * 

♦ EXTENT SEQ * 

♦ NO. BY I * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦**♦ 
♦QM * 
♦ F2* 

♦ ♦ 



.♦. 




FETKTKl .♦. 






03 *. 




D4 ♦. 




.* *. 




.* *. 




.* OPERAND *. YES 


.* OPERAND *. NO 




*^ I pwGTH GT^ .♦. 




*, OMTTTEO ON .*.,.. 




». 5 .* 






Fl^S"^ eXTENI* 




♦ . .* 






*. .* 




*. .* 






*, ,* X 




♦ NO 






♦ YES ♦**♦* 

♦ OS * 

* C2* 
* * 

'. NLSERP 




X 










♦♦♦♦♦E3 ♦****♦♦*♦♦ 






♦ ♦♦♦♦£/!.♦♦♦♦♦♦♦♦♦♦ 




♦ NUMCON QR* 






♦ * 


♦♦♦*E5 ♦♦♦♦♦♦♦♦♦ 


♦_♦_♦_♦ _♦ _♦ _♦_♦ _♦ 






♦ LOAD ADDR. * 


* i 


* CONVERT * 






* LINKR3 INTO * 


* FETKTK2 =* 


* OPERAND TO * 






♦ LINKRl ♦ 


♦ ^ 


* BINARY * 






♦ * 


♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 






♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦« 

Ix... 


] 


X 






X 




.*. 




!! FETKTK2 .*. 




F3 *. 






F4 *. 




.* *. 






.* *. 




.* OPERAND *. NO 




.* FILE *. YES 




*. POSITIVE .♦ 


.X 




♦, TYPE EQUAL .*........ 






*. VALUE .♦ 


*.IND. SEQ .* 






*. .* 






*, ,♦ 






*. .* 


X 


*. .* 






* YES 


♦♦♦♦ 

♦ ♦ 

♦ G5 ♦ 

♦ ♦ 
♦♦♦♦ 


* NO 


♦♦♦♦ 

* ♦ 

* G5 *. X 

* ♦ 




X 
^!tiitnnf*G3** ******** 






♦♦♦* 








X 


♦ ♦ 




♦♦♦*G4********* 


♦♦♦♦G5 **«♦♦*♦*♦ 


* ADD START * 




* RETURN TO * 


* BRANCH TO 


* TRK VALUE TO * 




* LINK REG * 


* NVSERP IN 


* OPERAND. * 




♦ ♦H'f * 


* $JOBCTLA 


♦ ♦ 




♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


*H4 








IF 


THIS RETURN WAS 






VIA FETKTKl, RETURN IS 






TO 


THE ROUTINE THAT 




X 


CALLED FETKTK. 




*:^:^:fy\3********* 








* RETURN TO * 


IF 


ENTRY IS AT FETKTK2, 




* LINK REG * 




RETURN IS TO FESEQ ROUTINE. 







♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
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♦ * 

* OOP 34 * 



OOP 34 

♦SCANR2 GK* 

♦-♦-♦-♦-♦-♦-♦-♦-JO, 

♦ POINT TO 3R0 * 

♦ OPERAND ♦ 

♦ -CR DATE- * 



♦♦♦*A2 ♦**♦****♦ 

* ♦ 

* XT0P12 * 

* * 



XT0P12 

:tt«!(>i|c4cB2**'C******* 

*SCANR2 GK* 

♦_♦_*-♦-.♦-*-♦_*_* 

♦ POINT TO * 

♦ OPERAND * 

♦ TYPE/SEO NO. * 



CI *. 




C2 ♦. 


.♦ DID ♦. 


.* DID ♦. 


.♦ A COMMA ♦ 


NO NO .* A COMMA * 


.END THE SCAN 


♦....X....*.END THE SCAN 


♦ . .* 




*. .* 


♦ . .♦ 




*. .* 


♦ . .* 




♦. .♦ 


* YES 




* YES 

*♦*♦ 
*QL * 

* C2 *.X. 

* * . 


X 




♦*** X 


.*. 




XT0P12A .♦. 


Dl ♦. 




02 *. 


.♦ VALID ♦. 




.♦ *, 


.* LENGTH * 


NO . 


NO .♦ VALID * 


. -5 CHARS- 


*..X, 


X....*. LENGTH 


*. .* 




*.I-3 CHAR .* 


*. ,♦ 




♦ . .* 



♦NUMCON QR* 

* CONVERT YEAR ♦ 

* TO BINARY * 

* * 



♦ STORE BINARY * 
♦YEAR IN DACRYR * 

♦ FROM WRKRGl * 

♦ ♦K2 * 

♦ * 



*4r*««GI*4<******** 
♦NUMCON QR* 
♦_♦_*_♦-*_♦_♦_♦_♦ 

♦ CONVERT DAY * 

♦ TO BINARY ♦ 

♦ * 

*«4c*4>4i«4c4>«*4t*«*** 



HI *. 

.* IS ♦. 

* BINARY * 

DAY 366 OR 

*. LESS .♦ 

*. ,* 

*. .♦ 

* YES 



4i4(^«A34c« ******* 

♦ ♦ 

♦ XT0P34 * 

♦ *J2 * 
«*>K«***4!4c**««*9(c 



XT0P34 X 

♦SCANR3 GK* 

*_*_♦_*_♦_*_♦_*-♦ 
*PT. TO OPERAND * 
♦LOWER AND UPPER* 
* EXTENT * 



C3 *. 
.* DID *. 
.♦ A COMMA * 
.END THE SCAN 



**** 

* * 

* G5 * 

* * 



****A4********* 

* ♦ 

* CONCAT * 

* * 
4t«***«**4(3«i(t*j|c«* 



* SAVE 1ST CARD * 
*IMAGE IN BUFFRl* 

* FROM BUFFER * 

* ♦ 
4c***4(*«««A***«*4<« 



*««4c*C4********** 
*RDSTMT GL* 
*_♦_*_♦_*_*_♦_♦_* 

* READ CONTINU- * 
*ATION STATEMENT* 

* INTO BUFFER * 



****«Q4**«4:****«* 

* MOVE OPERAND * 

* FIELD FROM * 

* BUFFER TO * 

* BUFFR2 * 

* * 

**«:4:*«**4:4(**4:3tt4e** 



*«*4i*E 2 ********** 

♦NUMCON QR* 

♦-♦-♦-♦--♦-.♦-♦-♦-# 

* CONVERT TO * 

* BINARY IN ♦ 

* WRKRGl * 
*«****4<«4>«:*4<4t*4i*)(< 



«3K*4c4>E3*4c«4e*«4titi4eitc 

♦NUMCON QR* 
♦_♦_♦_♦_•♦_♦-♦-*_* 

* CONVERT TO * 

* BINARY IN * 

* WRKRGl * 
«4<it(4c****«4c**««*** 



**** 

* * 

* B5 * 

* ♦ 
*♦** 



**«**g5 «**«****** 
*RESTO''E BUFFER * 

* FOR ERROR * 

* LOGGING * 

* ONLY * 
« ♦ 

i. #♦****♦***♦♦**** 



*]»:4c««C5 ********** 

* UPDATE REGS * 
+P0INT1, P0INT2 * 

* FOR SCANNING * 

* BUFFRl AND * 

* BUFFR2 *E5 * 

*****)(c««*««***4i4c« 



* RETURN TO * 

* CALLING * 

* SEO * 

)|t**4; Jliitc********* 



*E5 
THE COMPLETE RECORD, 
STMNTl AND STMNT2 IS 
PROCESSED IN BUFFRl 
AND 8UFFR2. 



***♦ I 










♦QL ♦ 










♦ F2 *.X. 










♦ * . 










**** X 








X 


XT0P12B .*. 








.*. 


F2 *. 








F3 *. 


.* *. 








.* *. 


.* B NARY * 


, YES YES 


* IS *. 


♦. VALUE GT 


.♦■ 


...X... 


.*, 


EXTENT .* 


♦. OOFF .♦ 








*. ZERO .* 


♦ . .* 








*, ,* 


*. .* 




X 




*. .* 


* NO 




***** 

*QS * 
* C2* 




♦ NO 






♦ ♦ 
* 

NLSERR 






X 








X 


«****G2 **4>**4<**4c« 




4i****G3 *«*****« *# 


* STORE BINARY 


* 




♦ 


SAVE Bl IN * 


* VALUE IN 


* 




* 


SVXTB BUILD * 


♦ EXTENT SEQ 


* 




*EXTENT INFO IN * 


♦ -XTSEQN- 


* 




* 


LABEL AREA * 


♦ ♦KS 


* 




* 


FROM WRKRGl * 


*4<*******««*4<«*** 




IK**************** 



«4r**«|:4********** 

♦LOGOUT GJ* 

*_*_*_♦_*_*_♦_*_# 

* LOG STATEMENT * 

* ON SYSLOG * 

* * 

*«**!(<************ 



G4 *. 




X 


* ♦ 




****G5 ********* 


ON SYSLST 


*. NO 


* BRANCH TO 


.*«.«• 


* NVSERR IN 




* 


* SJOBCTLA 


*. ,* 




*************** 


*. .* 


X 




* YES 


**** 





****H2 ********* 

* RETURN TO ♦ 

* CALLING * 

* SEQUENCE ♦ 
*************** 



****H3********* 

* RETURN TO * 

* CALLING * 

* SEQUENCE * 
*************** 



**** 

♦ * 

♦ G5 * 

♦ * 
***♦ 



***«*j X********** 

♦ STORE BINARY * 

♦ DAY IN DACRDY ♦ 

♦ FROM WRKRGl ♦ 

♦ ♦K2 ♦ 

♦ ♦ 
***************** 



****K1 ********* 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ SEQUENCE ♦ 
*************** 



♦ J2 

1. THIS ROUTINE IS USED TO PROCESS THE LOWER AND 
UPPER LIMIT OF XTENT STATEMENT. 

2. THE VALUE OF Bl IS SAVED IN SVXTB FOR THE 
CALLING SEQUENCE. 

3. ClCl, C2C2C2,H1,H2H2 ARE STORED IN THE LOWER 
AND UPPER LIMIT FIELDS OF THE LABEL AREA. 

4. C2C2C2 IS CHECKED AGAINST THE MAX. CYLINDER NO. 
OF 199. 



♦ K2 
THE REGISTER P0INT4 POINTS TO THE CREATION DATA FIELD 
IN THE LABEL AREA WHEN PROCESSING THE CREATION DATE. 
IT POINTS TO THE EXPIRATION DATE FIELD IN THE LABEL 
AREA WHEN PROCESSING THE EXPIRATION DATE. THE CALLING 
SEQUENCE UPDATES AND RESTORES P0INT4. 



****4:H4********** 

*LSTOUT GJ* 

♦_*_*_♦_*_*_♦_♦_* 

* LOG STATEMTNT * 



**** 

* * 

* B5 * 

* * 
**** 



*K5 
WHEN RETURN TS MADE TO 
THE CALLING SEQUENCE 
DESIRED BINARY VALUE 
IS IN WRKRGl AND IN 
THE EXTENT SEO 
NUMBER FIELD XTSEQN. 
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Chart CN« $JOBCTLK - Label Frccessing Subroutines (Fart 2 of 3) 
Refer to Charts 17 and 18. 



♦ * 

* A5 * 
*♦♦♦ 



♦♦♦♦Al********* 

♦ * 

♦ LBLOUTF * 

♦ * 



.* MOPE *, 

. REQUIRED 
*STATEMENTS.* 



♦ SET BLOCK ♦ 

♦ NOT PRESENT * 

♦ INDICATION * 



♦ PLACE ADDRESS * 

♦ OF LABEL SAVE * 

♦ AREA IN * 

♦ LBLPTR * 



* * 

* SET FLAG IN * 
♦LAST SD EXTENT ♦ 

* BLOCK AND SET ♦ 

* FLAG FOR SD * 



IS 
LABEL BLK 
. PRESENT . 



* * 
SET BLOCK 

NOT PRESENT 
FLAG 

* * 



* LOAD START * 

* AND END * 

* TRK. NO. WITH * 

* STDLABEL IN * 

* WRKRGl * 



* RETURN TO ♦ 

* CALLING SEO * 

* * 



.* IS 

THIS 
♦.STANDARD . 
*. LABEL.* 



* CALCULATE * 

* DISPLACEMENT * 
♦INTO TRK ALLOC ♦ 
♦TABLE FOR THIS ♦ 
♦LBL + PARTITION* 



4i:»*#4!C3***^^^*^** 

* * 

* LOAD START * 

* AND END TRK. ♦ 

* NO. INTO * 

* WRKRGl * 



LBLOUTOB 

4c«4c««:D3 *♦♦*♦♦**♦♦ 

* PUT END TRK * 

* NO. INTO ♦ 

* WRKRG4 ♦ 

* FROM * 

* WRKRGl * 



* * 

* SHTFT \4nHfin-i * 

* SO IT WILL * 

* CONTAIN ONLY * 

* START TRK NO. ♦ 
^^^(^♦♦♦♦♦♦♦♦♦itt^** 



* PUT START * 

* TRK. IN * 

* COMPARE INST * 

* FOR EOF LOOP * 

* CONTROL * 
^^^^^'♦♦♦♦♦♦♦^♦♦«« 



4c«#*«G3********** 

♦ * 

♦ DECREMENT * 

♦ START TRK * 

♦ NO. * 

♦ * 



NO .* IS 

.**. THIS A 

♦.NEW AREA 



♦ ♦ 

♦ SET THE * 

♦ WRITE DISK ♦ 

♦ HEAD NO. TO * 

♦ START TR-1 * 
^((^(♦♦♦♦♦♦« ♦«♦«#♦♦« 



4i«#«*&5 ♦♦*♦♦♦♦♦♦♦ 

♦ * 

♦ LOAD DATA * 

♦ LENGTH INTO * 

♦ WRKRG3 AND ♦ 
♦ADD KEY LENGTH * 



♦ ♦ 

♦ STORE LENGTHS * 

♦ INTO WRITE ♦ 

♦ CHECK CCW'S ♦ 

♦ ♦ 



«**«3^C5 ♦♦♦*♦♦♦♦♦♦ 

* COMPUTE * 

* SPACE NEEDED * 

* ON TRACK ♦ 

* FOR DATA * 

* ♦GS ♦ 



*4t:(c4<^D5 ♦♦♦♦**♦♦♦♦ 

* ♦ 

* GET REMAINING ♦ 

* TRK, * 

* CAPACITY * 

* ♦ 
^•(^^^[♦♦♦♦♦^♦♦♦♦♦** 



»e««*:tcE5 ♦♦♦♦♦♦♦*♦* 

♦LBLOUTl 0P+ 

* CALCULATE THE ♦ 

* NEW REMAINING ♦ 

* TRK. CAPACITY ♦ 



*♦*** 

♦ OP ♦ 

* Al* 



^(^'♦♦♦K 1*#*****+** 




REPLACE END 


* 




TRK. NO. WITH 


♦ 




UPPER HEAD 


* 




NO. IN 


341 




WRKRGl 


« 


^{^♦♦♦♦♦♦♦♦♦♦♦♦♦♦* 




X 






♦♦*♦ 






♦ ♦ 






♦ A3 ♦ 






♦ * 






♦♦♦* 





♦G5 

D + K X 537 

2311: + 81 

512 

D + K X 2137 

2314: + 146 

2048 

D ♦ K X 512 

3330! 4- 193 

512 

(D=OATA LENGTH, K=KEY LENGTHI ♦ 
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Chart QP. $JOECTLK - Label Processing Subroutines (Part 3 of 3) 
Eefer to Charts 17 and 18. 



♦♦♦♦♦ 

*QN ♦ 
* E5* 



.♦ ENOUGH ♦. YES 


*. ROOM ON .* 




*. TRACK .* 




*, .* 




*. .* 


X 


* NO 


♦*** 


***♦ 


♦ 


* * . 


♦ D3 


* Bl *.X. 


* 


* * . 


♦♦*♦ 


*♦** 




X 




♦ * 

* LOAD ♦ 






♦ CURRENT * 




♦ TRK. NO. IN * 




♦ WRKRGl * 




««4c4c*«4t«*«««#«4<«!|< 





**♦* 






♦*** 


* * 






* * 


♦ A3 * 






* A4 ♦ 


* * 






4: 4: 


**** 






♦ ♦♦* 


X 






X 


«**««/y3«««*4c««4c«# 


41 «4c * 4c A 4«* ** >('4< <<*'^ "«< 


♦ RESET REC 




♦ 




* NO. TO 




♦ 


LOAD LINK * 


* AND WRKRGl 




♦ 


REG FOR * 


♦ NO. BYTES PER 




<( 


lOROUT * 


* TRACK 




♦ 


RETURN * 


4<:(<*«3tt4c«i4c«««=(e4c*«** 


4c 4I«««4C«*«4<*«!C< >)<♦** 



* CALCULATE ♦ 

* NEW REMAINING * 
♦TRACK CAPACITY * 

* *E1 * 



4c«4c*4<B4^**^****** 

* * 

* SET HEAD ♦ 

* NUMBER * 

* FOR EOF * 

* WPITE * 



YES .* LAST *. 

...♦.TRK. OF AREA .♦ 
♦ . EXHAUSTED. ♦ 



♦♦♦♦* 


♦ NO 




*QS ♦ 






♦ C3* 








♦ ♦ 








* 








LAX ERR 


X 




4c«4<#«Dl^^^^*^«^^^ 






* 




INCREMENT 


♦ 




TO NEXT TRK 


* 




AND STORE IN 


* 




WHHADD 


♦ 


^(^^^^[♦♦♦♦♦♦♦♦♦♦♦4< 




X 






*i 


l«** 





X 






X 






.♦. 




LBL0UT20 .♦. 






C3 ♦. 






CA ♦. 


#*«*«C 5 ♦♦♦♦♦♦♦♦♦♦ 


.♦ ♦ . 






.♦ ♦. 


♦lOROUT NN^ 


.* ENOUGH ♦. NO 




.♦ FIRST *, NO 


*_♦_♦_*-*-«-*-*-* 


♦. ROOM ON .♦ 






*. TRK OF THIS .* 


...X* TSSUE ♦ 


*. TRACK .* 






*. AREA .* 


* I/O ♦ 


♦ . .♦ 






*. .♦ 


♦ ♦HI ♦ 


*, ,* 


X 




*, .* 


itn^*:^*t*********** 


♦ YES 


*t** 


♦ YES 




♦*** 


* 


« 






♦ * , 


♦ 81 


* 






♦ D3 ♦.X. 


* 


♦ 






♦ * 


**♦* 






*♦** 










X 






X 




4t 4c4[ 4>4c Q3 4c4t ** *«* 4c « # 






4c«i(<*«D4*^^«^^^**« 




* « 






* RESTORE * 




♦ INITIALIZE ♦ 






* DATA * 




♦ SEEK TRACK ♦ 






* LENGTH ♦ 




♦ AND RECORD ♦ 






♦ FROM * 




♦ NUMBER ♦ 






* WRKRGl * 




^^^^'itc*^^^^^*^^**^ 






*4'*********i^***** 







♦ A3 ♦ 

♦ * 
♦ El ♦♦♦♦ 

SUBTRACT CURRENT BYTE 
COUNT FROM REMAINING 
TRACK CAPACITY 
ORIGINALLY SET AT 3625 
(2311), 7294 (2314), 
OR 13030 (3330). 



♦♦4<««E3 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ UPDATE WRITE * 

♦ RECORD ♦ 

♦ NUMBER AREA ♦ 

♦ * 



♦^♦♦♦F3^^^««^^«^^ 

♦ MTNCNT GU ♦ 

*_*-.*_*-♦-♦-♦_*_♦ 

♦ RELEASE ♦ 

♦ CONTROL ♦ 

♦ * 
*«♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦****G3^++^*^+^*^ 

♦ * 

♦ LOAD ADDRESS ♦ 

♦ OF THE ♦ 

♦ SYSRES CCB ♦ 

♦ INTO REG 1 ♦ 



.♦ START 
OF 
♦.NEW AREA 



♦ ♦ 

♦ LOAD DATA * 

♦ LENGTH INTO ♦ 

♦ WRKRGl FOR * 

♦ SAVING * 
^♦♦♦♦♦^♦♦♦♦♦♦♦♦♦4c 



♦♦«♦♦ K3 *♦♦♦*♦♦♦ ♦♦ 

♦ ♦ 

♦ SET DATA * 

♦ AND * 

♦ KEY LENGTH ♦ 

♦ TO ZERO ♦ 
*«**♦««*♦♦♦♦♦*♦*♦ 



♦ ♦♦itc^e**^^**^** 



4:4i4c*4tF^«^^^^^**^« 

♦ lOROUT N(* 

♦_*-♦-*-*-*-♦-*-♦ 

♦ « 

♦ ISSUE i/n * 

♦ * 



.* LAST *. 
.* TRACK OF *. NO 
LABEL .♦... 

♦.CYLINDER .* 



*****H4********** 

♦ * 

♦ UPDATE ♦ 

♦ RECORD ♦ 

♦ NUMBER * 

♦ ♦ 
^^(♦♦♦♦♦♦♦♦♦♦♦♦♦♦« 



♦ lOROUT NN^ 

♦ WP I TE ♦ 

♦ EOF ♦ 

♦ RECORD * 
««♦♦*♦♦♦♦♦«♦*♦♦♦♦ 



♦ * 

♦ RESTORE ♦ 

♦ RECORD ♦. 

♦ NUMBER ♦ 

♦ ♦ 

♦ ♦♦♦♦*4c««4[4c*«**4c4c 



4c4<4c ♦♦05 ♦♦♦♦♦♦♦♦♦♦ 
♦MTNCNT GU ♦ 

• *_♦_*-*-*-*-♦-* 
SEIZE ♦ 

SYSTEM ♦ 

* * 
«♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦ 



.X^ 



♦♦♦♦H5 ♦♦♦♦♦♦♦♦♦ 

* RETURN TO ♦ 

* CALLTNG ♦ 

* SEO ♦ 

itc«4c4!4c4c«««*4:«4i^^ 



♦♦*♦ 

♦ ♦ 

♦ A4 ♦ 

♦ ♦ 
**♦* 
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Chart QQ. $JOBCTLK - RSTRl Statement Prccesscr 
Refer to Chart 18, 



♦♦♦♦Al********* 
♦ RSTRT ♦ 



* INITIALIZE * 

* ERROR LINKAGE ♦ 

* REGISTER ♦ 
« * 



♦ SCANR2 6K * 

♦ POINT TO * 

♦ FIRST OPERAND * 

♦ -SYSXXX- ♦ 



Dl *• 
.* *. 

.♦DID A COMMA*. NO 
♦.END THE SCAN .♦. .. 



•*««*£ 1 ^^^'♦♦♦♦♦♦^ 

♦CNUNCO PT+ 

♦CONVERT SYSXXX ♦ 

♦ TO SYMBOLIC ♦ 

♦ UNIT ADDRESS ♦ 



X 
#♦. 

Fl ♦. 
.♦ ♦* 
.♦ SYSXXX ♦. NO 
♦.A PROGRAMMER .*... 
UNIT .♦ 



♦♦♦♦ 

♦ ♦ 

♦ A2 ♦ 

♦ * 
♦«♦♦ 

X 
^(^(♦♦♦A2 ♦♦♦♦♦♦♦♦♦* 

♦ ♦ 

♦ BLANK PHASE ♦ 

♦ NAME ID CHAR ♦ 

♦ -PHSNAM+T- ♦ 

♦ » 
^(^^^^♦♦♦♦♦♦♦♦♦♦♦« 



♦SCANR3 GK+ 

♦ POINT TO * 
♦FIRST PARAMETERS 

♦ -NNNN- ♦ 



*«)|i4i4i A 44>*««*4i4i«4<i|e 



♦^^^^♦♦♦^♦♦♦♦♦♦♦* 



♦THE CODING FOR THIS ROUTINE 
ACTUALLY APPEARS IN THE 
$JOBCTLK PHASE. THE CHART 
REFERENCED IN A DIFFERENT 
PHASE REPRESENTED LOGIC 
IDENTICAL TO THAT FOUND 
IN THE SJOBCTLK PHASE. 





, 


» DID ♦. 


NO 


.♦ 


A BLANK ♦* 


..< 


»m 


COMMA END . 




♦. 


SCAN .♦ 

'■*. .r* 

♦ YES 



♦ B4 ♦.X 



«♦*♦ 
LOADRS X 

♦ INIT REGISTER ♦ 

♦ P0INT4 AS ♦ 

♦ POINTER TO ♦ 
♦LABEL SAVE AREA^ 

♦ ♦ 



C4 ♦. 

.♦ HAVE ♦. 

.LABEL STATE-^. 

•«. MENTS BEEN . 

♦.PROCESSED.^ 



♦ . 



02 ♦. 
.♦ VALID ♦. 
X NO .♦LENGTH 1-4 ♦ 
..X.^. CHARACTERS 

♦. .♦ 



♦NUMCON QR^ 

♦VALIDITY CHECK. * 
♦AND CONVERT TO ♦ 
♦BINARY *m* 



♦SAVE CHECKPOINTS 

♦ NUMBER, RIGHT ♦ 

♦ ADJUSTED* IN ♦ 

♦ CHKPTN ♦ 



♦ E3 
THIS SUBROUtlNE IS USED 
TO VERIFY THAT EACH 
CHARACTER IS OF THE 

RAwei o-f. 'iHt KfeS^ui 

OF THE 6IN~^ 

SION IS " 



fHE fit NARY CdNVER- 
• -- IGNORED* 



♦ . 



D4 ♦. 
.♦ IS ♦. 
.♦CHECKPOINT ♦. NO 
. UNIT A SEQ. .♦.., 
♦. DISK .♦ 
♦ . .♦ 
♦ , .♦ 
♦ YES 



♦ SET BIT 1 ON ♦ 

♦ IN MTRSVD AND ♦ 

♦ INDICATE LAST ♦ 
♦SEQ DISK ENTRY ♦ 



♦OS ♦ 
♦ CI* 



X 

♦♦*3|>* 

♦QS ♦ 
♦ C4^ 



*«^««*««4t4»|i«*4t««4E 



«*4t*^G !♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ COMPUTE LUB ♦ 

♦ POINTER IN ♦ 

♦ WRKRG3 ♦ 

♦ ♦ 



^^^♦♦♦Hl^^^s^^^^^^ 
♦CHKASG 6U ♦ 

♦-«-*♦-♦-♦-**♦_*-*♦ 

♦ CHECK THE ♦ 
♦ASSIGNMENT FOR ♦ 

♦ THIS UNIT ♦ 



.♦ UNIT ♦. 
. ASSIGNED 
♦ . .♦ 



♦ * 

♦ SAVE PUB ♦ 

♦ POINTER IN * 

♦ PUBADDR FROM * 

♦ WRKRG4 * 





G2 ♦. 






,♦ DID ♦. 




♦ 


A BLANK ♦. 


YES 


END THE LAST . 


♦ .... 


Hi 


SCAN .♦ 






♦ . .♦ 






*, ,♦ 


X 




♦ NO 


♦♦♦♦ 
« 

♦ ♦♦♦ 



♦SCANR3 GK^ 

♦POINT TO SECOND^ 

♦ PARAMETER ♦ 

♦ -FILENAME- ♦ 
*«♦♦♦♦♦♦♦♦♦♦♦♦♦♦* 



• ♦. 
J2 ♦. 
.♦ DID ♦. 
.♦ A BLANK ♦. NO 
.END THE SCAN .♦... 



K2 ♦. 
.♦ VALID ♦. 
.♦ LENGTH *, NO 
♦1-8 CHARACTERS. ♦*.) 



♦♦♦♦ 

♦ ♦ 

♦ K3 ♦.X 

♦ ♦ 
♦♦♦♦ 



♦ BRANCH TO ♦ 

♦ NVSERR IN ♦ 

♦ SJOBCTLA ♦ 



LOADRSl X 

«4t*4>^F4^^^^^^^S^^ 
♦LBLOUT QN^ 

♦OUTPUT LABEL TD^ 

♦ VOL AREA OF ♦ 

♦ SYSRES , ♦ 



♦PROHIBIT WRITE ♦ 

♦ OPERATION ON ♦ 

♦ SYSRES. PIB ♦ 

♦ ASSIGN FLAGf ♦ 

♦ BIT 8 OFF ♦ 
««*«**««♦♦««♦*♦*« 



9«c*ii(*«H4S^^^^s^^s« 
♦MTNCNT GU ♦ 

♦ RELEAsi ♦ 

♦ THE SYSTEM ♦ 

♦ * 



♦ ♦♦♦♦J4«*^«*^^^>|e4s 

♦ » 

♦ INITIALIZE ♦ 

♦ REGISTER ♦ 

♦ FOR LOAD ♦ 

♦ *J5 * 
^^(^^^■♦♦♦♦♦^♦♦♦♦4i« 



]K««4cK4^^^^^^^^S 

♦ SVC 4 LOAD ♦ 

♦ $JOBCTLB ♦ 

♦ ♦ 



THE ADDRESS CONTAIN- 
ING THE SYMBOLIC UNIT 
ADDRESS, UNIT AND 
CLASS. 



* ♦ 

♦ A2 ♦ 
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Chart QR. $JOBCTLK • l/.iscellanecus Subroutines 

Refer to Charts 17 and 18. 



* * 

* NUMCON * 

* ♦ 



♦♦♦♦A3********* 

* * 

* CHKRNGl * 

* * 



♦ SET * 

* RANGE ♦ 

♦ TOP TO 9 * 

* * 



♦CHKRNG QR* 

* CHECK RANGE * 

* OF CHARACTERS * 

* (0-9) ♦ 



4c4c3|c«*Dl********** 



:t:if ******:*(******** 



* ♦ 

* CONVERT * 

* NUMBER TO * 

* BINARY * 

* * 



* RETURN TO * 

* CALLING SEQ * 

* * 



* SET LIMIT * 

* FOR * 

* DECIMAL ♦ 

* CHECK * 

«;t<3ic««4<*««>(c>(:««4<««* 



* GET CHARACTER * 

* STRING ADDR * 

* AND NUMBER * 

* OF CHARACTERS * 



****B4********* 

* * 

* CHKRNG * 

* * 



CHKNXC 

.*' 



IS 

CHAR. LT 





IS *. YESX 

CHAR. GT .* 

MAX .* 



.* END 
.*. OF CHAR 
*. STRING 



* BRANCH TO * 

* NVSERR IN * 

* $JOBCTLA ♦ 



««:«>:KG3********« 

* RETURN TO * 

* CALLING * 

* SEO * 
4c«4(**« *«*«*»*«« 



2U0 DCS/VS IPI and Jot Control 



Chart QS. $JOECTLK - Error Sufcrcutines 
Refer to Charts 17 and 18. 



* QJJ5, QKGl 
00C4 




•*• Uiv. tin 

0KD4, OKEl 




***** REFERENCES 
? ♦ TO QSC3: 
*^ ** QGEl, OJDl 
*«* OP CI 




***** 
*Q0 * 
* Fl* 

* * 

* 






OKJl, 


QKK3 












OTSERR X 


NLSERR 


• QLD4, 


0MF2 


LAXERR 


X 




NLUERR 


X 


4>«***Q X**^^****** 


4i4c4c«*C2*4<******** 




♦♦♦♦♦C3 ♦**♦**♦♦♦* 




**♦* 


*C4********** 


* POINT TO ♦ 


* 






♦ 


POINT TO * 






POINT TO * 


♦ DESIRED * 


* 


TURN ON * 




* 


DESIRED * 






DESIRED ♦ 


* MESSAGE ♦ 


* 


AUTO CANCEL * 




♦ 


MESSAGE * 






MESSAGE * 


* ISIOD ♦ 


♦ 


SVtITCH * 




* 


ILIOD * 






1A40D * 


♦ *G1 * 


* 






* 


*G1 * 






*R1 * 


«4c*************** 


4c*#«**:f****«««4c«4< 




««*«4<*«4c:t(:(<«*««#4c4c 




♦ *** 


4c4!<c4e!(c4t******* 



«:tc*««Q2 ********** 

* POINT TO * 

* DESIRED * 

* MESSAGE * 

* ILOOD * 

* *G1 * 

«*ltE#*****ltC*««««l(C3^ 



*i(c:4'*E 2 **=**'(' =<"<"9:* 

* BRANCH TO * 

* ERPRTN IN * 

* SJOBCTLA * 
«****«***«*4>*** 



MESSAGE DESCRIPTION 

1A40D INVALID LOGICAL UNIT SPECIFICATION 

ILOOD INVALID LABEL SYNTAX 

ILIOD LABEL AREA EXHAUSTED 

ISIOD STATEMENT OUT OF SEQUENCE 



Charts 2^41 



Chart RA. $JOECTLM - Recorder File Initializaticn (Part 1 cf 2) 
Refer to Chart 19. 



♦♦**A I********* 

* * 

* $JOBCTLM * 

* ♦ 

*************** 



MAINOO X 

*****Bl********** 
♦INITOO RF * 

* INITIALIZE * 

* PHASE ♦ 

* ♦ 
***************** 



.♦ RIISR TO ♦. NO 
. BE BYPASSED .♦... 
*, ,♦ 



..X* Dl * 
* * 

***♦ 



MESSAGE DESCRIPTION 

1182A RECORDING COMPLETED 

1183A RECORDER FILE TOO SMALL 

1184A RECODER FILE OPEN FAILURE 

1186 A ERROR ON RECORDER FILE AT CCCCHHHHRR 

11931 RECORDER FILE XXX FJLL {RJN EREP ) 

1I95A HARD COPY FILE 

OPEN FAILURE 
1I9TI HARD COPY ON DISK 

NOT SUUPORTED DUE 

TO OPEN ERROR 



*B4 

TEST PFFLAGSl 

IN RETABLE WITH 

X 08 
**«**B3 ********** 
♦OPENFILE RH* 

*_*-*_♦_*_*_*-♦_* 

X* OPEN * 

* RECORDER * 

♦ FILE * 
***************** 



**♦* 

X 
^^^^fc^AS^c <<♦******* 
♦WRTFILOO RL* 

*_♦_*_♦_*_*-♦-*_* 

* FORMAT * 

* RECO'^DER * 

* FILE * 

«*3«e4c***«****4i***« 



.* SYSREC 


* 


. YES . 


* MSG * 


♦. ASSIGNED 




,* , 


* 1I84A *X 


*. 


* 




* *A3 * 


*. .* 






* * 


*. ,* 






***************** 


* NO 








**** , 






**** 




♦RB * . 






* * 




♦ J4 ♦.X. 






* 02 ♦.X 




* * 






♦ ♦ 




**** X 






**** 




MAINOlO .*. 










Dl *. 






X 


,* * 






****D2********* 


.* HARD COPY 


'* 


, NO 


* BRANCH TO ♦ 


..X*. NEEDED 




.*. ... 


* WAITERR IN * 


« *. 


* 




* tJGBCTLA * 


• ♦. .♦ 






*************** 


. ♦. .* 




X 




**** * YES 




***** 




* , 




♦RB * 




Dl * 




♦ A4* 




* . 




* NOTE. THE SUBROUTINE, 


»*** 




♦WAITERR, IS BRANCHED 






HOk 


BY A BAL INSTRUCTION 






<EVER, CONTROL NEVER 


El *. 




RETURN TO THE ROD 


.* * 




STATEMENT PROCESSOR 


.* SYSREC 


"* 


. NO 




♦. ASSIGNED 




.*.».. 







**** 

♦ * 

♦ J3 * 

♦ * 
**** 



***♦ 

♦ * 

♦ F2 * 

♦ * 
**** 



*****p: ]^*****«**** 

* * 

* GET ADDRESS * 

* OF * 

* CRT SAV ♦ 

* * 
***************** 



MAINOU X 

:tc****P2 ********** 

♦PREPOOO RP* 

♦_ ♦_♦_♦_*_*_*_*_* 

* INITIALIZE * 

* CRTSAV * 

* * 
#*****«*******«** 



Gl *. 




*****G2********** 


.CREATION*. 




♦PREPOIO RP* 


.* OF HARD ♦. NO 


#_*_♦.*_♦_*_*_*_♦ 


*. COPY .♦ 




♦PREPARE CHANNEL* 


*. FILE .* 




♦PROGRAM FOR FOR* 


♦ . .* 




♦MATTING CREATE * 


*, ,* 


X 


***************** 


* YES 


***** 
*RB * 
♦ Al* 
* * 

MAIN012 


• 


X 




X 


**«*«H1********** 




*)(c***H2 ********** 


♦OPNHCFLE RT* 




♦HCIORIO RR* 


*_*-*_*-♦_*_*--*-=.* 




*_*_*-'4_*_*_*_#_# 


* OPEN HARD COM * 




♦ CREATION OF * 


♦ FILE FOR * 




* HC FILE * 


* OUTPUT ♦ 




♦ * 


***************** 




«*****♦*««******* 



*****D3 ********** 
♦PREF037 RP* 

*_*_*_*_♦_*_♦_*_♦ 

*PREPARE CHANNEL* 
*PROGRAM FOR WRI* 
* IPL-MS6 * 

***««*****«***♦** 









.UNRECOVERABLE. YES 








*. I/O .*.... 








*. ERROR ,* 








*. .* 








*. .* X 








* NO **** 








* * 








* G4* 








* * 








♦ **♦ 


.*. 






X 


C4 ♦. 






**C<5 ******* 


.* RF * 






*SET SWITCH * 


.* EQUAL 


* 


, NO 


* IN RF TABLE * 


X*. CREATE 






* TO INDICATE * 


*. *B4 


* 




*FILE CEATED * 


*• .* 






* * 


*. .* 






, *********** 


* YES 






I,, ,. xl 


I 






MAIN05 X 


**«**04********** 


*****Q5********** 


♦PLDHORJO 


RH* 


*MAPCHNOO RG* 


*_*_#_*_♦_*_*- 


*- 


-* 


*_*_*_*_*_♦_*_*_* 


* SET UP 




* 


* BUILD ♦ 


* FILE HEADEF 




* 


* CHANNEL * 


* RECORD 




* 


* TO MAP * 


***************** 


***************** 



***************** 



**F3 ******* 



*********** 



****G3********* 

* RETURN TO * 

* CALLER * 

* * 
*************** 



*****E4********** 
♦WRTHDROO RH* 

*_*-*-*-*_*_*-*- * 

* WRITE * 

* HEADER ECORD * 

* * 
***************** 



*****F5 ********** 
♦VOL! 000 RN* 

*-*-*-*-*-*-*-*-* 

* READ SYSRES * 

* SERIAL FOR * 

* OUB2 TABLE * 
***************** 



_*-«-*_*_*-*-*-* 



♦.UNRECOVERABLE.*. 




* READ * 


*. I/O .* 




* HEADER * 


*. ERROR.* 




* RECORD * 


*. .* 


X 


***************** 


* YES 


**** 




**** 


* * 




* * 


* A5 * 




* G4 *.X. 


* * 




* * . 


**** 




**** 




X 


FIDERR X 




.*. 


*****GA********** 




G5 *. 


* SET UP * 




,* *. 


* MSG * 




.UNRECOVERABLE, YES 


* 1186A * 




*. I/O .*.... 


* *A3 * 




*. ERROR .* 


* * 




*. .* 


***************** 




*, ,* X 
* NO **** 

* * 

* G4* 


X 




* * 


**** 




**** 



**** 

* * 

* G4* 

* * 
**** 



Jl *. 

,* * 
.* OPEN 
*. SUCCESSFUL 


* 
.*' 


NO 
*..... 


J2 *. 

.*' PRINTER '*. NO 
...X*. ATTACHED .*... 


*****J3********** 

* SET UP * 
.....X* MSG * 




*. 

*. .* 
*. .* 
* YES 

X 

**** 

* * 


*. .* 
*. .* 
** .* 
* VES 


X * 1I95A *A3 * 
* * 
***************** 
**** 

* * 

* J3 * 

* * 
**** 


X 

**** 
* 

♦ D2 
* 

*♦** 


* F2 * 

* * 
**** 






X 

*****K2i********* 
*HCOPNMSG RT* 
*_*_«-.*_*_♦_*_*_* 

* ISSUE *... 


****K3********* 
* RETURN TO * 
.....X* CALLER * 






* MESSAGE * 

♦ 11 971 *A3 * 
***************** 


* * 
*************** 





*****J5 ********** 

* * 

* MOVF HEADER * 

* ADOR TO * 

* RF TABLE * 

* * 
♦*******♦*♦****♦* 



«*K5******* 

* TURN OFF * 

* TPL FLAG 

AND SET 

♦ RF FILE 

* "EAOY * 
*********** 



***** 
*RB * 
* A4* 



242 DCS/VS IPI and Job Cointrol 



Chart RB. $JOECTLM - Becorder File Initialization (Fart 2 of 2) 
Befer to Chart 19. 



♦RA ♦ 
♦ Gl* 



MAIN012 X 

*OPNHCFLE RT* 
♦_♦_♦_*_*_*_♦_*_* 

*OPEN HARD COPY ♦ 

* FILE FOR * 

* INPUT * 



Bl *. 
.* ♦ . 

* OPEN ♦ 
SUCCESSFUL 



CI *. 
.♦ *. 
.* PRINTER ♦. NO 
♦* ATTACHED .♦... 



♦ SET UP * 

* MSG ♦ 
X* ligSA * 



«#«*:«4[4>4>#***4t«*4<« 



*HCOPNMSS RT* 

*_*_*_♦_*_ *_#_:(t_:(, 

* ISSUE ♦ 

* MESSAGE ♦ 

* 1I97I *Fl ♦ 



* BRANCH TO * 

* WAITERR IN * 

* SJOBCTLA ♦ 



♦ Fl 

1I95A HARD COPY FILE OPEN FAILURE 

11.71 HARD COPY ON DISK NOT 

SUPPORTED UE TO OPEN ERROR 



♦G2 

THE B-TRANSIENT, 
$$8CCHHR, IS CALLED. 
OOS/VS LOGICAL TRANSIENTSf 
SY33-8553, FOR MORE 
INFORMATION ON $$BCCHHR. 



AIN0I3 

♦PREPOOO RP* 

.X* INITIALIZE * 

♦ CRTSAV * 

* » 



♦PREP020 RR* 
♦-♦-♦-*-♦-♦-♦-♦-* 
*PREPAR CHANNEL * 

* PROGR FOR * 

♦ READ * 



««4i**D3 ********** 
*HCIDR30 RR* 
«-»-*_*-♦-♦-*_♦_♦ 

* READ HC FILE * 
♦FOR INITIALIZE * 

* CRTSAV * 



4<i(e*«4<E3********** 

*PREP030 RR* 

*PREPARE CHANNEK* 

* PROGRAM FOR * 

* WRITE TPL MSG * 

4t:4c*«4(** ********** 



s!.-*-*-* _*_♦_♦_♦_♦ 



4i«4c«4c1(*3«<**#!tc««««# 



♦-♦_it_ie_*- 



*«««««4!*4c«4i««4c# if* 



««H3******* 



«4c***«***** 



♦ ♦ 

* 

.....xl 



TO RBA4: 
RADl, RAK5 



MAIN09 .*. 

AA *, 
.* *. 
.* ROE * 
*. SPECIFIED 



Ki*4c*4tB4********** 
*BLDIPLOO RJ* 

4i _*_♦_*_♦_*_♦_*_# 

* BUILD IPL * 

* RECORD * 

* * 



4c«***CA********** 
*SVC44R00 RM* 

* _♦_♦_♦_♦_ *_<6_«_* 

* WRITE * 

* IPL * 

* RECORD * 
4c4e#*«4e*«4i*****«4[* 



4c4(*:(c«E4********** 

*MTNCNT GU * 
*_*_♦_*_*-*_♦_*_* 

* SVC 22 * 

* RELEASE * 

* SYSTEM * 
«««4(*******«***«* 



* SVC 2 * 

* BUILD LOAD * 

♦LIST FOR RMSR* 

* *G2 * 

*j(i#4c*««**«* 



«#4c**G4********** 
♦MTNCNT GU * 
*_*_*_*_*_♦_♦_*_* 

* SVC 22 * 

* SEIZE * 

* SYSTEM * 

«]|E«:(c:)c«*«««4c*4c:4c««:^ 



MAINIO 

«4:«:(c«H4-********** 

* PERCNTOO * 
*RK-*-*-*-*-*-*-* 

* *-COMPUTE * 

* PERCENT OF * 

* FILE FULL * 
«<«*****«******«** 



HC FILE 
HANDL ING 
. NEEDED 



***** 
*RA * 
* Dl* 



****K4***«***** 

* BRANCH TO * 

* CONTROL IN * 

* $JOBCTLA * 
*************** 



Charts 2^3 



Chart RC. $JOECTLM - ROD Statement Prccesscr 
Refer to Chart 19. 



♦ ROD * 

* ♦ 



RODOO 

4lilf:«f*^QHitt*f ****** 

♦INITOO Rf* 

* INITIALIZE * 

* PHASE ♦ 

* * 



* BRANCH TO * 

* NVSERR IN * 

* SJOBCTLA * 



ilt*it,Hc:ttQ2********** 

* * 

* SET UP * 
X* SEEK * 

♦ ADDRESS * 

♦ * 

:^i:i)i:itiiic:f ************ 



i4,:t!^:^^i^2********** 

♦RDHDROO RL* 

:»:_«_ i|t_ «- 4c- *-«-*-« 

♦ READ HEADER * 

♦ RECORD ♦ 

♦ * 
***********itt***** 



• REFERENCES 

• TO RCF2: 
' RDF3, REC4 

• REJ2 



♦_♦_♦_*_♦_♦_♦_*_♦ 

* FIND NEXT * 

* PUB * 

* AND PUB2 * 
************i^**if* 



**** 

* * 

* A3 * 

X 

.*. 



**** 

* * 

* A4 ♦ 

* * 
**** 



R0D20 X 

4<4c)|c 4c 4< A 4** 4c4t « ♦♦4'4< « 
*PERCNTOO RK* 



:tl*1Ht*B3********** 

♦LOGREQOO RK* 
*-♦_*-♦-*-♦-♦-♦_♦ 

* ASK OPERATOR ♦ 

* IF EOD ♦ 

* * 
4i4c4c«4c4c«it(4c>tc4c*4c4c4c4c« 



X* COMPUTE « ♦ 

* OF * 

* FILE FULL * 

4c4c4c4c4c4c4c«4c4c4c 4t4(4c«*4c 



♦ ISSUE * 

* MESSAGE * 

♦ 1I82I * 

* * 
4t«4c*4c4c*4c4c4i4c4c«:4i4c4c4c 





♦ *, 




4c4'4c«Q44c*4<4c4c4c4c4c* 


.* 


* 


YES 


* BRANCH TO 




RESPONSE 


*.... 


* CONTROL IN 


'* 


NO .* 




* SJOBCTLA 




*. .* 




*m* ************ 




*. .♦ 


X 






♦ NO 


♦*♦* 

* * 

* A4 * 

* * 
**♦* 






















D3* *♦. 








* *, 






.* 


* 


. YES 






RESPONSE 


.*.... 




* 


YES .* 


. 





**** 

* * 

* H3 * 

* * 



* * 

* POINT TO * 

* MSG II92I * 

* ♦H4 * 

* ♦ 
4(4c4(4c4c*4c««««4i4c4c4t4c4c 



4c4c4c4c*F3********** 
♦LOGREQOO RK* 
*-♦ -*-* _*_♦_♦_* _* 

* ISSUE * 

* MESSAGE TO * 

* OPERATOR * 
*«*«♦*»«««*«««*«* 



NOTE: THE SUBROUTINE. 
OERRTN, IS BRANCHED 
TO BY A BAL INSTRUCTION. 
HOWEVER, CONTROL NEVER 
LINKS BACK TO THE ROD 
STATEMENT PROCESSOR. 



END 

OF PUB 

TABLE 



.*. 


R0D15 X 






H2 *. 




***«*H3**^*^*^*** 






.* *. 




* * 


*H4 




♦3330/3333/ 


*. YES 


* GET EOD * 


MESSAGE 


DESCRIPTION 


3340 


.*. . .. 


* RECORD * 


1 89A 


IPL REASON CODE 


*. 


♦ 


* INFORMATION * 


. 90A 


END OF DAY = 


*. . * 




♦ * 


91A 


SUB-SYSTEM ID = 


*. .* 


X 


****«4c*** ******** 


1 921 


INVALID CODE 


* NO 


***** 
♦RD * 
♦ A1 + 








X 


* * 








***** 


* 








♦RE * 


MOROO 








* Al* 




X 






* * 




*****j3********** 






♦ 




♦SVC44R00 RM^ 






BLDOBROO 




*-*-♦-*-*-*-*-♦_* 

♦ WRITE ♦ 

♦ EOD ♦ 

♦ RECORD * 
***************** 







2aa DOS/VS IPL and Job Control 



Chart RD« $J0BC1LM * MDR Beccrds fcr 3330/3333/33«»0 
Refer to Chart 19. 



***** 






**** 


♦ RC ♦ 






* * 


♦ H2* 






* A2 ♦ 


♦ * 






* • 


* 






♦♦*♦ 


X 






• 


.*. 






X 


Al ♦. 






*****fi,2********** 


♦ * 






* GET NUMBER OF ♦ 


VOL 


* 


, NO 


♦ SEEKS FROM * 


OPENED ON 




.♦. .4. 


* 3330/3333 * 


DEVICE 


* 




♦ BUFFER AND ♦ 


♦ . .* 






♦ PUB2 TABLE ♦ 


*. .* 




X 


*****il,*******iti*** 


* YES 




♦**♦ 

* * 

* F3 * 

* ♦ 
♦*♦♦ 





«*4i*«B l****iH***** 

♦ SET UP READ * 

* AREA WITH VOL * 
♦AND MODULE IDt * 

* AND CONTROL * 

♦ UNIT ADDR * 



****1tf.Ql********** 

♦STATOO RJ* 

♦_*_♦_♦_♦_♦_*_*_♦ 

» GET 3330/3333 ♦ 
♦STATISTICS FROM* 
♦ CONTROL UNIT ♦ 
***************** 



*****Ql********** 

♦ GET NUMBER OF * 
♦BYTES READ FROM* 
♦3330/3333/33A0 ♦ 

♦ BUFFER AND ♦ 

♦ PUB2 TABLE ♦ 
***************** 



*****f I********** 

♦MDR20 RL ♦ 

♦_♦_♦_♦_♦_ *_♦_ ♦- * 

♦ ACCUMULATE ♦ 

♦ BYTES READ ♦ 

♦ COUNTER * 
***************** 



*****Q I********** 

♦ GET NUMBER OF * 

♦ CORRECTABLE * 

♦ DATA CHECKS ♦ 
♦FROM 3330/3333 ♦ 
♦BUFFER AND PUB2+ 
***************** 



*****m********** 

♦MDR25 RL ♦ 

♦-♦-♦_*-♦_*-,♦-.♦-♦ 

♦ ACCUMULATE ♦ 

♦ DATA CKS ♦ 

♦ COUNTER ♦ 
***************** 



*****J I********** 

♦ GET NUMBER OF ♦ 

♦ RETRY DATA ♦ 

♦ CHECKS FROM ♦ 

♦ 3330/3333 ♦ 
♦BUFFER AND PUB2^ 
***************** 



*****i^l********** 

♦MDR25 RL ♦ 

*~*~.*^*~.*~*-*^*^* 

* ACCUMULATE * 

* RETRY DATA CK ♦ 

* COUNTER ♦ 

•^4^,.:$,************* 



*****f^2********** 
♦MDR25 RL ♦ 

*-*-,^*- *-*-*-*-*-* 

♦ ACCUMULATE ♦ 

♦ SEEK ^ ♦ 

♦ COUNTER ♦ 
***************** 



*****Q2********** 

♦ GET NO OF ^ ♦ 
♦RESERVED BYTES ♦ 

♦ FROM 3330 ♦ 

♦ BUFFER AND ♦ 

♦ PUB2 ♦ 
***************** 



*****Q2********** 

♦MDR30 RL ♦ 

♦ ACCUMULATE ♦ 

♦ RESERVED BYTE ♦ 

♦ COUNTER ♦ 
***************** 



4>4t«««E2 ♦♦♦♦♦♦♦♦♦♦ 
♦GET SEEK ERROR ♦ 

♦ tkfj¥\ •* 

♦ 3330/3333 ♦ 

♦ BUFFER AND ♦ 

♦ PUB? ♦ 
***************** 



*****f2********** 
♦MDR30 RL ♦ 

♦_ ♦_. ♦_ ♦-♦- ♦-♦-♦-# 

♦ ACCUMULATE ♦ 

♦ SEEK ♦ 

♦ ERRORS ♦ 
***************** 



*****Q2********** 

♦ GET OVERFLOW ♦ 

♦ FROM FIRST ♦ 

♦ COUNTER FROM ♦ 

♦ 3330/3333 ♦ 
♦BUFFER AND PUB2* 
***************** 



****iki^2 ********** 
♦MDR25 RL ♦ 

♦-♦^♦_ ♦_♦_*-.♦-»-.♦ 

♦ ACCUMULATE ♦ 



*****j2********** 

♦ GET OVERFLOW ♦ 

♦ FROM 2ND ♦ 

♦ COUNTER FROM ♦ 

♦ 3330/3333 ♦ 
♦BUFFER AND PUB2^ 
***************** 



«*4t 4c 4>K2 ♦♦♦♦♦♦♦♦♦♦ 
♦MDR25 RL ♦ 

*-♦-*_♦_♦_♦-.♦_♦-* 

♦ ACCUMULAtE ♦ 

♦ 2ND OVERFLOW ♦ 

♦ COUNTER ♦ 
***************** 



**** 

♦ ♦ 

♦ A3 ♦ 

♦ ♦ 
♦♦♦♦ 



♦ , ,♦ 

♦ . .♦ 
♦ YES 



♦ PUT PUB2 ♦ 

♦ COUNTERS ♦ 

♦ IN RECORD ♦ 

♦ ♦ 
***************** 



*****C-i********** 

♦SVC44R00 RM^ 

*^*^*^*-.*-.*^*^*^* 



***************** 



*****Q-S********** 

♦ * 

♦ PUT 3330/3333 ♦ 

♦ BUFFER ♦ 

♦ STATISTICS IN * 

♦ RECORD ♦ 
***************** 



*****E-i********** 

♦SVC44B00 . ^ RM+ 

j^ „^^^„^„^^,_,^_^ 

♦ RECORD ♦ 

♦ * 
***************** 



***************** 



♦♦♦♦ . 
MDR40 X 

*****fi^********** 

♦ * 

♦ CLEAR ♦ 

♦ COUNTERS ♦ 

♦ IN PUB2 ♦ 

♦ * 
***************** 



***** 

♦ RC ♦ 

♦ F2^ 



♦♦♦♦ 

♦ * 

♦ G4 ♦ 

♦ ♦ 
*»♦♦ 



.♦ ANY ♦. NO 
. STATISTICS .♦..< 

♦ . .♦ 



*****\^if*****^**** 



* BUILD RECORD 



***************** 



*_*-♦_♦-»_*_♦-.♦_♦ 



***************** 



****t(^if********* 

♦ RETURN TO ♦ 

♦ CALLER ♦ 

♦ * 
*************** 



**** 

♦ * 

♦ A2 ♦ 

♦ ♦ 
*♦♦♦ 
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Chart RE. $JOECTLM - Euild EOE Outboard Record 
Refer to Chart 19. 



***** 

*RC * 

* H2* 

* * 



A2 



* CLEAR * 

* RECORD * 

* AREA * 

* * 

««4c«:ic«*«j(c**«*:tc**« 



.* 



*. 



♦ . 



2400 TAPE 



IS 
..X*. VOLUME 

*. STILL . 
*.CPEN .* 
*, ,* 
* YES 



WAS 
VOLUME 
OPEf^jED 



.X* 



*****A4'I'*4'**4<4'**4< 
♦SNSOO PN* 

♦_♦_*_♦_*_♦_♦_♦_♦ 

GET * 

SENSE * 

* DATA * 

******4'**4c*4(***** 



* BUILD EDO * 

* OBR RCD * 

* FOR 24001 * 

* 3^00 TAPES * 

* * 



;(c*«4c*C4*4c:(t****>tc:(c* 

* SVC44P00 RM* 

* WRITE * 

* RECORD * 

* FOR TAPES * 
***4<************* 



* ♦ 

♦PUT DEVICE TYPE* 

* I/O ADOR. AND * 
*USAGE IN RECORD* 

* * 

* 4c «:4: 4c :<c « « :4c ijc 4c :g(:(c:(c 3tc :4c « 



**♦* 

* * 

* E2 * 

* * 
**** 



***** 
*PC * 
* F2* 



*4c***E2 ********** 



*. 2311 DISK 



.* ♦. YE 

*. 2321 DATA .*.. 
*. CELL .* 



*4i******«******** 



JLOOBRIO 

*4c***p2 ********** 

* SET UP 3211 * 
PRINTER SDR * 

AREA IN * 
OBR RECORD * 

* * 
4c4c**4c************ 



..X* 



**♦* 

* * 

* F3 * 

* * 
**** 



*4<***G2 ********** 

* * 

* CLEAR * 

* PUB2 SDR * 

* AREA * 

* * 

4c****«*********** 



BLD0BR20 

4c***4cH2 ********** 
*CODEO0 RP* 

4c_ 4c- *-*-*-*-*-♦-* 

* ADD OS * 

* DtVlCE * 

* COOES * 
4c**************** 



**** 

* * 

* F3 * 

* ♦ 
**** 



* MOVE SDR * 

* DATA TO * 

* OBR AREA * 

* * 

4e*********«****** 



**** 

* * 

* F4 * 

* * 
**** 



1287/1288 

OPTICAL 

. READER . 



* REALIGN ♦ 
X* SDR COUNTER ♦ 

* TNFnRMATION ♦ 

* ♦ 

*4c* *******«**<[*** 



SDR 

AREA 
ZERO 



**** 

* * 

* E2 * 

* * 
**** 



*****K i*«******4c* 

* MOVE INFO * 

* FROM STANDARD * 

* COUNTERS IN * 

* PUB 2 * 

* TO RCD * 
4c 4c 4c 4c************* 



***** 
♦RC * 
* F2* 



X* WRITE * 

* OBR * 

* RECORD * 

4c*4c************** 
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Chart RF. $JOBCTLM - Phase Initialization Routine 
Refer to Chart 19. 



» ♦ 

♦ INITOO * 

m * 



* SET UP * 

* LUB AND * 

* PUB POINTERS * 

* * 
ittiflf^fiflf *********** 



SYSREC 
ASSIGNED 



♦♦C2******* 

♦ SET ♦ 
SYSREC 

ASSIGNED 
SWITCH 

♦ * 
if^ti******** 



RMSR *. 

GENERATED . 
.(MOD 115/.* 
*.125) .* 



*ifQ2******* 

INDICATE 

RMSR 

BYPASS 

* * 

^******#*** 



.*. 

El *. 

.* ♦. 

* SYSREC ♦. 

ASSIGNED 

*. .* 

*. .* 

*. .* 



* ♦ 

* GET * 

* SYSREC * 

* PUB * 

* * 
itf**************** 



^it!*^*Q,l*:tL******** 

* * 

* SAVE * 

* DEVICE * 

* CONSTANTS * 

* ♦ 



A3 *. 






^t^A^'f****** 


.♦ ♦. 






* 


IS *. YES 




* INDICATE 


SYSLOG A .*.. 






X* SYSLOG IS A 


. 1052 .* 






* 1052 


♦ . «* 






* 


*. .* 






«4c:tc4c«**«*>0<* 


* NO 






* * 

* B4 *.X. 

* ♦ . 








***♦ X 






INITIO .*. 


B3' '*. 






84 *. 


.* *. 






.* *. 


IS ». NO 






.* CCW«S 


SYSLOG A .*.. 






*, RELOCATED 


CRT .* 


, 




*. . 


♦ . .♦ 






*. .* 


*. .♦ 


X 




*. .* 


« YES ***« 




* NO 


* 




* 




, ♦ 


84 


* 




• * 




* 




***« 






X 






X 


♦♦C3******* 






♦♦♦♦*C4******« 


* 






* 


INDICATE ♦ 






* POINT TO 


SYSLOG IS A * 






* FIRST CCW IN 


CRT * 






* LIST 



^^Xt^c^^'**^^:*: 



4:4e*««03*'*''t'*1'4<**** 

* * 

* GET * 

* ADDRESS OF ♦ 

* CRTSAV * 

* * 



.*. 

E3 *. 

.* *. 

.♦ IS HARD *. 

. COPY FILE .♦X., 

*. REQUESTED.* 



* * 

* INDICATE * 
♦HARD COPY FILE * 

* NEEDED * 

* * 



«#««:(( ;te«:(c4E* 



HiifiHitf******** 



E4 * 

END 

OF 

LIST 



.* IS 


* 


. NO 


♦SYSLOG ASSIGNED*. 




♦ . 


♦ 






*. .* 








♦ . .♦ 






X 


* YES 






*♦*♦ 
* 

* B4 
♦ 

♦♦♦* 


X 








***i^*j i#*#**#*«#* 




* 




♦ 




♦ GET 




* 




* SYSLOG PUB 




♦ 




♦ ADDRESS 




* 





*:«(«««««*****«**** 

X 
**♦♦ 

♦ ♦ 

♦ A3 ♦ 

♦ ♦ 
*♦** 
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Chart RG. $JOECTLM - Euild Channel Map Routine 
Refer to Chart 19. 



* * 

* A2 * 

♦ * 
*♦** 



* * 

* A3 * 

* * 



* ♦ 

* MAPCHNOO * 

* * 



* SET UP * 

* TO CK * 

* NEXT CHANNEL * 

* * 



* * 

* SET UP ♦ 

* FOR BLOCK * 

* MPX CHANNEL * 

* ♦ 



* SET UP * 

* RETURN * 

* PSW * 

* * 



* * 

* SAVE ♦ 

* PROG CK * 

* OLD PSW * 

* ♦ 



♦ * 

♦ GET INTO * 

♦ SUPVR * 

♦ STATE * 

♦ * 



MAPCH05 

* RESTORE * 

* PGM CK * 

* NEW PSW * 

* AND CLEAR * 

* OLD PSW * 



* SSM TO 

* ALLOW ALL 

* INTERRUPTS 
* * 

* ♦ 

* Gl ♦.X. 

* * 
**** 

MAPCHNIO 

* * 

* POINT TO * 

* CHANNEL * 

* ID LIST * 

* * 



ALL 
CHANNELS 
. CHECKED 



* * 

* Gl * 

* * 



♦♦♦♦*c 2 ♦♦*****♦♦* 
« * 

* STORE MAP ♦ 

* IN RF * 

* TABLE * 

* * 



.* 
.* 

NO 



* * 

* SET UP * 

* FOR IFA * 

* CHANNEL * 

* ♦ 



* MOVE MAP * 

* TO WORK * 

♦ REGISTER * 

♦ * 



i|c««««:E3*«:(C3(c««*:(c:tc* 



.♦ MAP 


♦ 


. NO . 


* SET UP * 


*. IN WORK 




.♦. . .. 


* FOR * 


*. REG 


* 




* DEFAULT * 


*. .* 






* ♦ 


*. .* 






*»♦**«****♦♦♦**** 


* YES 






**** I 

* * .X. ...... 

* F3 *.X. 

* * , 


X 






MAPCHN30 X 


^*itiii:Hif2*****^**#* 


:{c 3jc tc 4c ;(c F 3 « * ;«c <[ 41 :« « * ;»: « 


* 




* 


* * 


* RETURN TO 




* 


* STORE CHANNEL * 


* START OF 




♦ 


* CODE IN LIST * 


* CHANNEL ID 




* 


* ♦ 


♦ LIST 


\'* 


* 


* * 



MAPCHN25 X 

*****G 2 **♦♦*♦*♦** 

* * 

* SET UP * 

* FOR MPX ♦ 

* CHANNEL * 

* * 



* * 

* ADD * 

* CHANNEL ID * 

* TO MAP * 

* * 



* * 

* SET UP * 

* FOR SELECTOR * 

* CHANNEL * 

* ♦ 



ALL *. NO 

CHANNELS .*... 
. TESTED .* 



♦****H3** ******** 

* CONV ERT * 

* CODE TO * 

* HALF BYTES * 

* AND STORE * 

* * 



****J3********* 

* RETURN TO * 

* CALLER * 

* ♦ 



♦*** 

* * 

* Gl * 

* * 



***♦ 

♦ * 

♦ A2 * 

♦ * 



* * 

* A3 * 

* * 



* * 

* F3 * 

* * 
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Chart RH. $aOECTLM - Miscellaneous Sutrcutines (Part 1 cf 10> 
Refer to Chart 15. 



♦ OPENFILE * 



SSM 

TO ENABLE 

ALL 

♦INTERRUPTS * 



♦ MTNCNT GU * 
♦-*-♦-*-*-♦-♦-♦-♦ 

♦ SVC 22 * 

♦ RELEASE ♦ 

♦ SYSTEM * 



* * 

* OPEN * 

* RECORDER * 

* FILE * 

* * 



* * 

TO ENABLE 
♦ ALL 

♦INTERRUPTS * 



♦MTNCNT GU ♦ 

♦-♦_*_♦_*_*_♦_♦_♦ 

» SVC 22 ♦ 

♦ SEIZE * 

* SYSTEM ♦ 



4i«*«:G !♦*♦♦♦♦*♦♦ 

* RETURN ♦ 

* TO * 

* CALLER ♦ 



* ♦ 

* WRTDSKOO ♦ 

* ♦ 



♦ SET UP CCW ♦ 
*T0 WRITE COUNT-* 

♦ KEY-DATA * 

♦ * 



«4(«*«C2 ♦**♦♦*♦♦*♦ 

♦ * 

♦ PUT ADOR * 

♦ OF SEEK CCW * 

♦ IN CCB ♦ 

♦ * 



4c4<02******* 

* SSM ♦ 
TO ENABLE 

ALL 
INTERRUPTS 

* * 



♦ MTNCNT GU ♦ 
*_«(_♦_«_*_*_«_♦_♦ 

» SVC 22 * 

♦ RELEASE ♦ 

♦ SYSTEM ♦ 
^^^^^^(♦♦♦♦♦♦♦♦**« 



*««:(t*P2 ♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦A3 *♦*♦♦**♦♦ 

♦ ♦ 

♦ WRTHDROO ♦ 

♦ * 



* SET UP ♦ 

* SEEK ADDR ♦ 

* AND RCD ID ♦ 

* ♦ 



♦ ♦ 

♦ GET * 

♦ DATA * 

♦ LENGTH * 

♦ ♦ 



♦WRTDSKOO RH* 

* WRITE ♦ 

* RECORD ♦ 

* ♦ 



♦ ♦ 

♦ BLDHOROO ♦ 

♦ ♦ 



BLDHDROO 

4c 4C4C* 4c B4^««* *♦*««« 

♦ SET UP ♦ 

♦ SYSREC TNFO ♦ 

* IN HEADER * 

* RECORD ♦ 
4< ♦ 



BLOHDRIO 

* REDUCE * 

* CYLINDER * 

* VALUE ♦ 

* BY I ♦ 

* ♦ 



♦ SET UP ♦ 

♦ .,NO^OF^^ ♦ 

♦ tracks'' * 

♦ * 



* * 



♦ * 



SVC 

♦ * ISSUE ♦ * 

♦ * I/O ♦ * 

♦ ♦ REQUEST ♦ ♦ 

4c4c«»«**«**«*^**^* 



*4<«*^C 5 ♦♦♦♦♦♦♦♦♦♦ 

* ♦ 

* REDUCE ♦ 
X* TRACK VALUE ♦ 

* BY 1 ♦ 

* ♦ 



NO .* TRACK 
.. .*. = 

*. 



4c#4c««E5 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ STORE ADOR ♦ 

* TRACK ♦ 

* ♦ 
4c«« ♦♦♦«♦«♦♦♦♦♦♦♦♦ 



* SET UP ♦ 

* CHECK ♦ 

* BYTE ♦ 

* ♦ 



♦ ♦ * * 

♦ ♦ SVC 7 ♦ * 
X^ ♦ WAIT FOR ♦ ♦ 

♦ ♦COMPLETION ♦ * 

♦ ♦ ♦ ♦ 



♦ SSM 

TO ENABLE 

♦ ALL 
♦INTERRUPTS ♦ 



«««♦:»: J2 ♦♦♦♦♦♦♦♦♦♦ 
♦MTNCNT GU ♦ 
♦_♦_♦_*_*_*_*_♦_♦ 

♦ SVC 22 ♦ 

♦ SEIZE ♦ 

♦ SYSTEM * 
«««♦♦♦*♦♦♦♦«♦♦♦♦♦ 



♦♦♦♦K2**++*^^^^ 

♦ RETURN ♦ 

♦ TO ♦ 

♦ CALLER ♦ 
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Chart RJ. $JOECTLM - Kiscellanecus Subroutines (Part 2 cf 10) 
Refer to Chart 19 • 



♦ ♦ 

♦ BLDIPLOO ♦ 



* CLEAR IPL ♦ 

* RECORD ♦ 

♦ AREA ♦ 

♦ * 



*««««C I********** 

* PUT CHANNEL * 

* ASSIGNMENTS * 

* AND MAP ♦ 

* IN RECORD * 

* ♦ 



* * 

* STATOO * 

* * 



* DI *.X 



*♦** 
BLDIPL05 

♦♦♦♦♦Dl********** 
♦LOGREQOO RK* 
♦_*_♦_♦_♦_♦_♦_♦_* 

♦ REQUEST VIA * 

♦ SYSLOG FOR * 

♦ IPL REASON * 



*SCANOO RM* 
*-♦-♦_*-*-♦_*_*_♦ 

♦CHECK RESPONSE ♦ 

♦ FOR * 

* VALIDITY ♦ 



*D2 
IPL REASON CODES 



.CODE . EXPLANATION 
r'^NM*.** NORMAL 



DF 
'lE* 



IE REQUIRING MAINTENANCE. 
'operational* PROBLEM I 

'environmental .* 

*ce/se'c6ntr6lling 'system! 

'user" PROGRAM '. 

'MEoiA*""" I 

'unknown * 



**♦* 
BLDIPL15 X 



* POINT TO * 

♦ MSG * 

♦ 1I92I * 

* * 



♦LOGREQOO RK+ 
♦-*-*_ *_*_ ♦_♦_ *_* 

♦ ISSUE MESSAGE ♦ 

♦ VIA * 

♦ SYSLOG * 



* * 

* Dl ♦ 

* * 



* PUT IPL * 
X* REASON ♦ 

* IN RECORD * 

* +02 * 



♦****G2 ♦♦♦♦****♦* 
♦LOGREQOO RK+ 
♦_♦_*_*_♦_ *_,)(_*_♦ 

♦REQUEST SUBSYS ♦ 

♦ ID VIA ♦ 

♦ SYSLOG ♦ 



* * 

* GET LUB ♦ 
X* AND PUB ♦ 

* ADDRESS ♦ 

* « 

4e 4c ^t^c^^t^** *♦*«<(««>«< 



* ASSIGN * 

* SYSUSE * 

* AND CCW * 

* * 



*****D4^*^++^*^** 



*4:^««:>|c«*4c 4c 4<««*4: >!<:<< 



♦MTNCNT GU ♦ 

*-*-*-*-*-*-♦-♦-* 

♦ SVC 22 * 

♦ RELEASE * 

♦ SYSTEM * 



* * SVC * ♦ 

* * GET * * 

* ♦STATS FROM * ♦ 

* ♦ CONTROL ♦ ♦ 

* ♦ UNIT ♦ ♦ 



♦ PUT SUBSYS ♦ 

♦ ID IN ♦ 

♦ RECORD ♦ 

♦ *J4 ♦ 



♦ RETURN ♦ 

♦ TO ♦ 

♦ CALLER ♦ 

«*:(c««4'4c«4c^^««4c:(c 



***************** 



«««:(c«J3««:tc«^***«4c 

♦LOGREQOO RK^ 

«_*_♦_*_*_*_♦-* _♦ 

♦ ISSUE MESSAGE ♦ 

♦ VIA ♦ 

♦ SYSLOG ♦ 

« 4:* ** <c:)c«4c <c« 4c«4:itc4c 4c 



STAT05 

♦MTNCNT GU ♦ 

*_«_♦_♦-♦_♦_♦_♦_♦ 

...X^ SVC 22 ♦ 

♦ SEIZE ♦ 

♦ SYSTEM ♦ 

:(c«:«c«* *#«*:(( i«citc4c«3«>4c« 



«4:«)toecH4^^^^^^^^^^ 

♦ ♦ SVC 7 ♦ ♦ 

♦ ♦ WAIT ♦ ♦ 

♦ ♦ FOR ♦ ♦ 

♦ ♦COMPLETION ♦ ♦ 

♦ * * * 



.CODE . EXPLANATION 

'.*oo" I'unknown'or'default' 



10 
*20* 



HARD code 

'daso 



DISK 

'tape' 



CARD PRINTER 



70 



TP 



80 . GRAPHIC 
'go'TfYp'E'l'oR'TYPE'l'l'pROGRAMr 
*9i"I'lBM*PR6GRAMMiNG*PR6DUCT"I 
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Chart RK. $JOBCTLM - miscellaneous Subroutines (Part 3 of 10) 
Refer to Chart 19. 



• PERCNTOO ♦ 



PERCNTOO X 

♦ CALCULATE * 
♦NUMBER OF BYTES* 

* USED FOR THE * 

* RECORDER FILE * 

♦ HEADER RECORD * 



*«3|c««C I********** 

♦RDHDROO RL* 

* READ HEADER ♦ 

* RECORD * 

* * 



*4<4t4(4<Dl********** 

* GET RECORDER * 

* FILE START * 

* ADDRESS AND ♦ 
4«C0NVERT TO REL * 
♦TRACKS *D2* 



4i4c««4eEl********** 

* GET RECORDER * 

* FILE END * 

* ADDRESS AND * 

* CONVERT * 

* *D2 * 



.* FILE *. YES 

.LESS THAN TEN.*.... 
*. TRACKS .* 



.* FILE *. NO 
•MORE THAN 90f.*.., 
». FULL .* 



♦A3 
MSG ISSUED BY BAL 
P0INTMSG2, WHICH 
ISSUES BAL LOGREQOO- 
CHART RK. 



MAIN15 X 

«3(c*4c«B2********** 

* APPEND 'RUN * 

* EREP' TO * 

* MSG1I93I ♦ 

* AND ISSUE * 

* *A3 * 



4c4c*«4cB34<***«***** 



«4c4c#4t4t«4c«**««*4>«« 



*)|c**A4**^*^^*^^ 



^^^■♦♦♦♦♦♦***>|t*4i 



♦♦♦♦ 
LOGPEQOO 

*««««B44c**4c«4c]ti4e4(« 

♦ ♦ 

♦ SET UP RESPONSE* 

♦ DEFAULT * 

♦ FIELDS ♦ 

♦ ♦ 



*C2 
BAL CVTRELT 
ACCOMPLISHES 
CONVERSION 
TO RELATIVE 
TRACKS. 



*D2 
BAL CVTRELT 
CONVERTS TO 
RELATIVE TRACKS 



♦♦**C3*****^*^* 

* RETURN * 

* TO ♦ 

* CALLER * 



. X* 



HAKE ♦ 

RESPONSE * 

* UPPER * 

* CASE * 



**4c4:*Gl********** 

* GET CURRENT * 

* TRACK ADDRESS * 
*AND CONVERT TO ♦ 
♦RELATIVE TRACKS* 

* *D2 * 

:|:;jt :(e :»c :;c* « i|c^ # :(|t :)c 4c « # * « 



«;(c4c4c«H !♦♦*♦***♦** 

* CALCULATE * 
*PERCENT OF FILE* 

♦ FULL AND MAKE * 

* PRINTABLE * 

♦ *H2 * 

)tc:)c4c«4:*««**^4:***«« 



* SET * 

X* UP MESSAGE *. 

* 1I83A ♦ 

* * 



NOTE: 
THE SUBROUTINE, 
OERRTN, IS BRANCHED 
TO BY A BAL INSTRUCTION 
HOWEVER, CONTROL NEVER 
LINKS BACK TO THE ROD 
STATEMENT PROCESSOR. 



*H2 
THE PERCENTAGE IS 
CALCULATED EXCLUDING 
SPACE USED FOR HEADER 
RECORD, IT IS ROUNDED 
HIGH. 



* BRANCH TO * 

* OERRTN IN ♦ 

* $JOBCTLA * 

#4e*4*******^#^* 



3(t*(}4******* 

* * 
SSM TO 

ENABLE ALL 
INTERRUPTS 

♦ ♦ 



*MTNCNT 6U * 
*„#_*_#_*_*_♦_♦_* 

* SVC 22 * 

* RELEASE * 

* SYSTEM * 



* ♦ * * 

* * SVC * * 

* * ISSUE * * 

* * RESPONSE * * 

* * ♦ * 

<c*4c4t**««*#««*^^*« 



4:4c4e**H4********** 

* * * * 

* * SVC 7 * * 

* * WAIT FOR * * 

* *COMPLETION * * 

* * ♦ * 



* ♦ 

* SSM TO 
ENABLE 

* ALL 
♦INTERRUPTS * 



4c:«c4'4t*H5 ********** 

*MrNCNT GU * 
«_*_*_*_*_♦_♦_*_* 

* SVC 22 * 

* SEIZE * 

* SYSTEM * 

«i4c:(c4c«:4e*«#«:«t«4c«*«« 



* PUT PERCENT ♦ 
*FULL IN MESSAGE* 

* 1I93I * 

* * 

«4c*««««4:*^^****#4c 





UNIT 


*. 


YES 


EXCEPTION 




*. . .. 






* 




« 


* .* 








*. .* 








* NO 




♦*** 
* * 




^ 




* B4-* 




X 




« * 




**♦* 




**** 




♦ ♦ 








* C5 ♦ 








* * 








**** 
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Chart RL. $JOECTLM - Miscellaneous Subroutines (Part 4 of 10) 
Refer to Chart 19. 



♦ * 

♦ RDHDROC * 

♦ ♦ 



* SET UP CCW'S * 

* AND CCB * 

* FOR READ * 

* ♦ 



* * 
SSM TO 

ENABLE ALL 
INTERRUPTS 

* * 



* SVC 22 * 

* RELEASE * 

* SYSTEM * 



* * SVC * * 

* * READ * * 

* * HEADER * * 
COUNTER 



♦ « 



* * 



4c«4c**««4c:(c4(4c««4c3«c4t* 





note: THE ACTUAL 




****A2********* 


COOING FOR MDR20, 


**4<«AA****'«'**4<* 


* MDR30 * 


Tiu.^^.h':''"'' 


« * 


* liDJk25 * 


* WRTFILOO * 


♦ WDR20 * 


MDR20 IS FOR 4-BYTE 


♦ ♦ 


t^i::^*it^Hit******* 


COUNTER, M0R25 IS 
FOR 2-BYTE COUNTER, 
AND MDR30 IS FOR 
1-BYTE COUNTER. 


:{(4c«*4<*««4c*#«4<*:(c 


X 




WRTFILOO X 


**:^ciiJt'B2********** 




ii:it'***B^****^*i^*** 






* MOVE DATA ♦ 


♦ ADD PUB2 ♦ 




* INTO RCO * 


* AND 3330 * 




* AND SET * 


* BUFFER * 




* UP SEEK * 


* COUNTERS * 




* ADDR * 


**:('******•¥******* 




4c «*«««. 4c 4<«««**4c**4< 

**** '. 

* * 

* C4 *.X. 

* * . 


X 




♦*** 


.*. 


MDR35 


WRTFIL05 X 


C2 *. 


^^CS^'C «♦«*=* 


lt:****Clt******7lf*^Hi 


.* *- 


* ♦ 


* * 


.* *. YES 


* POST 2 * 


* UPDATE * 


*. OVERFLOW .* 


...X* TAPE RCDS * 


* HEAD * 


*. .* 


* SWITCH * 


* NUMBER * 



4c4c4<«*!tc*i|(*«4( 



«:«>|c4(«4c«««*4t«>|c*#«>tc 



* * 

* STORE IN * 

* COMBINED * 

* TAPE RCD * 

* * 



END 

OF 

CYL 



♦****o5 **♦**♦♦♦*♦ 

* GET CYL * 

* VALUE AND ♦ 
X* STORE NEW * 

* HEAD ADDR ♦ 

* * 



♦♦**E2********* 

* RETURN * 

* TO * 

* CALLER ♦ 



4c4c4c««*«4c4c4i«4(#4c*«* 



* I/O 

COMPLETE 



* * « « 

* * SVC 7 * * 
X* * WAIT FOR ♦ * 

* *COMPLETION * * 

* ♦ * * 
«««#*« «**4<«4c*«««« 



LAST 

TRACK 
DONE 



RDHDR05 

♦♦GI*****«* 

* SSM TO ♦ 

♦ ENABLE 
* ALL 

♦ INTERRUPTS 

♦ ♦ 



4c«i(c««Q44c*«***4(4c>(c« 

* « 

* GET * 

* DATA * 

* LENGTH * 

* # 

4c4c4c4'4c*4c4>=«c*4e*«>)<**4! 



♦-*-*-♦-*-♦-♦-♦-♦ 

* SVC 22 * 

* SEIZE * 

* SYSTEM * 



*_♦-*-*-*- 



4c«««««««4t«*4*4i:«*4c 



*. 



♦ *** 

* * 

* C4 * 

* ♦ 

♦ *** 

WRTFIL20 
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Chart RM. $JOBCTLM - l^iscellanecus Subroutines (Part 5 cf 10) 
Refer to Chart 19. 



« * 

* NEXTPOO ♦ 



* GET ADDR * 

* OF NEXT * 

* PUB IN TABLE * 

* « 



♦♦♦♦A3********* 



««*«4t«4(4(4c4c4t4'**« 



SCANOO .*. 

B3 *. 
.* * 

.* RESP 
*. MATCHES 
*.IPL LIST 



END *. NO 

OF .*... 

LIST .* 



POINT TO 

NEXT REASON 

TN LIST 



:((:«[ 4c *:C:((*4< 



4t«:^«4c4c« 



END 

OF PUB 
TABLE 



♦*D1******* 

* * 
SET 

END OF 
PUB SWITCH 

* * 



NEXTP05 

«*«*i»cC2********** 

* POINT TO * 

* NEXT PUB * 
...X* AND PUB2 * 

* AND SAVE * 

* ADDRESS * 



* * 

* SET INVALID * 
,* RESPONSE * 

* CODE * 

* * 



* * 

* B^ * 

* * 



*«**D3********* 

* RETURN * 

* TO * 

* CALLER * 



4c«4c«E4********* 

* * 

* SVC44R00 * 



SSM TO 

ENABLE ALL 

INTERRUPTS 

* * 



4c4c««*G4********** 

♦MTNCNT GU * 
*_*_♦-*-#-♦-*_*_* 

* SVC 22 * 

* RELEASE * 

* SYSTEM * 



4c««*«H4********** 

* * * * 

* * SVC 44 ♦ * 

* * WRITE * * 

* * RECORD * * 

* * ♦ * 



:tc4:«4:3tcK4********** 

* * * * 

* * SVC 7 ♦ * 

* * WAIT FOR * * 

* ♦COMPLETION ♦ * 

* * * * 



:«<«H'> *♦**♦♦♦ 

* * 

SSM TO 
ENABLE ALL 
INTFPOUPTS 

* * 



* SVC 22 * 

* SEIZE * 

* SYSTEM ♦ 



:tc«Xc4:K5 ♦♦♦*♦*♦♦* 

* RETUPN ♦ 

* TO * 

* CALLER * 
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Chart RN. $JOBCTLM • ly.iscellanecus Sutrcutines (Part 6 cf 10) 
Refer to chart 19. 



♦ SNSOO * 

* * 



* * 

* VOLIDOO * 

* * 



♦ CLEAR * 

♦ SENSE ♦ 

♦ BUFFER * 

♦ * 



.♦. 

CI *. 

.* * 

* DEVICE 

ASSIGNED 



♦ RETURN ♦ 

♦ TO * 

♦ CALLER * 



♦ ♦ 

♦ GET LUB * 
X* + PUB * 

♦ ADDRESSES ♦ 

♦ ♦ 



♦♦♦♦♦D2 ♦♦*♦♦****♦ 

♦ * 

♦ ASSIGN * 

♦ SYSUSE * 

♦ TO DEVICE ♦ 

♦ * 



♦ * 

♦ STORE SENSE * 

♦ CCW IN ♦ 

♦ CCB * 

♦ ♦ 



♦MTNCNT GU * 
♦_*_♦_♦_♦_*_♦_*_♦ 

♦ SVC 22 ♦ 

♦ RELEASE ♦ 

♦ SYSTEM ♦ 

■^:t:****t*f ******** 



*:tn:ti*illiQ2********** 

* * ♦ * 

* ♦ SVC ♦ * 

* ♦ PERFORM ♦ * 

* * SENSE ♦ * 

* * * * 

**************:iH** 



* SET UP SEEK * 

* ADDRESS FOR * 

* VOLUME ID * 

* * 



****i^i£i^******^^** 

* * 

* STORE SEEK * 

* CCW ADDR * 

* IN CCB * 

* * 
ilfii**ilfilit***A'******* 



^f***0^********** 

* * 

* SET UP * 

* TO READ * 

* DATA * 

* * 
*********iK******* 



♦MTNCNT GU * 
♦_«_♦_*_♦_*-♦_*_♦ 

* SVC 22 * 

* RELEASE * 

* SYSTEM * 
****ili****ii**iHiti*iH* 



#««4c4tp4*4c3((4:4<4c**:tc« 

ir * * * 

* ♦ SVC * * 

* * READ * ♦ 

* * DATA ♦ ♦ 

* ♦ * * 



I/O ♦. NO 
COMPLETE .*... 
. .* 



* * * ♦ 

* * SVC 7 * * 
X* * WAIT FOR * * 

* *COMPLETION * * 

* * ♦ * 

*:t^i)t*itci^1t********** 



* * * * 

* * SVC 7 * * 
.X* * WAIT FOR * *. 

* ♦COMPLETION ♦ ♦ 

* * ♦ ♦ 
^^'♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



V0LID05 

♦MTNCNT GU 



SNS05 X 

*tf***j2*********'*^ 
♦MTNCNT GU ♦ 
♦_♦_♦_*_«_♦_♦_♦-.♦ 

♦ SVC 22 ♦ 

♦ SEIZE ♦ 

♦ SYSTEM ♦ 



♦ SVC 22 ♦.... 

♦ SEIZE ♦ 

♦ SYSTEM ♦ 
*^i**Hi^iif ********** 


x+ 


.♦ 


DEVICE ♦. YES 
IS 3340 ^•♦••.» 

♦. .♦' * 

♦ ♦ .♦ 










♦ NO 


) 

«4»(c««J44cX 

♦ GET / 

♦ OF f 

♦ AND ! 

♦ VOL 

♦ IN f 


( 

t:^t****** 

WD9 ♦ 
UB2 ♦ 

>AVE ♦ 
ID ♦ 

>UB2 ♦ 

fc*:^*mm*** 










X... 











♦ RETURN ♦ 

♦ TO ♦ 

♦ CALLER ♦ 
iki************** 
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Chart RP* $JOBCTLM - Miscellaneous Sufcroutines (Part 7 cf 10) 
Eefer to Chart 19. 



« * 

• CODEOO ♦ 



CODEOO X 




^^lfm*Bl********** 




* * 




* GET ADDR * 




* OF OS DEVICE * 




* CODE TBALE ♦ 




♦ * 




«*««««« 4c 4c«4c«4i4i«*4< 




♦ *** * 




* * . 




♦ CI *.x. 




♦ ♦ 




♦♦*♦ X 




CODE05 .*. 




CI ♦. 


**««*C2 ♦*«*** 


.* *, 


♦ 


.♦ , COOE_ ♦. NO 


♦ UPDATE TO 


♦. MATCHES »♦ 


...X* NEXT TABLE 


*, ENTRY .* 


♦ ENTRY 



tODElO 

* * 

* MOVE OS ♦ 

* CODE TO * 

* RECORD ♦ 

* ♦ 



«**«*«*«*4i«>t<«*««4< 



END 

OF 

TABLE 



* ♦ 

* CI * 

* * 



* PREPOOO ♦ 

♦ * 



* CALCULATE * 

* NUMBER OF * 

* RECORDS PER * 

* TRACK * 



* ♦ 

* GET NUMBER OF * 

* RECORDS PER * 

* CYLINDER * 

* * 



4e*)(c4c«03 >»'*>««'**4<4' <"'«' 

* * 

* GET EXTENT * 
♦UPPER AND LOWER* 

* LIMITS ♦ 

* * 

«««#«♦««*♦« 4c 4c«4t** 



C0DE15 * 

X 

* * 

* RETURN ♦ 

* * 



* * 

* CALCULATE NO. * 

* OF TRACKS OF * 

* HC FILE * 

* « 



****A5 *♦♦♦****♦ 

♦ ♦ 

♦ PREPOIO * 

♦ ♦ 



INDICATE 
CREATE 

RUN 
♦ ♦ 



* ♦ 

* DEFINE ♦ 
♦SEEK AND SEARCH^ 

♦ ADDRESS » 

♦ ♦ 
*««***«**♦♦♦♦*♦♦♦ 



«4>*4t«n5 ♦♦♦♦♦♦♦♦** 

♦ ♦ 

♦ PREPARE I/O * 

♦ ROUTINE FOR ♦ 
♦UPDATE SEEK AND* 
♦SEARCH ADDRESS * 
**«*♦♦♦♦♦«♦«♦*♦«* 



4(4:4c*«E5 ♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ GET BRANCH ♦ 

♦ ADDRESS FOR ♦ 

♦ CREATE * 

♦ ♦ 
^^^(♦♦♦♦♦♦♦♦♦♦♦*«4< 



.♦ IS IT *. NO 
.FEWER THAN 10.+ ... 
♦. TRACKS .♦ 



♦SET UP MESSAGE ♦ 

♦ 1I99A ♦ 

♦ 'HARD COPY ♦ 
♦FILE TOO SMALL'^ 

♦ ♦ 

9|<«4<4(«««4c4e«4c««*4<^^ 



♦♦♦♦J3 ♦*****♦*♦ 

* BRANCH TO ♦ 

* WAITERR IN ♦ 

* $JOBCTLA ♦ 



.PREPOOl X 

♦ SET CURRENT ♦ 
♦AND WRAPAROUND ♦ 

♦ ADDRESSES TO ♦ 

♦ HL EXTENT ♦ 

♦ BEGIN ♦ 



4(4c4t^H4*^^**^^*^ 

♦ RETURN ♦ 

♦ TO ♦ 

♦ CALLER * 
4c4(4'4e«***«*«*^*4c 



Charts 255 



Chart RQ, $JOECTLM - Miscellaneous Sufcroutines (Part 8 cf 10) 
Refer to Chart 19. 



^i^^^Al********* 


*t**A2********* 




lOt^^^AS********* 


♦ ♦ 


* * 




♦ * 


♦ PREP030 ♦ 


♦ PREP020 * 




* HCIORIO * 


* * 


* * 




* * 


*#♦**«**»****»♦ 


4i4i4i«**4'*«*4>*«:>|i4< 




♦ **♦ I 

♦ RR * 

♦ Gl *.X. 

♦ * * 


PREP030 X 


PREP020 X 


HC 


lORlO X 


**B14'***4>«4c 


*tiQ2******* 




*4<*4c:»B3****4' <>***♦ 


* * 


* ♦ 




« ♦ 


INDICATE WRITE* 


♦ INDICATE ♦ 




* INCREMENT ♦ 


♦ RUN FOR IPL ♦ 


♦ READ ♦ 




♦ RECORD * 


♦ MESSAGE ♦ 


♦ MESSAGE * 




♦ NUMBER ♦ 


* ♦ 


* # 




* ♦ 


««4c**4<«*4t*« 


^*^t******* 




♦*♦* I 

♦ RR ♦ 

♦ Gl ♦.X. 

♦ * ^X 




*♦** X 


X 


X 


HC 


IOR20 .*. 


*:f**'^Cl********** 


4t4t:tc4t«C2 ********** 




C3 *. 


* * 


♦ ♦ 




.♦ *. 


* GET SEEK AND * 


♦ DEFINE SEEK * 




.* » . 


♦ SEARCH * 


♦ AND SEARCH * 




*. WRITE RUN .* 


* ADDRESS ♦ 


♦ ADDRESS ♦ 




*. .* 



♦ HCI0R20 * 

» * 



♦ ♦ 

* HCI0P30 ♦ 



* r,i 



*.X. 



*4c4t«4c4t«*«>»>4>*«*4<*4c 



♦*D1******* 



4c#4E;(<«3tE*«**« 



* * 

* GET BRANCH ♦ 

* ADDRESS * 

* FOR WRITE * 

* ♦ 



X 

.*• 

Fl *. 

.* *. 

=* CYCLE * 

•BIT FOR REC.= 

*. I ** 

*. •* 

♦ . .* 



♦ * 

♦ SET CYCLE BIT ♦ 

♦ IN FLAG BYTE * 

♦ TO I * 

♦ ♦ 



*4i«)|C*« «4C««*|(C« )|t«;(E)(t 



♦♦♦♦*D2********** 

* * 

* PREPARE I/O * 

* ROUTINE FOR * 
♦UPDATE SEEK AND* 
♦SEARCH ADDRESS * 

*«:((««: ^'♦♦♦♦♦♦♦♦♦♦^ 



)|t#«*«E2 **♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ GET BRANCH ♦ 

♦ ADDRESS * 

♦ FOR READ ♦ 

♦ * 



*«4<«F2 *♦♦♦*♦♦*♦ 

* RETURN * 

* TO * 

* CALLER * 



.♦ *. 
.* BYPASS ♦ 
*. FOR WRITE 

♦ . RUN .♦ 



.♦LAST TRACK 
*. ON 

♦. EXTENT . 



F3 *• 

♦ ♦, 

END *. NO 

OF .*.., 

FILE .* 

♦ , ,♦ 

♦ . .* 
♦ YES 



*4c4c^^G3*^*+^***^* 

« ♦ 

* SET CURRENT ♦ 

* DISK ADDR = ♦ 
♦FIRST HC-RECORD^ 

* ♦ 
^^(♦♦♦♦♦♦^(♦♦♦♦♦♦♦* 



*♦♦* . 

HCT0P30 X 

4t«*4<*B5 ♦♦**♦*♦♦*♦ 
♦MTNCNT GU * 

*_♦_♦_♦_♦_*_♦-♦_♦ 

...X* SVC 22 ♦ 

* RELEASE ♦ 

* SYSTEM ♦ 



♦♦♦**C5 *♦**♦***♦♦ 

* ♦ 

* SVCO ♦ 

* ISSUE I/O ♦ 

* REQUEST ♦ 

* « 



♦ SET UP * 

♦ MESSAGE * 
♦1I96A 'ERROR ON*X. 
♦HARD COPY FILE * 

♦ AT CCHHP' * 



♦ BWAIT6RR0 * 

♦ WAITERP IN ♦ 

♦ SJOBCTLA * 
itf^flfif ************ 



«*:(c%itc05 ♦♦♦♦♦*♦♦♦♦ 

♦ MTNCNT GU ♦ 
♦-*-♦-♦-♦-*_*-*-♦ 

* SVC 22 ♦ 

♦ ^EIZF ♦ 

* SYSTEM ♦ 



.* I/O ♦. 

. OPERATION . 
♦SUCCESSFUL.* 



♦ ♦ 

♦ SET CURRENT ♦ 

♦ DISK ADDR = ♦ 

♦ SEEK ADDRESS * 

♦ ♦ 



* * 

* MOVE IPL * 

* MESSAGE FOR ♦ 

* OUTPUT ♦ 

* « 



♦ ♦ 

♦ GET DATE ♦ 

♦ FROM ♦ 

♦ COMREG ♦ 

♦ ♦ 
«««*♦♦♦♦«♦«♦*♦**♦ 



tmti*^K !♦***♦♦♦♦♦♦ 

* ♦ 

* CHANGE THE * 

* FORM TO ♦. 

* MMDDYY ♦ 

* * 



♦lOPOSTPR RR+ 
♦_*-♦_*-*-*-*-♦-* 

♦ SEARCH FOR * 

♦ CURRENT AND ♦ 
♦WRAPAROUND REC.^ 



END OF FILE 



♦RR ♦ 
♦ Al^ 



* RETURN * 

* TO * 

* CALLER ♦ 



♦♦♦♦K2^**^^+^^^ 

♦ RETURN ♦ 

♦ TO ♦ 

♦ CALLER ♦ 
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Chart RR. $JOECTLM • Miscellanecvis Sukrcutines (Part 9 cf 10) 
Refer to Chart 19, 



***** 

♦ H5* 



*****f^ l**^im****** 

•UPDATE RR* 

* -.*«♦_♦«♦_♦_#_ 4t>.« 

* UPDATE ♦ 

♦ SEARCH * 

♦ ADDRESS * 
***************** 



m* *, 

* LAST *. NO 
RECORO-1 ON .♦.., 
♦. TRACK •* 



.♦ LAST *. 
. TRACK ON ,'■ 
*. EXTENT .* 



NO ,* ♦. 

,..♦. CREATE RUN .* 

*. .* 



**E1******* 

* ♦ 

* PREPARE * 
FOR WRITE EOF ♦ 

* RECORD * 

♦ * 
*********** 



*:ttfl******* 

* * 

INDICATE 

END OF 

FILE 

* * 
**^^*****^** 



****fk2********* 

* * 

* UPDATE * 

* * 
**,^m*********** 



* INCREMENT * 

* RECORD * 

* NUMBER * 

* * 
***************** 



* RECORD *. NO 
NUMBER TOO .♦.•. 

*. HIGH .♦ 



*****Q2********** 



TYPE 
OF 
RUN 



***** 
♦RQ ♦ 
♦ 63* 



.* 

•* 
WRITE 



***** 
♦RQ * 
♦ B5* 



***** 

*RQ * 
* C3* 



INCREMENT 

TRACK 

NUMBER 



.* *. 
,* TRACK *. NO 
*. NUMBER TOO .*... 
♦. HIGH .* 



*****P2********** 

* * 

* INCREMENT * 

* CYCLINDER ♦ 

* NUMBER * 

* * 
***************** 



****Q2 ********* 

* * 

* RETURN ♦ 

* * 
*************** 



«4tH2******* 



***«A3 ********* 

* lOPOSTPR * 

* * 
*************** 



.* *. 
YES .* CYCLE *. 
...*BIT FROM FIRST.* 

** RECORD .♦ 
*. SAVED.* 
*. .* 
* NO 



*****Qi********** 

* * 

* TEST AND ♦ 
» SAVE CYCLE * 

* BIT * 

* * 
nf****iif*******^t*** 



.* CURRENT *. N 
*. RECORD .*. 

*. FOUND .* 



* ^ TEST ^ * 

* FOR CURRENT * 

* RECORD * 

* * 

**********iHti:****ti 



.♦ CURRENT *. Nl 
*. RECORD .*. 

*. FOUND ** 



***nf*0^********** 

* * 

* SAVE CURRENT * 

* ADDRESS IN * 

* CRTSAV * 

* * 



END *. V 

OF .*. 

FILE .* 



INDICATE 

END OF 

FILE 

* * 

ilf********** 



.X. *•,. 

X 

.♦. 
E3 *. 

• * *. 

.* WRAP *. YES 

*. AROUND RECORD.*... 
*. FOUND .* 



F3 *. 
«* *. 

NO .* 
,..*. OVERLAY 

*. • 

*. .* 

*. .* 
* YES 



*****Q-i**ii******m 
* GET • 

♦CURRENT ADDRESS* 



****ilL****tt******* 



X 
lOPOSTE .*. 

H3 *. 

.* WRAP *. 
XYES .♦ AROUND * 
....*. AND CURRENT 
♦ . ADDRESS .* 
♦.FOUND.* 
*. .♦ 
* NO 



£5 



*. 



♦ « 



IS 
NO .* IT THE 
,..♦. WRAP AROUND 
♦. RECORD .* 
*. .* 
** .* 
* YES 



*****f^*itt******** 

* ♦ 

* SAVE WRAP- * 
.♦AROUND ADDRESS * 

* IN CRTSAV * 



*******iH********* 



*****Q^*********ilp 

* SET * 
♦CURRENT ADORES S^ 

....* EQUAL TO HC *X. 
X ♦ FILE BEGIN ♦ 

♦ ♦ 

^^♦♦♦♦♦♦♦*4<««3|t«4t;(c 



.♦WRAP AROUND*. 
RECORD .* 
*4 FOUND .♦ 



4i««4e^H5 ********** 

* SET * 

* CURRENT AND * 
.* WRAP-AROUND * 

* ADDRESS EQUAL * 
*T0 HC-FILE BEG.* 
***************** 



♦♦♦♦J3 ♦*♦**♦*♦♦ 

♦ ♦ 

♦ RETURN * 

♦ ♦ 
*************** 
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Chart RS. $JOBCTLM • Kiscellanecus Sufcrcutines (Part 10 of 10) 
Befer to Chart 19* 



****A2 ********* 

♦ * 

♦ OPNHCFLE- * 

♦ * 



OPNHCFLE 

4c*4<i«(«B2********** 
♦MTNCNT GU * 
i)t_#_ «_♦_♦_ ♦_*_♦_♦ 

* SVC 22 * 

* RELEASE * 

* SYSTEM * 



««4t*«(;2 *4<******4<* 

♦ * 

♦ OPEN * 

♦ HARD COPY * 

♦ FILE * 

♦ * 



4<4'4c««02********** 

♦MTNCNT GU * 
♦_ *_ ♦_ ♦_ ♦_ *_ ♦_ ♦_♦ 

* SVC 22 * 

* SEIZE * 

* SYSTEM * 



4c4:4i4tE2********* 

♦ RETURN ♦ 

♦ TO * 

♦ CALLER * 



♦♦♦*A4********* 

* HCOPNMSG * 

* * 



♦GET ADDRESS OF * 

* CCW TO WRITE * 

* MESSAGE * 
*1I97I *E4* 



_♦_#_#_>(< 



4t«*4!**«*«4<4(4c«**«« 



4c«4E*[)4«4t*4c***** 

* RETURN * 

* TO * 

* CALLER * 



*E4 
MESSAGE TEXT 

1I97I HARD COPY FILE ON DISK 
NOT SUPPORTED DUE TO 
OPEN ERROR 
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Chart SA. $JOECTLN - Job Accounting Interface (Part 1 of 2) 
Eefer to Chart 20. 



♦ fJOBCTLN ♦ 

♦ ♦ 



♦♦Bl******* 

♦ SET ♦ 
RETURN 
BRANCH 

FOR EXEC 

* CD ♦ 



* SIMEOJ ♦ 

* ♦Kl * 

* ♦ 



♦ ♦ 

SET RETURN 

BRANCH FOR 

SIMULATED 

♦ EOJ ♦ 



♦♦♦♦A3 ****♦*♦♦* 

♦ EOJ ♦ 

♦ ♦Ka ♦ 

♦ ♦ 



4c 4^83 ♦♦♦♦♦♦♦ 

♦ SET ♦ 
RETURN 

BRANCH FOR 
NORMAL 

* EOJ ♦ 



GO X 

^^♦♦♦C !♦♦♦♦♦♦♦♦♦♦ 

♦ STORE JOB * 

♦ CONTROL REGS ♦ 

♦ ESTABLISH ♦ 

♦ TABLE ♦ 

♦ BASE ♦ 



4t«*«^D I ♦♦♦ ♦♦♦♦♦♦♦ 



itt^4fQ2******* 



SAVE ID OF ♦ 

PARTITION ♦ 

IN CHARGE ♦ 

♦ 

««♦♦♦♦♦♦♦♦♦*♦♦♦♦ 


♦ TURN 
..X+ OFF 

♦ CATALOG 
♦ SWITCH 

^(^♦♦♦♦♦♦♦♦^ 


• 


♦**♦ 




♦ ♦ . 


• 


♦ E2 ♦.X. 

♦ ♦ . 


X 


♦♦♦♦ X 


.♦. 

El ♦, 

.♦ ♦• 


.♦ ♦. 


.* ! AST USFR ♦- YF5; 


.♦ TS 


. EXIT NORMAL .*. .... 

♦ . .♦ 

♦ . .♦ 
♦ • .♦ 


*. ANDlMtk 
♦.SJOBACCT . 
♦RUNNING* 
♦. .♦ 



4c«4i4'^C3 ♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ POINT TO ♦ 

♦ FIRST ♦ 

♦ WAIT ♦ 

♦ BLOCK ♦ 
***««=•(* ♦*«**♦«««♦ 



IS 


♦ 


. NO 


T IN 




.♦.. 


USE 


* 




.♦ 






. .* 






♦ YES 







♦ TURN OFF ♦ 
ACCOUNTING SW 

* IN COMREG ♦ 
♦ ♦ 

^(^♦♦♦♦♦♦♦♦^ 



♦ ♦ 

♦ POST CANCEL ♦ 
ACCOUNTING TO 

♦ OTHER ♦ 
♦PARTITIONS ♦ 

4c ^(^'^'♦♦♦♦♦^^ 



««H1*^^^^^^ 



4c 4<^^^^^^^^^ 



X 
♦♦♦♦♦ 

♦ SB ♦ 

♦ D1+ 
♦ ♦ 



CALL$EOJ 

4c4c^«4cF2 ♦♦♦♦♦♦♦♦♦♦ 

♦ CALCULATE ♦ 

♦ FINAL CPU ♦ 

♦ TIME ♦ 

♦ MOVE CTRS ♦ 

♦ TO USER TABLE ♦ 

4c 4e^^^^*^^^*^^^^** 



4c4:^^4cQ2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ RESET ♦ 

♦ TIME ♦ 

♦ COUNTERS ♦ 

♦ ♦ 

#4t:4c4c4c4.4c4t«4c4c4<#^^^4c 



4c4c4'^^H2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ SAVE JOB ♦ 

♦ NAME ♦ 

♦ FROM ♦ 

♦ COMREG ♦ 
4c4c«^^^^^*^^^^^^^« 



4c 4c**«E3 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ POINT TO ♦ 

♦ WAIT * 

♦ BLOCK ♦ 
4c4>^^*^^**^^^*^^^« 



4(*4c4c^F3 ♦♦♦♦♦♦♦♦♦♦ 



♦ PUT 

♦ PARTITION 

♦ ID IN * 

♦ WAIT BLOCK ♦ 

4e4<«4c^^^^^ ♦♦♦♦♦♦♦♦ 



♦ X. 



♦ ♦♦♦ 

♦ ♦ 

♦ B4 ♦ 

♦ ♦ 

♦ *♦♦ 



IS ♦. 
THIS A 
FOREGRO .♦ 
♦. JOB .♦ 



«4<^^^C4^^^^^^*^^* 

* GE^ PIB * 

* ADDRESS ♦ 

* AND ♦ 

* PARTITION ♦ 

* PIB ♦ 
4e4c4c^^^^^^^*^^«4<*« 



♦ * 

♦ GET ♦ 

♦ PARTITION ♦ 

♦ SAVE ♦ 

♦ AREA ♦ 

4c4c«^^^^^^^^^^^^^^ 



♦ * 

♦ _POST^_ ♦ 

♦ '^TN SAVE ♦ 

♦ AREA ♦ 

4c4c*^^^^4c^^^^^^^^^ 



4c 4cB5 ♦♦♦♦♦♦♦ 

♦ ♦ 
POST 

USER IN 
CONTROL 

* ♦ 
4c4c4c«4c«4c*4'^^ 



LABEL 
AREA 
SUPPORT 



4c 4=05 ♦♦♦♦♦♦♦ 

♦ ♦ 
ACTIVATE 

OPEN/CLOSE 
LABEL AREA 

* CAPTURE * 
4c4'«*«**««4c« 



4t 4c 4'^^G3 ♦♦♦♦♦♦♦♦♦♦ 

♦ MTNCNT GU ♦ 

4c_*_4c_4c_4t-4c -♦-♦ -* 

♦ RELEASE ♦ 

♦ THE ♦ 

♦ SYSTEM ♦ 

4c 4c 4c 4c4<*4< «*♦♦♦*♦♦*« 



4c4c4c^«J2*^^^^^^^^* 


♦ 


POST 


* 


♦ 


•JOB ACCT* 


♦ 


♦ 


AS NEW 


♦ 


♦ 


JOB NAME 


♦ 


* 


IN COMREG 


4t 


4>4<^^^^^^^^^^^^^^^ 




X 
♦♦♦♦ 





H3 ♦. 

.♦ ♦ 

.♦ IS OTHER 

USER 

♦ .FINISHED 

♦ . .♦ 

♦ . .♦ 



4c 4c4c^^J3^^^^ ♦♦♦♦♦♦ 



4c4c4c4c4c*4c«*4c^^^^^^4c 



.X + 



4(4c4c^#H4*^*^^^**^* 
♦MTNCNT GU ♦ 

4c_4t- *-♦-♦-*-*-*-* 
SEIZE ♦ 

♦ THE ♦ 

♦ SYSTEM ♦ 

4c4e*«««*4c4c4c4c«4c4c«3«c4c 



4c **«4cE5 ♦♦♦♦♦♦♦♦♦♦ 
♦MTNCNT GU ♦ 

4c_4c-4!-4c-*-^-4t-+-^ 

♦ '"''thp''" 'i 

♦ SYSTEM ♦ 
4c 4(^ ♦♦:»>« ♦♦♦♦«*♦«♦♦ 



4c4c4c4c^F5 ♦♦♦♦*♦♦♦♦♦ 

♦ ♦ 

♦ STORE ♦ 

♦ BASE ♦ 

♦ REGISTERS ♦ 

♦ ♦ 

4c4c4c4c^4c4c4c^^^4c4c«*4c« 



4e4c4«^^G5 ♦*♦♦♦*♦♦♦♦ 

♦ ♦ 

♦ INITIALIZE ♦ 

♦ USER ♦ 

♦ REGISTERS ♦ 

4c 4c 

4c4>4c4c^*4c*4e4c^4c4c«4c4c^ 



4c4:^^H5 ♦♦♦♦♦♦♦♦♦ 

♦ EXIT TO ♦ 

♦ SJOBACCT ♦ 

♦ *J5 * 
4c4c3|c4'4c**«4c4c4c^^^^ 



♦ ♦ 

♦ CLEAR ♦ 

♦ WAIT ♦ 

♦ BLOCK ♦ 

4c * 



♦J 5 
EXIT TO 
USERS JOB 
ACCOUNTING 
PROGRAM 



♦KI 
ENTRY FROM $JOBCTLG, 
JOB STATEMENT PROCESSOR 
AT SIMULATED EOJ, 



♦ K3 
ENTRY FROM /+ 
STATEMENT PROCESSOR 
AT NORMAL AND 
ABNORMAL EOJ, 
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Chart SB. $JOBCTLN - Job Accountirg Interface (Fart 2 cf 2) 
Fefer to Chart 20, 



***** 

♦ SA * 

♦ HI* 



*POST PARTITION ♦ 

♦ COMPLETE IN ♦ 
♦ALL USED SEIZE ♦ 

* BLOCKS ♦ 

**ilf^ile*ti********** 



CONTINUE 

**E1******* 

♦ TURN * 

* OFF 

♦ SJOBCTLN 

* ACTIVE 

♦ SWITCH ♦ 

4iilf*iHt!4:***** 



♦ ♦ 
DEACTIVATE 

LABEL 
SWITCH 

* * 

******itHi:ti** 



****A3 ♦♦*♦♦*♦*♦ 

* * 

* RETURN FROM * 

* SJOBACCT ♦ 

******:tf****^*** 



* RESTORE * 

* BASE ♦ 

* REGISTERS * 

* * 
^^tiif ******** ****** 



**C3******* 

* * 

* TURN OFF * 
♦USER IN CHARGE 

* SWITCH * 

* * 



«4c4i:4c4cD3 ♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ RETURN USER'S * 

♦ JOB NAME ♦ 

♦ TO COMREG ♦ 

♦ ♦ 



**** 

* * 

* B5 * 

* * 



* * 

* GET PIB * 

* ADDRESS AND * 

* PARTITION PIB * 

* * 

*:tt:Hl^,*4,*ltl***4,4'**** 



:^**THitlC^*******^** 

* * 

* GET PARTITION * 

* SAVE * 

* AREA * 

* * 
*ilit**^f******i^4t*iti** 



* * 

* RESTORE * 

* JOB NAME * 

* TO * 

* SAVE AREA * 

*****ilt1/:iti^^**^i4:**** 



***1^*C5********** 



* 


CLEAR 


* . 


* 


FIPST SIO 


* 


* 


ENTRY 


* • 


* 




* 


**i^:^**:^**^f^**:f*** 






X, . . . 




CLRl 


K 




***Hi*Q^Hi*#ilt****HiHi 






* 




CLEAR 


* 




TIME 


♦ 




COUNTERS 


* 



«4c«*4<**««4t*3tc*««*« 



.*. 


NOTFGl X 


.*. 


E3 *. 


^:^^ftit,^^^^t*'****** 


E5 *. 


.♦ ♦. 


♦MTNCNT GU * 


.* ♦, 


.* IS *. NO 


*_3|C_ ♦_*_♦_*«♦_*_♦ 


.♦ ♦.NO 


THIS A .♦ 


* RESEUE THE * 


♦. SIO ...... 


♦FOREGROUND.* 


* SYSTEM ♦ 


♦.SUPPORTED.* 


♦. JOB .♦ 


* ♦ 


♦ . .♦ 


*. .* 


*:iti^:$i*^*t********* 


♦. .* X 


* YES 


; 


* YES *♦♦♦ 

♦♦♦* , ♦ * 

* * , ♦ Dl* 


X 




♦ F5 *,X. * * 


**** 




* * . **♦♦ 


* * 




♦*** , 


* BA ♦ 


X 


X 


* * 


*««««F4««it^:4t«4c**« 


4c 4<>tc«4cF5 **♦♦**♦*** 


**** 


♦ ♦ 


* ♦ 




* MOVE CPU TIME * 


* ♦ 




* USED BY USER * 


♦CLEAR SIO TABLE* 




* TO OVERHEAD * 


* * 




* * 


* *■ 




4<«««4<«4c**«*«*4<««« 


««*♦♦*♦ «♦«:♦♦♦♦♦:«(* 



EXBKSWCH .♦. 




EJBKSWCH .♦. 


GI ♦. 




G2 ♦. 


,* ♦ 




.* ♦ 


.♦ WAS 


♦ . NO 


.♦ WAS 


♦. ENTRY FROM 


.♦. ... 


....X^. ENTRY FROM 


♦ . EXEC 


♦ 


*. EOJ 


*, .* 




*. .* 


♦ . ,♦ 




♦ . .* 


♦ YES 




* NO 



♦ POINT DUMMY ♦ 

♦ VECTOR TO * 
♦EXEC PROCESSOR ♦ 

♦ IN SJOBCTLE ♦ 



****J i*«******* 

♦ BRANCH TO ♦ 

♦ FETCHRF IN ♦ 

♦ SJOBCTLA ♦ 
««♦*«♦♦♦«*♦♦*♦* 



SJBKSWCH .♦. 

H2 ♦. 
.♦ ♦. 
.♦ WAS 
♦. ENTRY FROM 
♦. SIMEOJ . 
♦ . .* 
♦. .♦ 
♦ YES 



*****J2 ♦♦*♦♦♦♦**♦ 

♦ * 

♦ POINT DUMMY ♦ 

♦ VECTOR TO ♦ 

♦ 'ACCTSIMR' ♦ 

♦ IN $JOBCTLG ♦ 
«4t*******^*«^*«*« 



#3(c 4c 4<G3 ♦*♦♦*♦♦♦♦ 

♦ CONTROL ♦ 
.X^ $JOBCTLA ♦ 

* ♦ 

4c4c*«*i|c«c*4c4c*4:4'^ ♦ 



4c ^'♦♦HS^******** 

* EOJ ♦ 

♦ SVC 14 ♦ 

4c * 

4c4c««4(« :(c4c 4c4c*4'«* « 



4c4c«**G4***^^^^*** 

♦ ♦ 

♦ REINITIALIZE * 

♦ JOB ♦ 

♦ ACCOUNTING ♦ 

♦ TABLE ♦ 
^f 41**** *********** 



* GET LENGTH ♦ 

* OF ♦ 

* SIO TABLE ♦ 

* * 
4c4c4(**4c*«4'4c^*«*4c4(« 



.♦ STO 


* 


. NO 


♦. TABLE 




...... 


♦ . CLEAR . 


* 




♦ . .* 






*. .♦ 




X 


* YES 




**♦♦ 

* * 

* F5* 

* * 
♦♦♦* 


FINISH X 






*4:««*H5 ♦♦♦**♦♦♦♦♦ 


♦ 




♦ 


♦ SET 




* 


♦ TABLE 




* 


♦ DELIMITER 




* 



4(4c4c «4c«* ««4c4c 4<3t'«4< 4<« 

X 
♦*** 

♦ 4< 

♦ Dl ♦ 

♦ ♦ 
*♦♦* 
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Chart TA. $$BLSTIO - Initialization 
Refer to Chart 11. 



♦ * 

♦ PUIF * 

♦ ♦ 



PUIF 

* LOAD BASE REG * 

* WRKRG3 WITH ♦ 

* CURRENT PUB ♦ 

* AODR FROM * 

* TPUBADD * 



* UNPACK AND * 

* TRANSLATE * 

* CHANNEL AND * 

* UNIT TO BCD * 

* IN WRKRGl * 



*4c**4tD I********** 

* MOVE CHANNEL * 

* AND UNIT TO * 

* TCHNL AND * 

* TUNIT * 

* * 



YES .*UNASSIGNED^*. 

..,*. OR 

*. IGNORE .* 
*. .* 



IS IT 

SYSTEM 

UNIT 



* * 

♦ INITIALIZE 
♦ FOR 

* TEST HOPPER 

♦ * 



* * 

* 04 * 

* * 



* NO 



GI *. 




*. 




DEVICE *. YES 




UA .*..X 




.♦ 




.* 




*. .* X 


4c NO *>|<4c4c 


* * * 


* K5 * 


♦ ♦ 


*^ 


!<♦* 



IS RDR ♦. 

LOGICAL .♦ 

UNIT .* 



.♦ IS IPT *. 

.OR PCH A LOG-.^ 

*.ICAL UNIT.* 



* MODIFY TM * 
♦INSTRUCTION FOR* 

♦ SYSIPT OR * 
* SYSPCH * 



♦ INSERT HI FOR * 

♦ HOPPER 1 INTO * 

♦ TMODE FIELD * 

♦ * 



.*. 


PUIFl X 


A3 *. 


**«*iKA4*#4c**4t**4(4c 


.* ♦. 


* CLEAR * 


MODE *. YES , 


* OWNERSHIP * 


BYTE IN PUB .*....X, 


* FIELD * 


. EQUAL .* X , 


* -TOWN- * 



«#4c4:4iB3 ********** 

* ♦ 

* MOV E * 

* DEVICE TO ♦ 

* DVCHK * 

* ♦ 



IS 

DEVICE 
DASD 



* * 

* UNPACK MODE * 

* OF DEVICE IN * 

* WRKFLDl * 

* * 



^^Xc^c^FS********** 

* UNPACK * 

* MODE OF JOB * 

* CONTROL FLAGS * 

* IN PUB IN * 

* WRKFLDl * 



Jl *. 

.* WAS *. 
NO .* SINGLE *. 
,..*. ARGUMENT 

*. SPECIFIED.* 



♦*K1******* 

* COMPUTE * 
CLASS KEY 

FOR 
LATER 

* TEST * 

««#«:te«***«* 



♦ *** 
4> * 

* A3 * 

♦ * 
*♦** 

PUIF3 
NO .* 



1 ♦ 




♦ . YE<i 


, 


STANDARD .*.... 


* 


. SETTING .* 




*. .* . 




*. .* 






I' NO 










0:«H2******* 


* 


MODIFY * 


TM 


INSTRUCTION* 




TO TEST * 


* 


TEMPORARY * 


* 


SETTING * 




*:*#««♦♦»(**« 






Ix ...! 



.♦ DEVICE *. YES 
*TAPE CARTRIDGE.*... 
*. READER .* 

*. .♦ 



,* IS *. 

HOPPER 2 .■ 
♦.ASSIGNED .* 



4c4c^*«K2********** 



♦ TMODE FIELD * 

* * 
^^^^^♦♦iK********* 



««««*J3******^^^* 

♦ * 

♦ RESET WRKRGl * 

♦ TO ORIGINAL * 

♦ MODE * 

♦ * 



♦TRANSLATE MODE * 

* TO EBCDIC AND * 

* MOVE TO TMODE * 

* FIELD * 

Dc««^^«««^4c««*«««Di 



4i4>^***4t^4<*^4c4>4t«*« 



♦MULTIPROGRAMING*. 



* COMPUTE * 

* PUB OWNER ID * 

* BG,F4,F3,F2,F1* 

* AND MOVE TO * 

* TOWN ♦ 



*A5 
THE SWITCH, TPROGSWf I 
ON IF A SINGLE 
ASSIGNMENT IS BEING 
PROCESSED, A SINGLE 
ASSIGNMENT OR 
ARGUMENT IS SPECIFIED 
BY THE OPERAND SYSXXX. 



*B5 
POINTI CONTAINS VALUE 
CALCULATED IN ROUTINE 
FNDARG FROM LOGICAL 
TRANSIENT KEY AND 
THE OPERAND. POINTI 
VALUE MAY BE NEGATIVE. 



♦ ♦ 

* D4 *.X 



* SINGLE 

ASSIGNMENT 
*. *A5 



* LOAD WRKRG3 * 

* WITH KEY OF * 
♦UNIT CLASS FROM* 
*P0!NT1 *B5* 
#4c««4(*4c^****«4'*^« 



«4t««4eO 5 ♦♦*****♦♦♦ 

♦ ♦ 

♦ MOVE ARGUMENT ♦ 
.X+ XXX TO TLUNIT ♦ 

♦ +3 ♦ 

♦ -SYSXXX- ♦ 
4c««#Dt4t4>*«^4t^*«^#« 



«**«E5«Dc#4<*^*^* 

* HfcTU$<i^ * 

* TO ♦ 

* CALLER ♦ 
^■^♦♦♦♦♦♦♦♦♦♦*** 



F4 *. ♦♦♦♦♦p5 *♦♦♦♦♦♦♦♦* 

.♦ ♦. ♦ CONVERT LOG ♦ 

* *. NO * WITH NO. TO * 

SYSTEM UNIT .* X* EBCDIC IN ♦ 

*. .* * TLUNIT +3 * 

*. .* * -SYSXXX FF- * 

*, ,♦ DC**************** 



BUILD LOGICAL 

UNIT POINTER 

IN WRKRG3 



4i4c*«*4e*«^*««^4c««« 



««««4cH4^^^^^^^^^^ 

♦ MULTIPLY ♦ 

♦ POINTER BY 5 * 

♦ TO DEVELOP * 

♦ TABLE * 

♦ DISPLACEMENT * 

4c*«*«««Xc«*««««4c4c^ 



3)c««^4cJ4«4cDc«^4c«*«« 

♦ADD SYSTEM UNIT^ 

♦ TABLE ADDRESS ♦ 

♦ DISPLACEMENT ♦ 

♦ FOR LOG UNIT ♦ 

♦ ADDR IN TABLE ♦ 
«***«*««* ^''((♦♦♦^♦^ 



*Dc«*«K4^^^^^^**** 

* ♦ 

* MOVE LOGICAL * 

* UNIT TO *. 

* TLUNIT +3 ♦ 

* -SYSXXX- ♦ 
«4c***4c4c4c««4c^«*4>^* 



* ♦ 

* K5 ♦ 

* ♦ 



♦ ♦ 

♦ A2 ♦ 

♦ ♦ 
♦♦♦♦ 
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Chart TB. $$BISTIO - Cperand Identification Si2hrci:tine 
Refer to Chart 11. 



* FNDARG * 

♦ ♦ 



* INITIALIZE ♦ 

* REGISTERS ♦ 

* *A2 ♦ 

* *A2* 



♦A2 

1. POINTl EQUALS THE EXIT 
ADDRESS EXIT OR ALLXT. 

2. WRKRG4 EQUALS 0. IT IS 
USED AS A DISPLACEMENT 
INDEX VALUE TO SELECT 
THE CORRECT BRANCH 
INSTRUCTION IN THE 
BRANCH TO WHICH LINKRI 
IS THE POINTER. 

3. WRKRG2 EQUALS 1. IT 
INDICATES THE SECTIONS 

OF THE LUB TABLE 1. 2f 4 

4. WRKRG3 EQUALS 0. IT 
INDICATES A KEY VALUE 
POINTER TO THE LOGICAL 
UNIT CLASS. 



*A3 
REGISTER 15 IS THE 
BASE REGISTER FOR 
THIS TRANSIENT. IT 
IS NOT RESTORED BY 
THIS ROUTINE. 



FNDARG5 

* SET RETURN * 



«4t:4e««*«««j)c:|c««**«« 



* * 

* B4 * 

:«> * 
**♦* 



NO .* IS *. YES 

...*. OPERAND .*.... 

*. ALL .* 

*. .♦ 



OPERAND 

SYS 

*. .* 

♦ . .* 

* NO 



♦ * 

♦ SET WRKRG3 ♦ 

♦ TO I ♦ 

♦ -KEY FOR * 

♦ PROG OPER.- ♦ 



*♦*♦ 

♦ ♦ 

♦ H5 ♦ 

♦ ♦ 
♦**♦ 



* SET LUB COUNT * 

* IN WRKRG2 TO ♦ 
*2 AND SET EXIT * 

* ADDR. IN ♦ 
♦POINTl TO ALLXT* 



^litl:|^!^t*:t********* 



* INITIALIZE ♦ 

* TRANSIENT * 

* SWITCH BANKT * 
*T0 OFF -HEX 00-* 

* ♦ 



*itt«««E2*****«**4<* 

♦ GET * 

♦ COMMUNICATION * 
♦REGION ADDRESS ♦ 

♦ FROM LOCATION ♦ 

♦ HEX 16 ♦ 



♦ GET PIB TABLE * 

♦ ADDRESS FROM ♦ 

♦ COMMUNICATION * 

♦ REGION PLUS ♦ 

♦ 90 * 



^^^'♦♦G2 ♦♦♦♦♦♦♦♦♦♦ 
♦GET ADDRESS OF ♦ 
♦LOGICAL TRANS. ♦ 
♦BUCKET. L.T.B.,* 
♦FROM PIB TABLEP* 
♦LUS 8 ♦HI* 



♦ 84 * 

♦ ♦ 
*♦** 



♦ G3 ♦ 

♦ * 
**♦♦ 



♦ HI 
L.T.B. CONTAINS THE ADDRESS 
OF THE SAVE AREA WHERE 
REGISTERS HAVE BEEN SAVED 
BY THE SUPERVISOR. 



♦ Jl 

RETURN TO THE ROUTINE THAT 
FETCHED $$BLSTIO BY 
BRANCHING ON REG LINKR2. 
LINKR2 WAS LOADED WITH THE 
RETURN ADDRESS BY THE 
FETCHING ROUTINE AND WAS 
SAVED BY THE SUPERVISOR TO 
BE RESTORED BY THIS ROUTINE. 



♦ RESTORE REGS ♦ 
♦9-14 FROM SAVE * 

♦ AREA PLUS 16 ♦ 

♦ ♦A3 ♦ 

♦ ♦ 



«*««4'J2^^^^^^^^^^ 

♦ RESTORE ♦ 

♦ REGISTERS ♦ 

♦ 0-8 FROM SAVE ♦ 

♦ PLUS 44 ♦ 

♦ ♦ 



*#««K2 ♦♦♦♦♦♦♦♦♦ 

♦ RETURN TO ♦ 

♦ ADDRESS IN ♦ 

♦ LINKR2 ♦Jl ♦ 
4c4i***#***«**«*« 



* SET RETURN ♦ 

* CODE ♦ 

* WRKRG4 EQ ♦X 

* TO 8 * 

* ♦ 
^(^[^(♦♦♦♦♦♦♦♦♦♦♦*^* 



IS 

OPERAND 
UNITS 



:(c««4c*C 5 ♦♦*♦♦♦♦♦♦♦ 

* ♦ 

* SET LUB ♦ 

* COUNT =2 ♦ 

* -WRKRG2- ♦ 

* * 



* SET RETURN * 

* CODE ♦ 

* WRKRG4 EQ *X 

* TO 12 * 

* * 

4:4<****^***^****** 



IS 

OPERAND 
CUU 



«««4>*E3^^^^**^**^ 

♦ SET RETURN ♦ 

♦ CODE ♦ 

♦ WRKRG4 EQ ♦X 

♦ TO 16 ♦ 

♦ * 



««:(c««E 5 ♦♦♦♦♦♦♦♦♦♦ 



Hi :(c« *« 4t* ****** ♦**« 



♦X. 



♦ SET RETURN * 

♦ CODE TO 20 ♦ 

♦ ASSUM SYSXXX 

♦ OPERAND AND ▼ 

♦ SET LUBCNT=1 * 

♦*♦♦ 



♦♦♦♦ 
Y X 

*****{;3 ****«*:**** 

♦ CALCULATE ♦ 

♦ PARTITION CLASSY 
♦DEPENDING UPON ♦ 
♦OPERAND AND NO.* 

♦ OF PARTITIONS ♦ 
***************** 



1. EXIT FROM THIS 
ROUTINE IS TO THE 
BRANCH TABLE IN THE 
CALLING SEQUENCE. 
LINKRGl PLUS THE 
DISPLACEMENT IN 
WRKPG4 SELECTS THE 
CORRECT BRANCH 
INSTRUCTION TO 
TRANSFER CONTROL 

TO THE CORRECT 
PROCESSING ROUTINE. 

2. POINTl CONTAINS 
LOGICAL UNIT CLASS 
POINTER. 

3. WRKRG2 CONTAINS 
THE LUB COUNT 

1, 2, 4, 6, 8, OR 10. 



* G5 *. X. 

* * 
**** 

ALLXT X 

♦♦♦♦*f;5 «***«#*«*« 

* REDUCE CLASS ♦ 

* KEY,WRKR3, ♦ 

* BY PARTITION * 

* NO. VALUE * 

* ♦KS ♦ 
***************** 

**♦* I 

* * . 

* H5 *.X. 

* * . 
**♦* 

EXIT X 

«****H 5 ♦**♦♦♦♦♦♦* 

* LOAD CLASS * 
♦INTO REG POINTl* 

* FOR RETURN. ♦ 

* -VALUE MAY * 

* NEGATIVE- ♦ 
***************** 



***«jS***^^^^^^ 

♦ RETURN TO ♦ 

♦ LINKR1+ ♦ 

♦ WRKRG4 *G4 * 

****«;********** 



♦K5 

.BG F4 F3 F2 Fl. 
LOGICAL 

TRAN. KEY. 10 20 30 40 50. 

part!* NO* r * ! 

VALUE .00 02 04 06 08. 






262 DCS/VS IPL and Job Control 



Chart TC. $$BLSTIO - Build Print line Subroutine 
Refer to Chart 11. 



♦ suLe ♦ 



♦ LOAD HRKRG3 ♦ 

♦ WITH ADDRESS ♦ 

* OF I/O BUFFER * 

* * 



* MOVE TLUNIT ♦ 

* TO LUNIT IN ♦ 

* BUFFER+1 * 

* -SYSXXX- * 

* *J1 * 



* MOVE TCMNT ♦ 

* TO LCMNT IN ♦ 

* BUFFER+12 ♦ 



IS 

LUB 

IGN 



SULB2 

* MOVE TCHNL * 

* TO LCHNL IN * 
...X* BUFFER+20 * 



♦***A4********* 

♦ SEUOB ♦ 

* * 



SEUOB 

♦INIT REGISTERS ♦ 

* WRKRG3 EQ * 

* BUFFER ADOR * 

* HRKRG4 EQ * 

* PUB ADDR * 



* ♦ 

* CLEAR I/O * 

* BUFFER TO ♦ 

* BLANKS ♦ 

* ♦ 



* MOVE CHANNEL * 

* TO BUFFER * 

* FROM * 

* TCHNL. * 

* I-BYTE * 



* MOVE UNIT * 
♦TO BUFFER FROM * 

* TUNIT. * 



♦ MOVE **UA** * 

♦ TO LCHNL IN ♦ 

♦ BUFFER+20 ♦ 

♦ * 

♦ *J1 * 
^if *************** 



**if**f2********** 

♦ MOVE ♦*IGN** ♦ 

♦ TO LCHNL IN ♦ 

♦ BUFFER+20 * 



*«*«4cF3**»4'*«*4'«* 

* MOVE TUNIT * 

* TO LPUNIT IN * 

* BUFFER+26 * 



4t4(4r«* Q3 ^cite 4i*#«4<* ** 

* MOVE TMODE * 

* TO LMODE IN ♦ 

* BUFFER+33 ♦ 



IS 

DEVICE 

DOWN 



**itt**f^ ********** 

* * 

* MOVE -DOWN- ♦ 
. X*TO THE T/0 UNIT* 

♦FIELD IN BUFFER* 

* * 

i)l******if^Ci^Jlf^C***** 



SEU0B2 

* BUILD ♦ 

* REMAINDER OF ♦ 

* PRINT LINE * 

* BUFFER * 

* ♦J4 * 
****Hi*iliit'********* 



****Y^3********* 

♦ RETURN TO * 

♦ CALLING ♦ 

♦ SEQUENCE * 
4c*4t««4c4<« ♦**««♦« 



♦Jl 
LUNIT LCMNT 
-SYSXXX^ XXX — 



LCHNL LPUNIT LMODE 
— **-UA-** XX XX 
**- IGN-*^ 



*J4 
1. 
2. 
3. 



MOVE OWNER TO OWNER FIELD 

MOVE MODE FROM TMODE TO MODE FIELD 

MOVE LOGICAL UNIT FROM TLUNIT TO 

I/O UNIT FIELD 

HOVE THE COMMENT FROM TCMNT TO THE 

COMMENT FIELD-MODE LESS 6 BYTES 
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Chart TD, $$BISTIO - Euild Header Subroutine 
Befer to Chart 11. 



* * 

♦ PSHRTN ♦ 



4i«4<4t#iK4t4'«;*4<*«4c««4c 



♦ ♦ 

♦ HOVE CHANNEL * 

♦ AND UNIT * 

♦ HEADING TO ♦ 

♦ OUTPUT BUFFER * 



* LHRTN * 

* * 



LHRTN X 

♦COMPUTE LOGICAL* 

* UNIT CLASS * 
♦WRKR4J, RELATIVE* 

* TO THIS * 
*PART1TI0N *A5* 
itc4<i|(4i*4c4c4t***4i4e*«*« 



««***C34c«4i*Xc4<«4t4c« 

* LOAD * 

* WRKRG4 WITH * 

* DISPLACEMENT * 

* TO CORRECT * 

* HEADER *B5 * 



B6 F2 Fl 

'.lolaoUo 



*B5 
PARTITION VALUE 
NUMBER + CLASS 
KEYt POINTl (FROM 
FNOARG ROUTINE) X2 
= DISPLACEMENT 
INTO HEADING 
INDEX TABLE. 



4t4t«*«E I***4i*****« 
» * 

♦ MOVE OWNER ♦ 
•FLAG HEADING TO* 

♦ OUTPUT BUFFER ♦ 

♦ * 

4i«:«*4<4c**********« 



* * 

* LOAD WRKRG4 * 

* WITH ADDRESS * 

* OF CORRECT * 
♦HEADER *E5* 

>|i4t*4i*Ki4t**«i|e««3|>*** 



4t4c««4tE3 *♦♦♦*♦♦*♦♦ 

* ♦ 

* MOVE HEADER * 

* TO OUTPUT ♦ 

* BUFFER * 

* * 



♦HOVE I/O UNIT, ♦ 

♦ MODE AND ♦ 
♦COMMENT HEADING^ 

♦ TO BUFFER ♦ 
^^(♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



♦E5 
HEADER ADDRESS 
EQUALS INDEX 
DISPLACEMENT 
IWRKRG4) + 
CONTENTS REG 15, 
REG 15 = BASE 
REG OF $<8LSTI0 
TRANSIENT. 



♦ F4 

PARTITION ID .BG.FA.F3.F2.fi. 

PARfifi6N""*166*62'04*66l08^5'PARTITi6NSC 
VALUE 

NUMBER .O0.~.02.04.06.4 PARTITIONS. 

I l00'--I--I6K04*3*PARtiTl6NS! 

I IooI--I--I--I62*2*PARTlfi6NS! 



«*««H3 ♦♦♦♦♦♦♦♦♦ 

♦ RETURN TO ♦ 

♦ CALLING SEO ♦ 

♦ ♦ 
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APPENDIX A; LABEL LIST 



Label 

SDASDOOO 
SDASDOIO 
SRSTIERR 
$RST1050 
$RST1080 
$R ST 1090 
$RST2ERR 
$RST3ERR 
SSIZE 

#FAVP 

#RSTC050 

#RST0080 

#RSTC200 

#RSTC800 

#RST0900 

#RST1010 

#RST1020 

#RST1030 

#R ST 2000 

#RST4ERR 

#RST8000 

#RST9000 

ABNCHK 

ABNEND 

ACCNTl 

ACCTBRl 

ACCTBR2 

ACCTBR3 

ACCTBR5 

ACCTCL 

ACCTIGN 

ACCTIGNl 

ACCTIGN2 

ACCTIGN3 

ACCT1GN4 

ACCTIGN4 

ACCTIGN5 

ACCTIGN6 

ACCTLVl 

ACCTSIMR 

ACCTUPOT 

ACCTUPDT 

ACLE)CP 

ACTION 

ACTRSP 

ACTTEST 

ADDRTN 

AOR 

ADR EST 

ALCERR 

ALCERR2 

ALCNEXT 

ALCPFIX 

ALCRTN 

ALIGN 

ALLOC 

ALLOCR 

ALLXT 

ARND 



Phase 


Location 


SJOBCTLB 


HGBl 


SJOBCTLB 


HGCl 


SJOBCTLB 


HD05 


SJOBCTLB 


HDC3 


SJOBCTLB 


HDJ2 


SJOBCTLB 


H0J3 


SJOBCTLB 


HDG4 


SJOBCTLB 


HDGl 


SJOBCTLB 


HGB4 


SJOBCTLB 


HFC2 


SJOBCTLB 


HADl 


SJOBCTLB 


HAA3 


SJOBCTLB 


HCA3 


SJOBCTLB 


HCE3 


SJOBCTLB 


HCH3 


SJOBCTLB 


HAC2 


SJOBCTLB 


HBB3 


SJOBCTLB 


HBA2 


SJOBCTLB 


HBH2 


SJOBCTLB 


HBC3 


SJOBCTLB 


HBK3 


SJOBCTLB 


HCA4 


SIPLRT2 


CHOI 


SIPLRT2 


CHD2 


SJOBCTLE 


LAG3 


SJOBCTLA 


GBG2 


SJOBCTLG 


NBE3 


SJOBCTLG 


NCG3 


SJOBCTLG 


NAE4 


SJOBCTLA 


GBK2 


SJOBCTLF 


HMC3 


SJOBCTLE 


LBF3 


SJOBCTLG 


NEH4 


SJOBCTLA 


GAD4 


SJOBCTLA 


GBAl 


SJOBCTLG 


NBGl 


SJOBCTLG 


NCA3 


SJOBCTLG 


NCK3 


SJOBCTLA 


GBH3 


SJOBCTLG 


NAJ4 


SJOBCTLF 


MMB3 


SJOBCTLJ 


PMJl 


SJOBCTLE 


LNGl 


SJOBCTLJ 


POBl 


SJOBCTLA 


GCAl 


SJOBCTLF 


MSH3 


SIPLRT3 


OABl 


SJOBCTLA 


GXEl 


$IPLRT4 


EFB3 


SIPLRT2 


CJJ3 


SIPLRT2 


CJH4 


SIPLRT2 


CJD2 


SIPLRT2 


CJH2 


$IPLRT2 


CJB2 


SJOBCTLG 


NHJ2 


SJOBCTLJ 


PQBl 


SJOBCTLJ 


PRBl 


SSBLSTIO 


TBG5 


SJOBCTLG 


NNFl 



Label 

ARNDl 

ASGEND 

ASNEND 

ASNLPl 

ASNLP2 

ASNOWNl 

ASNRTN 

ASSGN 

ASSGN 

ASSGNB4 

ASSGNB6 

ASSGN B6A 

ASSGNB6D 

ASSGNB7 

ASSGNC 

ASSGNDIB 

ASSGN IT 

ASSGNLST 

ASSGNP 

ASSGNPl 

ASSGNP2 

ASSGNR 

ASSGNVl 

ASSGNV2 

ASSGNO 

ASSGNOO 

ASSGNIO 

ASSGNIOl 

ASSGNll 

ASSGN12 

ASSGN20 

ASSGN21 

ASSGN 23 

ASSGN23A 

ASSGN24 

ASSGN26 

ASSGN27 

ASSGN28 

ASSGN 29 

ASSGN3 

ASSGN 3A 

ASSGN30 

ASSGN31 

ASSGN32 

ASSGN 34 

ASSGN35 

ASSGN36 

ASSGN38 

ASSGN39 

ASSGN40 

ASSGN 403 

ASSGN404 

ASSGN41 

ASSGN42 

ASSGN43 

ASSGN6 

ASSGN7 

ASSGN8 

ASSGN901 

ASSNALT 

ASSPERM 



Phase 


Location 


SJOBCTLG 


NNG4 


SIPLRT5 


FFF5 


SIPLRT4 


EHEl 


SIPLRT4 


EHJ2 


SIPLRT4 


EHCl 


SIPLRT4 


EHB3 


S1PLRT4 


EHBl 


SIPLRT5 


FFJ3 


SJOBCTLO 


JABI 


SJOBCTLD 


JJB4 


SJOBCTLO 


JGAl 


SJOBCTLD 


JEFl 


SJOBCTLO 


JEC3 


SJOBCTLO 


JPAl 


SJOBCTLD 


JAJ2 


SJOBCTLD 


JF03 


SJOBCTLO 


JNC4 


SJOBCTLD 


JFF2 


SJOBCTLD 


JDFl 


SJOBCTLD 


JDD2 


SJOBCTLO 


JDE2 


SJOBCTLD 


JAF2 


SJOBCTLO 


JAB3 


SJOBCTLO 


JAC3 


SJOBCTLO 


JAD3 


SJOBCTLD 


JAB5 


SJOBCTLO 


JKB4 


SJOBCTLD 


JKE3 


SJOBCTLO 


JKH5 


SJOBCTLO 


JKC4 


SJOBCTLD 


JMCl 


SJOBCTLD 


JECl 


SJOBCTLD 


JMGl 


SJOBCTLD 


JMC3 


SJOBCTLD 


JNB3 


SJOBCTLD 


JHF3 


SJOBCTLD 


JHH3 


SJOBCTLO 


JNDl 


SJOBCTLD 


JPHl 


SJOBCTLD 


JAG3 


SJOBCTLD 


JOAI 


SJOBCTLD 


JPH2 


SJOBCTLO 


JPKl 


SJOBCTLD 


JPA2 


SJOBCTLD 


JGC3 


SJOBCTLD 


JGB2 


SJOBCTLD 


JHB3 


SJOBCTLD 


JPC3 


SJOBCTLD 


JREI 


SJOBCTLO 


JQB4 


SJOBCTLD 


JDGl 


SJOBCTLD 


JEAl 


SJOBCTLO 


JQA2 


SJOBCTLD 


JQJ2 


SJOBCTLD 


JQF5 


SJOBCTLD 


JKCl 


SJOBCTLD 


JKD2 


SJOBCTLD 


JKB3 


SJOBCTLO 


JGJ2 


SJOBCTLD 


JRBl 


SJOBCTLO 


JMEl 
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Label 

ASSTEMP 
ATNCUU 
ATNCUUl 
AUTONK 

BACK 

B8GSSXXX 

BCHEST 

BEGIN 

BEG I PL 

BEGXCUU 

BFSMALL 

BILOIB 

B INC ON 

BLDHDROO 

BLDHDR05 

BLDHDRIO 

BLDHDR20 

BLDIPLOO 

BLDIPL05 

BLOIPLIO 

BLDIPLI5 

BLDIPL20 

BLDIPL25 

BLDOBROO 

BLD0BR05 

BLDOBRIO 

BLD0BR15 

BLD0BR20 

BL00BR50 

BLDPUB 

BLDP2T00 

BLDP2T05 

BL0P2TI0 

BL0P2T12 

BLDP2T20 

BLDP2T25 

BLDP2T30 

BLDP2T40 

6LNLD 

BMPXINT 

BMPXLP 

BMPXMCR 

BMPXNBT 

BMPXNXT 

BMPXPT 

BMPXRTN 

BMPXSCN 

BMPXSWI 

BMPXSW2 

BMPXTST 

BMPXUNS 

BMPXZER 

BSTOFF 

BSTOK 

BTLOOP 

BTLOOP 

BTOFRT 

BTONRT 

BUILDCOM 

BYPASS 

CALL 

CALLSEOJ 
CALLNORM 
CANCEL 



Phase 


Location 


SJOBCTLO 


JNBI 


SJOBCTLA 


GVBl 


$JQBCTLA 


GVFl 


SJOBCTLE 


LDF3 


$JOBCTLN 


SBC3 


$JOBCTLD 


JAEi 


$IPLRT3 


DEDI 


$IPLRT2 


CABI 


$$A$IPL2 


BACI 


SJOBCTLD 


JLC2 


SJOBCTLM 


RKF2 


SJOBCTLB 


HFAl 


$JOBCTLJ 


PUB5 


SJOBCTLM 


RHB4 


$JOBCTLM 


RHC4 


SJOBCTLM 


RH04 


SJOBCTLM 


RHF5 


SJOBCTLM 


RJBl 


SJOBCTLM 


RJOl 


SJOBCTLM 


RJGl 


SJOBCTLM 


RJF2 


SJOBCTLM 


RJH3 


SJOBCTLM 


RJJ2 


SJOBCTLM 


REAl 


SJOBCTLM 


REF5 


SJOBCTLM 


REF2 


SJOBCTLM 


REF3 


SJOBCTLM 


REH2 


SJOBCTLM 


REB2 


SIPLRT3 


DEBl 


SIPLRT4 


EKBl 


SIPLRT4 


EKHl 


SIPLRT4 


EKB3 


SIPLRT4 


EKC3 


SIPLRT4 


EKD3 


SIPLRT4 


EKE3 


SIPLRT4 


EKH3 


SIPLRT4 


EKK2 


SJOBCTLF 


MQD5 


SIPLRT4 


EREl 


SIPLRT4 


ERG3 


SIPLRT4 


ESE2 


SIPLRT4 


ERC3 


SIPLRT4 


ERGl 


SIPLRT4 


ERA5 


SIPLRT4 


ERBI 


SIPLRT4 


ERD3 


$1PLRT4 


ERJ3 


SIPLRT4 


ERE5 


SIPLRT4 


ESD2 


SIPLRT4 


ESB3 


SIPLRT4 


ERFl 


SIPLRT3 


DFHI 


SIPLRT3 


DFJl 


SJOBCTLA 


GCA5 


SJOBCTLG 


NGB3 


SJOBCTLJ 


PKF4 


SJOBCTLJ 


PKF3 


SSASIPL2 


BBK3 


SJOBCTLJ 


P0H5 


SJOBCTLE 


LPAl 


SJOBCTLN 


$AF2 


SJOBCTLE 


LPA2 


SJOBCTLG 


NFB5 



Label 


Phase 


Location 


CATAL 


SJOBCTLG 


NJBl 


CATAL 


SJOBCTLJ 


PNBl 


CAT CODE 


$IPLRT5 


FAE3 


CATNAME 


SJOBCTLE 


LFE5 


CCWl 


SSASIPLl 


AAC3 


CCW2 


SSASIPLl 


AAD3 


CCW3 


SSASIPLl 


AAE3 


CCH4 


SSASIPLl 


AAF3 


CCW5 


SSASIPLl 


AAG3 


CDSCH 


SIPLRT2 


CCE5 


CHAIN 


SJOBCTLA 


GJE2 


CHCKDOC 


SIPLRT4 


ENDl 


CHCLOP 


SIPLRT3 


DECl 


CHCNT 


SIPLRT3 


DEEl 


CHECKCU 


SIPLRT5 


FFB2 


CHECKSZ 


SJOBCTLE 


LEE2 


CHECKS I 


SJOBCTLE 


LEGl 


CHECKXNT 


SIPLRT5 


FCD2 


CHEK3340 


SIPLRT3 


DFB3 


CHEXT 


$IPLRT3 


DGD4 


CHFIN 


SIPLRT3 


0EJ2 


CHGSTT 


SJOBCTLJ 


PUG4 


CHKASG 


SJOBCTLA 


GUB3 


CHKASG3 


SJOBCTLA 


GUD3 


CHKCNL 


SJOBCTLA 


GWB2 


CHKCNT 


SJOBCTLA 


GJB4 


CHKCOM 


SIPLRT4 


EBK3 


CHKCSW 


SSA$IPL2 


BDF2 


CHKCSWl 


S$ASIPL2 


BDK2 


CHKCSW2 


SSASIPL2 


B0B4 


CHKDIB 


SJOBCTLD 


JFB2 


CHKJIB 


SJOBCTLA 


GFD5 


CHKLP 


SIPLRT3 


DGDl 


CHKLST 


SJOBCTLA 


GFA3 


CHKNXC 


SJOBCTLD 


KAC4 


CHKNXC 


SJOBCTLK 


QRD3 


CHKOPN 


SJOBCTLD 


KJB3 


CHKOPNl 


SJOBCTLD 


KJC3 


CHKOPN 2 


SJOBCTLD 


KJB4 


CHKOV 


SJOBCTLE 


LRBl 


CHKOVR 


SJOBCTLA 


GTA3 


CHKPGU 


SJOBCTLJ 


PTC4 


CHKPUB 


SJOBCTLF 


HPB2 


CHKPUN 


SJOBCTLK 


0HA4 


CHKRAS 


SIPLRT4 


ECC4 


CHKRNG 


SJOBCTLD 


KAB4 


CHKRNG 


SJOBCTLK 


QRC3 


CHKRNGl 


SJOBCTLK 


QRB3 


CHSLOP 


SIPLRT3 


DGJ5 


CHSWFCL 


SIPLRT4 


ETG3 


CHSWIST 


SIPLRT4 


ETC3 


CHSWLP 


SIPLRT4 


ETA3 


CHSWNXT 


SIPLRT4 


ETD2 


CHSWOFF 


SIPLRT4 


ETJ4 


CHSWRTN 


SIPLRT4 


ETBl 


CHULOP 


SIPLRT3 


0GE4 


CI-UPD 


SIPLRT3 


DGH4 


CHURTN 


SIPLRT3 


0GB4 


CILPCIL 


SJOBCTLE 


LMB3 


CINIT 


SJOBCTLE 


LPC3 


CKCLAS 


SJOBCTLF 


MPJl 


CLBLUB 


SJOBCTLF 


MPJ3 


CLCKCHK 


$IPLRT4 


EAFl 


CLOLPI 


$IPLRT4 


EEE4 


CLDLP2 


SIPLRT4 


EEJ4 


CLDRTN 


$IPLRT4 


EEB4 
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Label 



Phase 



Location 



CLEAR 


$$A$IPL2 


BADl 


CLEAR 


$IPLRT2 


CAK4 


CLEAR 


SJOBCTLB 


HFBl 


CLEARFIN 


$IPLRT2 


CAA5 


CLNOTOP 


$IPLRT2 


CBC2 


CLNOTSET 


$IPLRT2 


CBA4 


CLOSE 


SJOBCTLD 


JSBl 


CLOSED 


SJOBCTLD 


JSA4 


CLOSEL 


SJOBCTLO 


KDEl 


CLOSER 


SJOBCTLD 


KDB2 


CLOSEl 


SJOBCTLD 


KCB4 


CL0SE2 


SJOBCTLO 


JSK2 


CL0SE3 


SJOBCTLO 


JSC5 


CLOSET 


SJOBCTLD 


JSG2 


CLRDIB 


$JOBCTLD 


KDBl 


CLROIBl 


SJOBCTLO 


KDB4 


CLR0IB2 


SJOBCTLO 


KDC4 


CLRDIB3 


SJOBCTLO 


KDA5 


CLRDIB5 


SJOBCTLO 


KDJ5 


CLRON 


SJOBCTLF 


MPB3 


CLRl 


$JOBCTLK 


QBD5 


CLRl 


$JOBCTLN 


SBD5 


CLSDU 


SJOBCTLD 


KDG2 


CNCLMD 


$JOBCTLA 


GHC4 


CNCLHODl 


SJOBCTLA 


GWF4 


CNIOAG 


$JOBCTLD 


KMD2 


CNKLNK 


$JOBCTLG 


NMB2 


CNUNCO 


SJOBCTLJ 


PTB4 


CNUNCOl 


$JOBCTLJ 


PTD5 


CNVBCO 


SJOBCTLF 


MQB5 


CNVRT 


SJOBCTLE 


LTB2 


CNVRTL 


SJOBCTLE 


LTD2 


CNVRTS 


SJOBCTLE 


LTG2 


CODE CO 


SJOBCTLM 


RPBl 


C0DEC5 


SJOBCTLH 


RPCl 


CODE 10 


SJOBCTLM 


RPDl 


CODE 15 


SJOBCTLM 


RPEl 


COMCHK 


$IPLRT4 


EEB2 


COMDOK 


$IPLRT4 


EBD3 


COMLOG 


$IPLRT4 


ECK5 


COMLOP 


$IPLRT4 


EEC2 


COMNFD 


$IPLRT4 


EBA4 


COMPAR 


SJOBCTLE 


LGF2 


COMPDAY 


SIPLRT4 


EFE2 


CONCAT 


SJOBCTLK 


QMB4 


CONDSCK 


SJOBCTLD 


JPC4 


CONTIN 


SSASIPL2 


BAF2 


CONTINUE 


SJOBCTLN 


SBEl 


CONTROL 


SJOBCTLA 


GCBl 


C0NT3 


SJOBCTLA 


GCHl 


C0NT4 


SJOBCTLA 


GCG2 


C0NT5 


SJOBCTLA 


GCH2 


C0NT6 


SJOBCTLA 


GCA4 


CONVERT 


SJOBCTLJ 


PSB3 


COPYLP 


SJOBCTLJ 


PDF3 


CPBFEND 


SIPLRT4 


EEH3 


CPYSLB 


SIPLRT4 


EGB3 


CPYSRT 


SIPLRT4 


EGB4 


CRJBSQ 


SJOBCTLG 


NAA5 


CRTTSTl 


SJOBCTLG 


NCF5 


CSET 


SJOBCTLE 


LPJ3 


CTRLSW 


SJOBCTLA 


GFJ3 


CYCLE 


SIPLRT4 


EAHl 


CYLDP - 


SIPLRT4 


ECDl 


C48 


SJOBCTLG 


NH63 


C60 


SJOBCTLG 


NHG4 



Label 


Phase 


Location 


DATE 


SJOBCTLJ 


PHB2 


DATIMERT 


$IPLRT4 


EFBl 


DBLSCN 


$IPLRT3 


0AA3 


DCUXTN 


SJOBCTLA 


GFF5 


DDLUB 


SIPLRT2 


CGE2 


DECIDE 


SSBCARTR 


FGB3 


DECK 


SJOBCTLG 


NHBl 


DECLP 


$IPLRT2 


^ CGC5 


DECRL 


$IPLRT2 


CFD2 


DECRR 


SIPLRT2 


CFE4 


DECRTN 


$IPLRT2 


CGB5 


DELETION 


SIPLRT5 


FCC3 


OELLOP 


SIPLRT3 


DCA3 


DELRTN 


SIPLRT3 


DCAl 


DEQUE 


SJOBCTLB 


HFA5 


DETACH 


SJOBCTLF 


MMBl 


DETACHR 


SJOBCTLF 


MMB4 


DETACHl 


SJOBCTLF 


MMFl 


DETACH2A 


SJOBCTLF 


MME2 


DETACH3 


SJOBCTLF 


MWF3 


DEVOPER 


SSBCARTR 


FGD3 


DEVSCAN 


SJOBCTLD 


JJBl 


DIBRC 


SJOBCTLJ 


PHHl 


DLAB 


SJOBCTLK 


QFBl 


DLBL 


SJOBCTLK 


QEBl 


DLBLl 


SJOBCTLK 


QEDl 


DLBOUT 


SJOBCTLK 


QFA5 


ONEERR 


SJOBCTLJ 


PVC3 


DOC IN IT 


SIPLRT4 


ENJ2 


DOCRTN 


$IPLRT2 


CBF5 


DOFFS ET 


SJOBCTLA 


GRE2 


D0P34 


SJOBCTLK 


QHBl 


DOWN 


SJOBCTLF 


MEB3 


DPDCODE 


SIPLRT5 


FAG3 


DQXTNT 


SJOBCTLG 


NN05 


DSDPl 


SIPLRT4 


EDC4 


DSDP2 


SIPLRT4 


EDE4 


DS0P3 


SIPLRT4 


EDH4 


DSDP4 


SIPLRT4 


E0J4 


DSDRET 


SIPLRT4 


E0E5 


DSDRTN 


SIPLRT4 


E0B4 


DSKDEV 


SJOBCTLE 


LTB5 


DSKIND 


SJOBCTLA 


GRH2 


DSKINIT 


SJOBCTLE 


LTB4 


DSKINT 


SJOBCTLA 


GFBl 


DUDFB 


SJOBCTLA 


GQB4 


DUD FT 


SJOBCTLA 


GRF4 


DULO 


SJOBCTLA 


GSCl 


DUMP 


SJOBCTLG 


NKJ3 


DVCDN 


SJOBCTLF 


MHBl 


DVCDNC 


SJOBCTLF 


MJFl 


DVCDNS 


SJOBCTLF 


MJBl 


DVCDN X 


SJOBCTLF 


MJF5 


DVCDN 00 


SIPLRT4 


ELBl 


DVCDN 10 


SIPLRT4 


ELGl 


DVCDN 14 


SJOBCTLF 


MHC2 


DVCDN 14A 


SJOBCTLF 


MHG2 


DVCDN 14B 


SJOBCTLF 


MHH2 


DVCDN 15 


SIPLRT4 


ELF2 


DVCDN 2 5 


SIPLRT4 


ELG2 


DVCDN 3 


SJOBCTLF 


MHB5 


DVCDN 30 


SIPLRT4 


ELJ2 


DVCDN 5 


SJOBCTLF 


MHB4 


DVCDN 6 


SJOBCTLF 


MJJl 


DVCDN 7 


SJOBCTLF 


MJF4 


DVCDNS 


SJOBCTLF 


MJH2 


Append 
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Label 

DVCUP 

ECFINCR 

ECFLOOP 

ECFLOOPl 

EOECK 

EJBKSWCH 

ENOFORM 

ENDING 

ENDIRRD 

ENOL IM 

ENOLOOP 

ENDMONTH 

ENDOPSCN 

END SCAN 

ENFND 

ENTRYOK 

EODADDR 

EOF 

EOFPRC 

EOJ 

EOJ 

EOJBY 

EOJNRF 

EOJPIB 

EOJPIBl 

EOJl 

EREXIT 

ERRAP 

ERRAPl 

ERRENO 

ERROFF 

ERROR 

ERRORO 

ERRORl 

ERR0R2 

ERRRTN 

ERRRTN 

ERRRTNl 

ERRRTNl 

ERRRTN2 

ERRRTN2 

ERRRTN2 

ERRS 

ERRTN 

ERROIOOA 

ERROIOIA 

ERR0I02A 

ER1121 

ESTVOPEN 

EXBKSWCH 

EXCCON 

EXCECP 

EXCEDT 

EXCP 

EXCP 

EXCPGO 

EXCPRG 

EXCPROG 

EXCPROGl 

EXCPRQG2 

EXCPR0G3 

EXCPR0G4 

EXCP SVC 

EXEC 

EXEC 



Phase 


Location 


$JOBCTLF 


MLB2 


$$A$IPL2 


BDJ5 


S$A$IPL2 


BDG4 


$$A$IPL2 


BDG5 


SJOBCTLG 


NHJ4 


SJOBCTLN 


SBG2 


$IPLRT5 


FDE3 


$JOBCTLJ 


PDH4 


SJOBCTLE 


LGB3 


SJOBCTLJ 


PQG5 


$IPLRT4 


EAC4 


$IPLRT4 


EFG2 


$JOBCTLD 


JDBl 


SJOBCTLO 


JJJ5 


$IPLRT3 


DEKl 


SJOBCTLE 


LHF3 


SJOBCTLO 


KDF2 


$IPLRT4 


EMA5 


SJOBCTLA 


GTD2 


$JOBCTLG 


NDCl 


SJOBCTLN 


SAB3 


SJOBCTLG 


NCA4 


SJOBCTLG 


NDBl 


SJOBCTLG 


NDB2 


SJOBCTLG 


NEB3 


SJOBCTLG 


NCG4 


SJOBCTLJ 


PFE3 


SJOBCTLA 


GWG3 


SJOBCTLA 


GWC4 


SJOBCTLE 


LQJ4 


SJOBCTLA 


GSC5 


SJOBCTLE 


L0D4 


SSASIPL2 


BDH3 


SJOBCTLE 


LQC4 


SJOBCTLE 


LQE4 


SJOBCTLA 


GWD2 


SJOBCTLD 


KMC5 


SJOBCTLD 


KMK5 


SJOBCTLE 


MNK5 


SJOBCTLA 


GWF2 


SJOBCTLD 


KMJ5 


SJOBCTLE 


MNJ5 


SJOBCTLG 


NHGl 


SJOBCTLE 


MNC5 


$SASIPL2 


BAG5 


SSASIPL2 


BBB5 


S$ASIPL2 


BAE5 


SIPLRT4 


EDK5 


SJOBCTLJ 


PFB5 


SJOBCTLN 


SBGl 


SJOBCTLA 


GTB2 


SJOBCTLA 


GRF3 


SJOBCTLE 


LCBl 


SJOBCTLD 


KLBl 


SJOBCTLE 


LFCl 


SJOBCTLA 


GTA2 


SJOBCTLA 


GOBI 


SJOBCTLD 


KLB4 


SJOBCTLD 


KLB5 


SJOBCTLD 


KL04 


SJOBCTLD 


KLE5 


SJOBCTLD 


KLF4 


SJOBCTLA 


GTD3 


SJOBCTLE 


LABI 


SJOBCTLN 


SABl 



Label 

EXECBACK 

EXIT 

EXIT 

EXIT 

EXPEXT 

EXPIRED 

EXTINTl 

EXTINT3 

EXTNT 

EXTRLC 

EXTRTN 

EXOOO 

EX005 

EXOlO 

EXI15 

6X120 

EX 150 

EX160 

EX170 

FCHMAINT 

FDDKCODE 

FDKIJ 

FDKIJL 

F0KIJ2 

FDKTDAT 

FDKTDATl 

FDKTDAT 2 

FDKTID 

FDKTID2 

FDKTV 

FDKTVNM 

FDKTV 1 

FDKTV2 

FDKl 

FDK2 

FDSRTN 

FDSYSU 

FEB IN 

FEBINl 

FEED 

FESEQ 

FFSEQCK 

FES PL IT 

FESPLIT2 

FESPLIT3 

FESYSX2 

FESYSX3 

FETCHM 

FETCHN 

FETCHRF 

FETINSRO 

FETINSRT 

FETINSRl 

FETINSR3 

FETINSR4 

FETINSR5 

FETK 

FETKNO 

FETKNOl 

FETKTK 

FETKTKl 

FETKTK2 

FETYPE 

FETYPED 

FETYPEI 



Phase 


Location 


SJOBCTLN 


SBHl i 
GEB3 i 


SJOBCTLA 


SJOBCTLO 


JRHl 


SSBLSTIO 


TBH5 


SJOBCTLA 


GTE3 


$IPLRT5 


FCF2 


$$ASIPL2 


BAJ3 


SSASIPL2 


BBB4 


SJOBCTLK 


QJBl 


SJOBCTLA 


GXB3 


SJOBCTLA 


GXC4 


SJOBCTLE 


LAD2 


SJOBCTLE 


LAFl 


SJOBCTLE 


LAGl 


SJOBCTLE 


LAH2 


SJOBCTLE 


LAB3 


SJOBCTLE 


LAB5 


SJOBCTLE 


LAD5 


SJOBCTLE 


LBFl 


SJOBCTLE 


LJBl 


SJOBCTLK 


0FK3 


SJOBCTLK 


0EB2 


SJOBCTLK 


QEH2 


SJOBCTLK 


0EJ2 


SJOBCTLK 


Q0H3 


SJOBCTLK 


0DJ5 


SJOBCTLK 


Q0G4 


SJOBCTLK 


QOBl 


SJOBCTLK 


0DH2 


SJOBCTLK 


OCBl 


SJOBCTLK 


0CC3 


SJOBCTLK 


QCHl .- 


SJOBCTLK 


QCB2 'i 


SJOBCTLK 


0EF4 


SJOBCTLK 


QEH4 


SIPLRT2 


CGB4 


SJOBCTLJ 


PTD4 


SJOBCTLK 


0BK4 


SJOBCTLK 


QBE4 


SJOBCTLA 


GSE2 


SJOBCTLK 


QLB2 


SJOBCTLK 


QKGl 


SJOBCTLK 


QKB4 


SJOBCTLK 


QKE5 


SJOBCTLK 


QKJ5 


SJOBCTLK 


QJHl 


SJOBCTLK 


QJC2 


SJOBCTLG 


NCJ5 


SJOBCTLG 


NCE4 


SJOBCTLA 


GEB4 


SJOBCTLK 


QCE4 


SJOBCTLK 


QCB4 


SJOBCTLK 


QCF4 


SJOBCTLK 


QCH4 


SJOBCTLK 


0CJ4 


SJOBCTLK 


QCK4 


SJOBCTLK 


0KF2 


SJOBCTLK 


QK03 


SJOBCTLK 


QKH3 


SJOBCTLK 


0LB3 


SJOBCTLK 


QL04 


SJOBCTLK 


QLF4 


SJOBCTLK 


QJD3 


SJOBCTLK 


QJD5 - 


SJOBCTLK 


QKBl "^ 



26 8 DOS/VS IPL and Job Control 



Label 



Phase 



Location 



FETYPEI4 


SJOBCTLK 


QKJI 


FETYPEl 


SJOBCTLK 


QJH4 


FEVSER 


SJOBCTLK 


QJD2 


FEVSERl 


SJOBCTLK 


QJE2 


FEVSER2 


SJOBCTLK 


QJF2 


FICNIC 


SJOBCTLA 


GAFl 


FIDERR 


SJOBCTLM 


RAG4 


FILEOVLP 


SIPLRT5 


FCE2 


FIND 


SJOBCTLE 


LPJ2 


FINDPRC 


SJOBCTLE 


LRB2 


FINOVICE 


SJOBCTLB 


HEB2 


FIN02 


SJOBCTLB 


HEDl 


FINISH 


SJOBCTLE 


LKH2 


FINISH 


SJOBCTLN 


SBH5 


FINOPN 


SJOBCTLA 


GRK2 


FJB3 


SJOBCTLE 


LSB2 


FND 


SJOBCTLE 


LRE3 


FNDARt; 


SSBLSTIO 


TBBl 


FNDARGl 


SSBLSTIO 


TBB4 


FN0ARG5 


SSBLSTIO 


TBB3 


FNDTYP 


SIPLRT3 


DFBI 


FNIOAG 


SJOBCTLD 


KM03 


FORMR 


SIPLRT5 


FEBl 


FOUND 


SJOBCTLE 


LRE4 


FPRTN 


SIPLRT4 


EJBl 


FREEJIB 


SJOBCTLB 


HFE3 


FSCAN 


SJOBCTLK 


QBB4 


FSCANl 


SJOBCTLK 


QBC4 


FTCHJI8 


SJOBCTLE 


LSBl 


FTENDI 


SJOBCTLK 


0BD3 


GETADD 


SIPLRT2 


CDA2 


GETASG 


SJOBCTLJ 


PEA3 


GETCAT 


SIPLRT2 


CDB4 


GETDAT 


SJOBCTLG 


NLHl 


GETDEL 


SIPLRT2 


CDAI 


GETOELl 


SIPLRT2 


CDBl 


GETDPO 


SIPLRT2 


CDC4 


GETIME 


SJOBCTLG 


NLBl 


GET I ME 1 


SJOBCTLG 


NLB2 


GETIME2 


SJOBCTLG 


NLB3 


GETJ IB 


SJOBCTLD 


KEB4 


GETJIBSW 


SJOBCTLD 


KEK4 


GETJ IB 1 


SJOBCTLD 


KEH4 


GETJIB2 


SJOBCTLD 


KED5 


GETKEY 


SJOBCTLJ 


PQJI 


GETLAN 


SJOBCTLD 


KAB3 


GETNEXT 


SJOBCTLD 


JJCl 


GETNICL 


SIPLRT4 


^HF2 


GETPBOWN 


SJOBCTLD 


KHB4 


GETPUB 


SJOBCTLD 


KNC3 


GETPUB 


SJOBCTLG 


NPB2 


GETR SP 


SIPLRT5 


FCK2 


GETSET 


SIPLRT2 


CEAl 


GETVOL 


SJOBCTLA 


GSB2 


GET3 


SIPLRT2 


CDF3 


GET4 


SIPLRT2 


CDJ2 


GNXPUB 


SIPLRT3 


DCG4 


GO 


SJOBCTLN 


SACl 


GTNAMEl 


SJOBCTLE 


LFE2 


GTNXOP 


SJOBCTLJ 


PQGI 


GTNXOPR 


SJOBCTLJ 


PRFl 


GTNXOPRl 


SJOBCTLJ 


PRGl 


GTNXOP 1 


SJOBCTLJ 


PQHI 


HANOLINP 


SJOBCTLE 


LFJl 



Label 


Phase 


Location 


HARDMC 


SSASIPL2 


BA02 


HCEND 


SJOBCTLJ 


PJC5 


HCIORIO 


SJOBCTLM 


RQB3 


HCIOR20 


SJOBCTLM 


R0C3 


HCI0R30 


SJOBCTLM 


RQB5 


HCOPNMSG 


SJOBCTLM 


RSB4 


HCSET 


SJOBCTLJ 


PJE5 


HEADER 


SJOBCTLB 


HCE2 


HEADNO 


SJOBCTLA 


GRH3 


HEXCON 


SJOBCTLD 


KCB3 


HEXCON 


SJOBCTLJ 


PTB2 


HEXRTN 


SIPLRT3 


DGCl 


HOLD 


SJOBCTLJ 


PAB3 


HOLDl 


SJOBCTLJ 


PAF3 


H0LD2 


SJOBCTLJ 


PAB4 


IGNORE 


SJOBCTLA 


GCH3 


IJBJOBRS 


SJOBCTLB 


HABl 


ILLCD 


SIPLRT2 


CHCl 


ILUS 


SJOBCTLD 


KMBl 


ILUS 


SJOBCTLF 


MNE4 


INAERR 


SJOBCTLJ 


PVFl 


INCLUDE 


SJOBCTLA 


GLBl 


INCLUDE 


SJOBCTLJ 


P0B3 


INCL05 


SJOBCTLA 


GLE2 


INCLIO 


SJOBCTLA 


GLJ2 


INCL15 


SJOBCTLA 


GLA3 


INCL20 


SJOBCTLA 


GLB3 


INCL25 


SJOBCTLA 


GLC3 


INCL30 


SJOBCTLA 


GL03 


INCREMEN 


SIPLRT5 


FCEl 


INDIB 


SJOBCTLA 


GR04 


INDIGN 


SJOBCTLD 


JBD2 


INDSEQ 


SJOBCTLK 


QGG3 


INDUA 


SJOBCTLD 


JBDl 


INDVTP 


SJOBCTLD 


KMB2 


INIT 


SJOBCTLE 


LAB4 


INITIO 


SJOBCTLM 


RFB4 


INITL 


SJOBCTLD 


KABl 


INITL 


SJOBCTLF 


M0B3 


INITLNK 


SJOBCTLE 


LLB4 


INITLNKl 


SJOBCTLE 


LLC4 


INITOO 


SJOBCTLM 


RFBl 


INIT15 


SJOBCTLM 


RF04 


INSW 


SJOBCTLD 


JQC5 


INVASGN 


SJOBCTLD 


JPH4 


INVRESPM 


SIPLRT5 


FCA4 


lOCALL 


SJOBCTLB 


HGC3 


lOCOMPL 


SJOBCTLA 


GTE4 


lOHALT 


$IPLRT2 


CHE4 


IQHLD 


SIPLRT2 


CHB3 


I0HL2 


SIPLRT2 


CHC3 


lOlNTI 


$$ASIPL2 


BAD3 


lOINTlA 


$SA$IPL2 


BAF3 


I0INT3 


SSASIPL2 


B8D3 


lOPOSTE 


SJOBCTLM 


RRH3 


lOPOSTPR 


SJOBCTLM 


RRB3 


I0POST4 


SJOBCTLM 


RRB4 


lOROUT 


SJOBCTLG 


NNB3 


lOROUTW 


SJOBCTLG 


NNC3 


lORTN 


SSASIPL2 


BDBl 


lOSTOP 


SIPLRT2 


CHE2 


IPLND3 


SIPLRT5 


FDG3 


IPTDATA 


SJOBCTLE 


LRB5 


ISSGETIM 


SIPLRT4 


EAJ4 


ISSUIO 


SJOBCTLA 


GTF2 
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Label 



Phase 



Location 



Label 



Phase 



Location 



ISTYP4 


SJOBCTLK 


QGG4 


IVDS 


SJOBCTLD 


KMB4 


IVDS 


$JOBCTLF 


MNA4 


IVSERR 


SJOBCTLJ 


PVB5 


JBINPR 


$JOBCTLG 


N0A5 


JFBl 


$JOBCTLE 


LSEl 


JIBPTR 


$J0BCTL6 


NNF5 


JO 


$JOBCTLM 


RAJ3 


JOB 


SJOBCTLG 


NABl 


JOBCTL 


SJOBCTLA 


GABI 


J0BCTL4 


SJOBCTLA 


GBGl 


JOBCTL 5 


SJOBCTLA 


GBF2 


KEY 


SSBLSTIO 


TBG3 


KEYCHK 


$IPLRT3 


DBC2 


KEYCHKl 


$IPLRT3 


DBA2 


KEYCHK 2 


$IPLRT3 


DAF4 


KEYCHK2B 


$IPLRT3 


DAJ4 


LASTPUB 


SSBCARTR 


FGFl 


LAXEPR 


SJOBCTLG 


NRE3 


LAXERR 


SJOBCTLK 


QSC3 


LBLOUT 


SJOBCTLG 


NQBI 


LBLOUT 


SJOBCTLK 


QNGl 


LBLOUTF 


SJOBCTLK 


QNBl 


LBLOUTOB 


SJOBCTLG 


NQD3 


LBLOUTOA 


SJOBCTLG 


NQHl 


LBLOUTOB 


SJOBCTLK 


QND3 


LBLOUTOC 


SJOBCTLG 


NQCI 


LBLOUTl 


SJOBCTLK 


QPB3 


LBL0UT2D 


SJOBCTLG 


NRD2 


LBL0UT2D 


SJOBCTLK 


QPC4 


LBLPEO 


SIPLRT2 


CGJl 


LBLTYP 


SJOBCTLK 


QABl 


LBTOUT 


SJOBCTLK 


QAG2 


LHRTN 


SSBLSTIO 


T0B3 


LIMITR 


SJOBCTLJ 


PRE3 


LIMITS 


SJOBCTLJ 


PQC4 


LIMITSl 


SJOBCTLJ 


PQG4 


LINK 


SJOBCTLG 


NJB2 


LINK INT 


SJOBCTLA 


GQD4 


LIOCUU 


SJOBCTLF 


MDAI 


LIOEOJ 


SJOBCTLF 


MAA4 


LIOEOJl 


SJOBCTLF 


MAB4 


LIOL 


SJOBCTLF 


MBBl 


LI0LL201 


SJOBCTLF 


MBDl 


LI0LL3 


SJOBCTLF 


MBE3 


LIOLl 


SJOBCTLF 


MBA3 


LIOL 2 


SJOBCTLF 


MBA4 


LIOL 202 


SJOBCTLF 


MBEI 


LIOL 4 


SJOBCTLF 


MBF3 


LIOSYX 


SJOBCTLF 


MDB3 


LIST 


SJOBCTLG 


NHB3 


LISTX 


SJOBCTLG 


NHB5 


LISTIO 


SJOBCTLF 


MABI 


LLNOUPOT 


SIPLRT5 


FFB3 


LMESS 


SJOBCTLO 


KNFl 


LMOOCG 


SIPLRT4 


EQDI 


LM0D02 


SIPLRT4 


EQE2 


L MOD 07 


SIPLRT4 


EQD3 


LNAERR 


SJOBCTLG 


NME3 


LNKOUT 


SJOBCTLJ 


PUC3 


LOADRS 


SJOBCTLK 


QQB4 


LOADRSI 


SJOBCTLK 


QQF4 


L0AD3N0W 


SIPLRT2 


CDE3 



LODE 


SJOBCTLB 


HEJ5 


LOG 


SJOBCTLJ 


PLB3 


LOGCHK 


SJOBCTLA 


GLB4 


LOGIN 


SJOBCTLA 


GMC2 


LOGINl 


SJOBCTLA 


GMF2 


LOGIPL 


SIPLRT2 


CBF2 


LOGOUT 


SJOBCTLA 


GJCl 


LOGPRT 


SJOBCTLA 


GLH4 


LOGRED 


$IPLRT2 


CCE3 


LOGREQLO 


SJOBCTLM 


RKC5 


LOGREQOO 


SJOBCTLM 


RKB4 


LOGSTR 


SIPLRT2 


CCB3 


LOGUSE 


SIPLRT5 


FAF2 


LONGJIB 


SJOBCTLB 


HEF2 


LOOK DOC 


SIPLRT4 


ENEI 


LOOKLOOP 


SIPLRT4 


ECD3 


LOOK SDL 


SJOBCTLE 


LGBl 


LOOP 


SJOBCTLG 


NKA2 


LPDOPT 


SJOBCTLJ 


P0E5 


L ST BYT AD 


SJOBCTLE 


LFH4 


LSTOUT 


SJOBCTLA 


GJB3 


LUBCOUNT 


SJOBCTLG 


NMOl 


LUBHLP 


SIPLRT4 


ECBl 


LUBLPL 


SIPLRT2 


CGDl 


LUBSCN 


SJOBCTLG 


NPBl 


LUDRTN 


SIPLRT2 


CGB2 


LUURTN 


$IPLRT2 


CGBl 


MAINOO 


SJOBCTLM 


RABI 


MAINOIO 


SJOBCTLM 


RADl 


MAINOll 


SJOBCTLM 


RAF2 


MAIN012 


SJOBCTLM 


RBAl 


MAIN013 


SJOBCTLM 


RBB3 


MAIN05 


SJOBCTLM 


RAD5 


MAIN08 


SJOBCTLM 


RBF4 


MAIN09 


SJOBCTLM 


RBA4 


MAINIO 


SJOBCTLM 


RBH4 


MAINI5 


SJOBCTLM 


RKB2 


MAP 


SJOBCTLF 


MKBl 


MAPCHNOO 


SJOBCTLM 


RGBl 


MAPCHNIO 


SJOBCTLM 


RGGl 


MAPCHN15 


SJOBCTLM 


RGA2 


MAPCHN20 


SJOBCTLM 


RGD2 


MAPCHN25 


SJOBCTLM 


RGG2 


MAPCHN30 


SJOBCTLM 


RGF3 


MAPCH05 


SJOBCTLM 


RGEl 


MCRETURN 


SIPLRT2 


CAC5 


MDMTSUP 


SJOBCTLF 


MKH4 


MDROO 


SJOBCTLM 


ROAl 


MDRIO 


SJOBCTLM 


RDB3 


MDR35 


SJOBCTLM 


RLC3 


MDR40 


SJOBCTLM 


RDF3 


MERGE 


SJOBCTLJ 


PQG3 


MERGER 


SJOBCTLJ 


PRF3 


MERGES 


SJOBCTLJ 


PQJ3 


MERGESVA 


SJOBCTLJ 


P0F3 


MLUUR 


$IPLRT2 


CGCI 


MMDDl 


SJOBCTLJ 


PGJ3 


MODEOK 


SIPLRT2 


CAG4 


MODERTN 


SIPLRT4 


EQB2 


MODEXD 


SIPLRT3 


DFK5 


MOOLOP 


SIPLRT3 


ODOl 


MOOMOVE 


SIPLRT3 


DDE2 


MONITOR 


SIPLRT2 


CCBl 


MOREPART 


SIPLRT4 


EMHI 


MORXT 


SJOBCTLB 


HEH4 
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Label 


Phase 


Location 


MOVERCM 


$IPLRT5 


FBE5 


MPXCHK 


$IPLRT4 


EJF4 


MPXGO 


$IPLRT4 


EJG4 


MP XL OP 


$IPLRT4 


EJC2 


MPXMOV 


$IPLRT4 


EJE3 


MPXRTN 


$IPLRT4 


EJB2 


HSGMICR 


$IPLRT4 


ESH2 


MSGOUT 


SJOBCTLA 


GJB2 


MSGRTN 


$IPLRT2 


CHB4 


MTC 


SJOBCTLJ 


PEBl 


MTCMTCS 


SJOBCTLJ 


PEC3 


MTCTEST 


SJOBCTLJ 


PE04 


MTCTESTl 


$JOBCTLJ 


PFBl 


MTC2 


SJOBCTLJ 


PEG2 


MTC3 


SJOBCTLJ 


PEE3 


MTC4 


SJOBCTLJ 


PEG4 


MTNCNT 


SJOBCTLA 


GUBI 


MTSUB 


SJOBCTLF 


MKH3 


MVOU 


SJOBCTLA 


GRB2 


MVQUO 


SJOBCTLG 


NKC2 


MYJOBDTE 


SIPLRT4 


EAG4 


NDSCAN 


SJOBCTLA 


GKG2 


NDSCAN 


SJOBCTLG 


NKE4 


NOSCAN 


SJOBCTLK 


Q0J2 


NDSCANl 


SJOBCTLK 


Q0G3 


NDSERR 


SJOBCTLJ 


PVF2 


NDSERRl 


SJOBCTLJ 


PFC4 


NDTERR 


SJOBCTLJ 


PVCl 


NEWXTN 


SJOBCTLK 


QHF5 


NEXT 


SSBCARTR 


FGC2 


NEXT 


SJOBCTLJ 


PNC5 


NEXTLBL 


SIPLRT5 


FBF5 


NEXTPOO 


SJOBCTLM 


RMBl 


NEXTP05 


SJOBCTLM 


RMC2 


NEXTPIO 


SJOBCTLM 


RMEl 


NEXT SYS 


SIPLRT4 


EGOl 


NK 


SJOBCTLE 


L0B5 


NLISTX 


SJOBCTLG 


NHOl 


NLSERR 


SJOBCTLK 


QSC2 


NLST 


SJOBCTLE 


LEF4 


NLUERR 


SJOBCTLJ 


PVC2 


NLUERR 


SJOBCTLK 


QSC4 


NOAL IGN 


SJOBCTLG 


NHJ3 


NOASGNO 


SIPLRT5 


FAOl 


NOCAT 


SJOBCTLE 


LBB3 


NOCATL 


SJOBCTLG 


NEAl 


NOCLB 


SJOBCTLE 


LLJ2 


NODA SD 


SIPLRT2 


CAE3 


NODC UX 


SJOBCTLK 


QH04 


NODECK 


SJOBCTLG 


NHB2 


NOOSYS 


SJOBCTLA 


GFE3 


NOOUMHY 


SJOBCTLG 


JJG2 


NODUMP 


SJOBCTLG 


NKJ2 


NOOURl 


SJOBCTLG 


NEH3 


NOEDECK 


SJOBCTLG 


NHJ5 


NOEERT 


SJOBCTLA 


GVE3 


NOERRS 


SJOBCTLG 


NHG2 


NOES TV 


SJOBCTLJ 


PF02 


NOEXC 


SJOBCTLG 


K0G5 


NOFP 


SJOBCTLE 


LEE3 


NOINCL 


SJOBCTLA 


GCCl 


NOIPT 


SJOBCTLG 


r!iEC2 


NOIPTA.. 


SJOBCTLG 


NEB2 


NOIPTl 


SJOBCTLG 


NEA4 


N0IPT2 


SJOBCTLG 


NEA2 



Label 

N0IPT3 

N0IPT7 

NOLABMSG 

NOLEAP 

NOLINK 

NOLIST 

NOLNKGIR 

NOLOG 

NOLOG 

NOLOG AV 

NOMOVE 

NOMPSTP 

NOMRJB 

NOMSG 

NOMTEB 

NONEWSUP 

NONSTNO 

NOPAGE 

NOPAUSE 

NOPSE 

NOREL 

NOR EL 

NORELSW 

NOREL SW 

NORESET 

NORESTOR 

NOSET 

NOSLO 

NOSOAO 

NOSOOLl 

N0S00L2 

NOSYM 

NOTAP 

NOTCRT 

NOTORY 

NOTGSK 

NOTEBS 

NOT ERR 

NQTFG 

NOTFGl 

N0TF0R4 

N0TF0R5 

NOTIMER 

NOTINSVA 

NOTLAST 

NOTLIST 

NOT NO S 

NOTPMK 

NOTSEQ 

NOT ST AN 

NOTVIRT 

NOTZERO 

NOTOl 

NOT 3330 

N0T4AN03 

N0T4N0W 

NOUAIGN 

NOVOLCUO 

NOXREF 

N02314 

N03211 

NPWR 

NRFVOLl 

NTINJB 

NULCHK 

NUMCON 



Phase 


Location 


SJOBCTLG 


NEA3 


SJOBCTLG 


NEF2 


SIPLRT4 


EMF2 


SJOBCTLJ 


PGG3 


SJOBCTLG 


NKF2 


SJOBCTLG 


NHB4 


SJOBCTLE 


LCH3 


SIPLRT4 


EC05 


SJOBCTLJ 


PLB4 


$IPLRT5 


FAG2 


SJOBCTLG 


NE04 


SSASIPL2 


BCEl 


SJOBCTLG 


KMG4 


$SA$IPL2 


BCHl 


SIPLRT4 


ECF2 


SJOBCTLE 


LJF2 


SJOBCTLB 


HFGl 


SIPLRT2 


CJF3 


SJOBCTLA 


GBEl 


SJOBCTLG 


NEH5 


SJOBCTLG 


KAC2 


SJOBCTLF 


MQJ3 


SJOBCTLG 


KAGl 


SJOBCTLF 


M0G3 


SJOBCTLJ 


PFG3 


SJOBCTLG 


NGGl 


SJOBCTLE 


LAF3 


SJOBCTLG 


JPH5 


SIPLRT3 


0EH5 


SIPLRT3 


GGA4 


SIPLRT3 


GGAl 


SJOBCTLG 


NH03 


SSBLSTIO 


TAK3 


SIPLRT2 


CAKl 


SJOBCTLG 


JJB5 


SJOBCTLA 


GTGl 


$SA$IPL2 


BBH2 


SJOBCTLG 


NRE4 


SJOBCTLN 


SAB5 


SJOBCTLN 


SBE4 


$IPLRT2 


CA02 


SIPLRT2 


CAG2 


SJOBCTLF 


MKK3 


SJOBCTLE 


LFE3 


SJOBCTLN 


SBH4 


SJOBCTLG 


NFH4 


SJOBCTLG 


NGGl 


SJOBCTLB 


HCOl 


SJOBCTLK 


QGG2 


SJOBCTLB 


HFG3 


SJOBCTLE 


LEB2 


SJOBCTLB 


HFJ4 


SJOBCTLA 


GRK4 


SIPLRT4 


EGF5 


STPLRT2 


CEE3 


SIPLRT2 


C0C3 


SJOBCTLG 


JOCI 


SIPLRT5 


FBF2 


SJOBCTLG 


NH05 


SJOBCTLA 


GAC3 


SIPLRT4 


E0K2 


SJOBCTLA 


GSOl 


SIPLRT5 


FBGl 


SJOBCTLA 


GV02 


SJOBCTLJ 


PBJ3 


SJOBCTLG 


KAB5 
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Label 


Phase 


Location 


NUMCON 


SJOBCTLJ 


PUB4 


NUMCON 


$JOBCTLK 


QRBI 


NUMCVT 


$IPLRT3 


DBG2 


NVAERR 


$JOBCTLJ 


PVF5 


NVOERR 


SJOBCTLG 


NRB4 


NVSERR 


SJOBCTLA 


GWC2 


NXT 


$J08CTLB 


HFK3 


NXT 


$JOBCTLE 


LFG2 


NXTBIT 


SJOBCTLJ 


PKG3 


NXTBLK 


$SA$IPL2 


BBAl 


NXTDRCYL 


$$A$IPL2 


BAA4 


NXTENTRY 


$$A$IPL2 


BAD4 


NXT^NTRY 


SJOBCTLJ 


PPF3 


NXTFG 


SJOBCTLJ 


PQEl 


NXT J IB 


SJOBCTLA 


GFG3 


NXTJIB 


$JOBCTLB 


HFJI 


NXTLUB 


SJOBCTLA 


GFF3 


NXTOPRD 


SJOBCTLJ 


PNEl 


NXTSDL 


SJOBCTLE 


LGFl 


NXTUNIT 


SJOBCTLB 


HEG3 


OERRTN 


SJOBCTLA 


GVB3 


ONINT 


$IPLRT4 


ECG2 


ONOLOG 


SJOBCTLJ 


PLC5 


OPALT 


SJOBCTLD 


JCFl 


OPCLASS 


SJOBCTLD 


JBB3 


OPENFILE 


SJOBCTLM 


RHBl 


OPHl 


SJOBCTLD 


JBF3 


0PH2 


SJOBCTLD 


JBB4 


OPIGN 


SJOBCTLD 


JBB2 


OPLBNF 


SJOBCTLG 


NRG2 


OPLBNF 


SJOBCTLK 


QPE4 


OPLOG 


SJOBCTLJ 


PLC2 


OPMODE 


SJOBCTLD 


JBB5 


OPNEND 


SIPLRT4 


EDJl 


OPNHCFLE 


SJOBCTLM 


RSB2 


OPNLNK 


SJOBCTLG 


NLB5 


OPNLOP 


SIPLRT4 


EDCl 


OPNR TN 


SIPLRT4 


EDBl 


OPNUSN 


SIPLRT4 


EDGl 


OPPERM 


SJOBCTLD 


JCE2 


OPRTN 


SIPLRT2 


CCB4 


OPSHR 


SJOBCTLD 


JCBl 


OPSYS 


SJOBCTLD 


JCB4 


OPTEMP 


SJOBCTLD 


JCB2 


OPTION 


SJOBCTLG 


NGBl 


OPTLOG 


SJOBCTLG 


NKH4 


OPTNLG 


SJOBCTLG 


NHG5 


OPUA 


SJOBCTLD 


JBBl 


OPVOL 


SJOBCTLD 


JCB3 


OPX 


SJOBCTLD 


JA04 


OP XL 1ST 


SJOBCTLD 


JBG4 


OTSERR 


SJOBCTLE 


LUC5 


OTSERR 


SJOBCTLG 


NRE5 


OTSERR 


SJOBCTLJ 


PVG3 


OTSERR 


SJOBCTLK 


QSCl 


OTSERRl 


SJOBCTLE 


LUB5 


OTSERR 1 


SJOBCTLJ 


PVF3 


OUTLBL 


SJOBCTLK 


QHF4 


OUTPUT 


SJOBCTLD 


KBB2 


OUTPUTS 


SJOBCTLD 


KBB4 


OUTPUTS 


SJOBCTLF 


MQCl 


OUTPUTl 


SJOBCTLD 


KBB5 


OUTPUTl 


SJOBCTLF 


HOC 2 


0UTPUT2 


SJOBCTLD 


KBD4 


0UTPUT2 


SJOBCTLF 


MQEl 



Label 

OVDERR 

OVEND 

OVLAPCK 

OVRLPI 

OWNED 

PARCHK 

PARSTD 

PARSTDl 

PASSGN 

PASSMC 

PASSRF 

PAUSE 

PBFEND 

PBFFIN 

PBFLOP 

PBFRTN 

PCHGUT 

PCILSUP 

PCILSUPR 

PCLOSE 

PDSWRITE 

PEND 

PENDl 

PERCNTOO 

PERCNT05 

PEREXIT 

P FORM AT 

PFREE 

PFTIO 

PJB 

PLOG 

PLOG05 

PL0G07 

PL0G08 

PNDIO 

PND02 

PND03 

PND05 

PNPERR 

PNPERR 

POINTLUB 

POUT 

PPBEGOR 

PRALLOC 

PRCDIB 

PRCINIT 

PRCTEST 

PREPOOO 

PREPOOl 

PREPOIO 

PREP020 

PREP030 

PRGUNT 

PRIVATE 

PROCDIB 

PROTP 

PRSYSLOG 

PRSYSRDR 

PSHRTN 

PSHRTNl 

PTEST 

PTESTC 

PUBDEQ 

PUBEXD 

PUBMKE 



Phase 


Location 


SJOBCTLA 


GPB5 


SJOBCTLA 


GPB4 


SIPLRT5 


FBD5 


SJOBCTLA 


GTH2 


SJOBCTLD 


JJF3 


SJOBCTLE 


LOBl 


SJOBCTLG 


NJB4 


SJOBCTLG 


NJ04 


SJOBCTLE 


LSB3 


SIPLRT2 


CAJ5 


SJOBCTLG 


NCA5 


SJOBCTLJ 


PLBl 


$IPLRT4 


EEH2 


$IPLRT4 


EBF3 


$IPLRT4 


EEFl 


$IPLRT4 


EEEl 


SJOBCTLJ 


PNB2 


SJOBCTLG 


NJDl 


SJOBCTLG 


NJD2 


SJOBCTLG 


NTC4 


$IPLRT5 


FCE4 


SJOBCTLG 


NSBI 


SJOBCTLG 


NSEl 


SJOBCTLM 


RKBl 


SJOBCTLM 


RKJl 


SJOBCTLF 


MFG2 


SIPLRT5 


FDB4 


SJOBCTLG 


NTC2 


SJOBCTLA 


GFJl 


SJOBCTLE 


LSE3 


SJOBCTLG 


NUBI 


SJOBCTLG 


NUCl 


SJOBCTLG 


NUDI 


SJOBCTLG 


NUH2 


SJOBCTLG 


NSB5 


SJOBCTLG 


NSFl 


SJOBCTLG 


NSGI 


SJOBCTLG 


NSG3 


SJOBCTLE 


LUD2 


SJOBCTLJ 


PVB4 


SIPLRT4 


ECK3 


SJOBCTLG 


NUE3 


SIPLRT2 


CAB2 


SJOBCTLJ 


PQDl 


SJOBCTLA 


GR02 


SJOBCTLA 


GGC2 


SJOBCTLE 


LJH3 


SJOBCTLM 


RPB3 


SJOBCTLM 


RPG4 


SJOBCTLM 


RPB5 


SJOBCTLM 


RQB2 


SJOBCTLM 


RQBl 


SJOBCTLJ 


PTC5 


SJOBCTLE 


LJC4 


SJOBCTLE 


LTBl 


SJOBCTLD 


JDDl 


SSASIPL2 


BBG3 


SSASIPL2 


BBD4 


SSBLSTIO 


TDBl 


SSBLSTIO 


TDFI 


SJOBCTLA 


G0B2 


SJOBCTLA 


GDJ2 


SIPLRT3 


00F4 


SIPLRT3 


DAC2 


S1PLRT3 


DBJ2 
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Label 

PUBMKl 

f^UBMSK 

PUBMSK 

PUIF 

PUIFTP 

PUIFT3 

PUIFl 

PUIF2 

PUIF3 

PUIF4 

PUIF5 

QENO 

RACDVC 

RANXJB 

RASCAN 

RASSGN 

RASUPR 

RASWAIT 

RDCOMM 

RDDIREC 

ROERR 

RDHDROO 

ROHDR05 

RDOVER 

RD0V06 

R0OVC2 

R0OVC4 

RD0VC8 

RDOVIO 

RDRIN 

RDRIN3 

R0RIN5 

RDRTST 

RDSTMT 

RDSYSDIR 

RDUSER 

RDVOL 

RDV0L2 

RDWRDESC 

READCO 

READHDR 

READLAB 

READLAB2 

READOV 

READRT 

READRT2 

READRT2A 

READRT3 

READRT4 

RECl 

REISSUE 

RELJBC 

RELLOP 

RELOC 

RE0R6LC 

REREAD 

RESET 

RESET 

RESETCL 

RESETOl 

RESET015 

RESETl 

RESETlOl 

RESET2 



Phase 


Location 


$IPLRT3 


DBB5 


$JOBCTLD 


KFE4 


SJOBCTLF 


MRE4 


$$BLSTIO 


TABl 


$$BLSTIO 


TAA3 


$$BLSTIO 


TAD4 


$$BLSTIO 


TAA4 


$$BLSTIO 


TAF2 


$$BLSTIO 


TAJ2 


$$BLSTIO 


TAE4 


$$BLSTIO 


TAG4 


SJOBCTLG 


NKE3 


$IPLRT3 


DFD5 


SJOBCTLG 


NPB5 


SJOBCTLG 


NPB4 


SJOBCTLG 


NPF4 


SIPLRT2 


CAC4 


SIPLRT2 


CAG5 


SJOBCTLB 


HCH2 


SJOBCTLE 


LFBl 


SJOBCTLA 


GSH4 


SJOBCTLM 


RLBl 


SJOBCTLM 


RLGl 


SJOBCTLA 


GNB4 


SJOBCTLA 


GNFl 


SJOBCTLA 


GNDl 


SJOBCTLA 


GNEl 


SJOBCTLA 


GNB3 


SJOBCTLA 


GNE2 


SJOBCTLA 


GMA3 


SJOBCTLA 


GMD3 


SJOBCTLA 


GME4 


SIPLRT4 


EBJ4 


SJOBCTLA 


GMBl 


SJOBCTLE 


LNBl 


SJOBCTLB 


HAJ5 


SJOBCTLD 


JJH4 


SJOBCTLD 


JLE4 


SIPLRT4 


ENB5 


SIPLRT2 


CAA4 


SJOBCTLB 


HCFl 


SIPLRT4 


ENB3 


SIPLRT4 


EMB4 


SJOBCTLA 


GNBl 


SIPLRT2 


CCB2 


SIPLRT2 


CCFl 


SIPLRT2 


CCE2 


SIPLRT2 


CCG2 


SIPLRT2 


CCF2 


SJOBCTLB 


HCAl 


SJOBCTLE 


LJGl 


SJOBCTLA 


GXBl 


SJOBCTLD 


KAGl 


SSBCARTR 


FGBl 


SIPLRT4 


EMBl 


SIPLRT2 


CCF3 


SJOBCTLE 


MFBl 


SJOBCTLJ 


PFF3 


SJOBCTLE 


MPJ2 


SJOBCTLF 


MFD2 


SJOBCTLF 


MFE2 


SJOBCTLF 


MFC2 


SJOBCTLF 


MGCl 


SJOBCTLF 


MGEl 



Label 



Phase 



Location 



RESET3 


SJOBCTLF 


MGE5 


RESETS 


SJOBCTLF 


MGA2 


RESET6 


SJOBCTLF 


MGF4 


RESET? 


SJOBCTLF 


MGB4 


RESETS 


SJOBCTLF 


MGJ3 


RESFCH 


SJOBCTLE 


LBC4 


RESIDL 


SIPLRT2 


CFF2 


RES I OR 


SIPLRT2 


CFG4 


RESNFD 


SIPLRT4 


EBG5 


RET ADD 


SJOBCTLF 


MAJl 


RETURN 


SJOBCTLB 


HAF4 


RETURN 


SJOBCTLN 


SBB3 


RFEND 


SJOBCTLJ 


PJKl 


RIGHT 


SIPLRT2 


CFC4 


RLINDT 


SJOBCTLA 


GMCl 


RLSENT 


SJOBCTLJ 


PAC3 


RMSMCRET 


$SASIPL2 


BAB2 


RNGTOP 


SJOBCTLD 


KAD4 


RNGTOP 


SJOBCTLK 


QRE3 


RODCOMP 


SJOBCTLM 


RCB4 


RODOO 


SJOBCTLM 


RCBl 


RODIO 


SJOBCTLM 


RCA3 


ROD 1 5 


SJOBCTLM 


RCH3 


R0020 


SJOBCTLM 


RCA4 


RPSERR 


SJOBCTLE 


LUB4 


RPSSET 


$IPLRT3 


DFD3 


RSPASG 


SJOBCTLG 


NME4 


RSSASGl 


SJOBCTLG 


NBC2 


RSSASG2 


SJOBCTLG 


NBB2 


RSTASG 


SJOBCTLG 


NMB4 


RSTCHQ 


SIPLRT4 


EJF5 


RSTCOM 


SJOBCTLG 


NBG2 


RSTLUB 


SIPLRT2 


CGHl 


RSTRT 


SJOBCTLK 


QQBl 


RSTSTD 


SJOBCTLD 


KEBl 


RSTSTDS 


SJOBCTLD 


KED2 


RSTSTDl 


SJOBCTLD 


KEFl 


RSTSTD3 


SJOBCTLD 


KEGI 


RSTSW4 


SJOBCTLG 


NAD4 


SAMEOIB 


SJOBCTLD 


JPF4 


SAMELUB 


SJOBCTLD 


JPE4 


SAVED 


SJOBCTLE 


LHB3 


SCANDEV 


$$ASIPL2 


BAA3 


SCANRl 


SJOBCTLA 


GKC2 


SCANR2 


SJOBCTLA 


GKBl 


SCANR3 


SJOBCTLA 


GKB3 


SCANOO 


SJOBCTLM 


RMB3 


SCHLOP 


SIPLRT3 


DFCI 


SCHSCH 


SIPLRT3 


DEJl 


SCHSTA 


$IPLRT3 


OEFl 


SCHTST 


SIPLRT3 


DEHl 


SCNEND 


$IPLRT3 


DCB4 


SCNINT 


SJOBCTLG 


NMBl 


SCNJIB 


SJOBCTLD 


KJB2 


SCNLOP 


SIPLRT3 


0CD3 


SCNLUB 


SJOBCTLD 


KJBl 


SCNOPRS 


SJOBCTLD 


JAJ3 


SCNRLl 


SJOBCTLA 


GKD2 


SCNRL2 


SJOBCTLA 


GKE3 


SCNRT 


SJOBCTLE 


LPD2 


SDEVl 


$SA$IPL2 


BDCl 


SEARCH 


$IPLRT5 


FCC4 


SEEKINIT 


SJOBCTLE 


LLBl 


SEEKSTRT 


SJOBCTLE 


LBE2 


SELRLD 


SJOBCTLA 


GXDl 
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Label 



Phase 



Location 



SEND 


SJOeCTLE 


LQG3 


SENSE 


$$A$IPL2 


BDB2 


SENSE 


$$BCARTR 


FGG3 


SENSE2 


$$A$IPL2 


BDC2 


SENSE3 


$$A$IPL2 


BDE2 


SET 


SJOBCTLJ 


PGB2 


SETAREA 


iJOBCTLG 


NKE5 


SETCLOCK 


$IPLRT4 


EAF4 


SETE XT 


SJOBCTLJ 


PGBl 


SETFCL 


$IPLRT3 


DGG4 


SETFIRST 


$IPLRT2 


CEDl 


SETFLAGS 


$JOBCTLK 


QFE5 


SETINTVL 


$IPLRT4 


EAK4 


SETKEYl 


$$A$IPL2 


BBKl 


SETKEY2 


$$A$IPL2 


BBA2 


SETOUT 


SJOBCTLA 


GS02 


SETOUTPT 


SJOBCTLJ 


PDC2 


SETRTN 


SIPLRT4 


EABl 


SETSDL 


SJOBCTLJ 


PPA3 


SETSVA 


SJOBCTLJ 


PPAl 


SETSVA3 


SJOBCTLJ 


PPJl 


SETSVA4 


SJOBCTLJ 


PPE2 


SETSVA5 


SJOBCTLJ 


PPJ2 


SETWRT 


SJOBCTLA 


GTE2 


SEUOB 


SSBLSTIO 


TCB4 


SEU0B2 


SSBLSTIO 


TCG4 


SFNC 


SJOBCTLD 


KMB5 


SFNC 


SJOBCTLF 


MNB5 


SFPPE 


SJOBCTLD 


KFBl 


SFPPE 


SJOBCTLF 


MRBl 


SFPPEDQ2 


SJOBCTLF 


MJC4 


SFPPEOl 


SJOBCTLF 


MRE2 


SFPPE02 


SJOBCTLD 


KFEl 


SFPPE02 


SJOBCTLF 


MREl 


SFPPE03 


SJOBCTLD 


KHFl 


SFPPE03 


SJOBCTLF 


MRF5 


SFPPEl 


SJOBCTLD 


KFCl 


SFPPEl 


SJOBCTLF 


MRCl 


SFPPEIO 


SJOBCTLD 


KGBl 


SFPPEIO 


SJOBCTLF 


MSBl 


SFPPEll 


SJOBCTLD 


KGD3 


SFPPEll 


SJOBCTLF 


MSD3 


SFPPE12 


SJOBCTLD 


KGC2 


SFPPE12 


SJOBCTLF 


MSC2 


SFPPE13 


SJOBCTLD 


KGC4 


SFPPE13 


SJOBCTLF 


MSC4 


SFPPE14 


SJOBCTLF 


MSF2 


SFPPE15 


SJOBCTLD 


KGD4 


SFPPE15 


SJOBCTLF 


HSD4 


SFPPE16 


SJOBCTLD 


KGG4 


SFPPE16 


SJOBCTLF 


MSG4 


SFPPE17 


SJOBCTLD 


KGJ5 


SFPPE17 


SJOBCTLF 


MSJ5 


SFPPE18 


SJOBCTLF 


MSK4 


SFPPE19 


SJOBCTLD 


KGA4 


SFPPE19 


SJOBCTLF 


MSA4 


SFPPE2 


SJOBCTLD 


KFDl 


SFPPE2 


SJOBCTLF 


MRDl 


SFPPE201 


SJOBCTLD 


KGF3 


SFPPE201 


SJOBCTLF 


MSE3 


SFPPE3 


SJOBCTLD 


KHE3 


SFPPE3 


SJOBCTLF 


MRJ5 


SFPPE4 


SJOBCTLD 


KFHl 


SFPPE4 


SJOBCTLF 


MRHl 


SFPPE5 


SJOBCTLD 


KFC3 


SFPPE5 


SJOBCTLF 


HRC3 



Label 

SFPPE5A 

SFPPE6 

SFPPE6 

SFPPE7 

SFPPE? 

SFPPE8 

SFPPE8 

SFPPE8A 

SFPPE8A 

SFPPE8B 

SFPPE8B 

SFPPE9 

SFPPE9 

SFPP5A 

SIMEND 

SIMEOJ 

SJBKSWCH 

SKIP 

SKIP 

SKIPLN 

SKPINC 

SKPKEY 

SKP64K 

SLBTEST 

SMS 00 

SNS05 

SNSIO 

SPCEXC 

SPRSW 

SRCH3211 

SRCH3340 

STATOO 

STAT05 

STAT 10 

STDASSG 

STDLBL 

STDUCHN 

STOPSDL 

STSCLB 

STUCRL 

STUSPC 

SULB 

SULBl 

SULB2 

SUPVRFND 

SVCBTRNS 

SVCO 

SVC44R00 

SVIFO 

SWBACK 

SWOFFl 

SW0FF2 

SXTPOK 

SYM 

SYNTAX 

SYN02 

SYSDATE 

SYSERR 

SYSHC 

SYSLOGUA 

SYSHVC 

SYSPRM 

SYSRF 

SYSUPI 

SYSUPTl 

SYSXXX 



Phase 


Location 


SJOBCTLF 


MRB3 ^ 


SJOBCTLD 


KFC4 ^ 


SJOBCTLF 


MRC4 


SJOBCTLD 


KFD5 


SJOBCTLF 


MRD5 


SJOBCTLD 


KGDI 


SJOBCTLF 


MSDl 


SJOBCTLD 


KGHl 


SJOBCTLF 


MSHl 


SJOBCTLD 


KGB4 


SJOBCTLF 


MSB4 


SJOBCTLD 


KGE2 


SJOBCTLF 


MSE2 


SJOBCTLD 


KFB3 


SJOBCTLG 


NAB4 


SJOBCTLN 


SAB2 


SJOBCTLN 


SBH2 


SJOBCTLB 


HCK2 


SJOBCTLJ 


PHF5 


SJOBCTLD 


KBBI 


SIPLRT4 


EFD3 


SIPLRT3 


DAGl 


SJOBCTLJ 


PQG2 


SJOBCTLE 


LJE3 


SJOBCTLM 


RNBl 


SJOBCTLM 


RNJ2 


SJOBCTLM 


RNDl 


SJOBCTLA 


GTHl 


$IPLRT3 


DEC3 


SIPLRT4 


EDG2 


SIPLRT4 


E0B2 


SJOBCTLM 


RJB3 


SJOBCTLM 


RJG5 /• 


SJOBCTLM 


RJC3 \ 


SJOBCTLG 


NNJl 


SJOBCTLG 


NJB3 


SJOBCTLA 


G0C5 


SJOBCTLE 


LGG3 


SJOBCTLG 


NPGl 


SJOBCTLF 


MKC2 


SJOBCTLF 


MKJ5 


SSBLSTIO 


TCBl 


SSBLSTIO 


TCE2 


SSBLSTIO 


TCE3 


$SA$IPL2 


BAF4 


SJOBCTLF 


MAD5 


$IPLRT4 


END4 


SJOBCTLM 


RMF4 


$IPLRT5 


FAB3 


SJOBCTLN 


SBDl 


SJOBCTLD 


JJG5 


SJOBCTLD 


JJH5 


SJOBCTLK 


OGKI 


SJOBCTLG 


NHD2 


SJOBCTLE 


L0B2 


SJOBCTLE 


LQE2 


SJOBCTLJ 


PGH2 


SJOBCTLA 


GHC3 


SJOBCTLJ 


PJA3 


$IPLRT4 


ECB4 


$IPLRT2 


CFB2 


SJOBCTLG 


NKBl 


SJOBCTLJ 


PJBI 


SJOBCTLJ 


PGGI 


SJOBCTLJ 


PKC2 /I 


SJOBCTLD 


KKBl ^ 
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Label 



Phase 



Location 



Label 



Phase 



Location 



SYSXXXOl 


SJOBCTLD 


KKG3 


SYSXXXl 


SJOBCTLD 


KKEl 


SYSXXX2 


$JOBCTLD 


KKFl 


SYSXXX3 


$JOBCTLD 


KKE3 


SYSXXX4 


$JOBCTLD 


KKA4 


SYSXXX5 


SJOBCTLD 


KKA5 


SYSXXX6 


SJOBCTLD 


KKH2 


TAP I NT 


SJOBCTLA 


GQF5 


TAPIO 


$JOBCTLB 


HGB3 


TBNHDR 


SJOBCTLG 


NFG2 


TBNXPB 


SJOBCTLG 


NFF3 


TBPBLP 


SJOBCTLG 


NFEl 


TDEVl 


$$A$IPL2 


BDDl 


TEBCLC 


$IPLRT2 


CAG3 


TEBDEQ 


$IPLRT3 


DDE4 


TEBDET 


$IPLRT3 


DFB2 


TEBEST 


$IPLRT3 


DFE2 


TEBEXO 


$IPLRT3 


0FK2 


TEBHOR 


SJOBCTLG 


NFA2 


TEBLOP 


$IPLRT3 


DDC4 


TEBLOP 


SJOBCTLG 


NFB3 


TEBS 


SJOBCTLG 


NFBl 


TEBVDET 


SIPLRT3 


DFA5 


TEBVEST 


SIPLRT3 


DFH3 


TECARD 


SIPLRT5 


FAH2 


TEMPEND 


SJ08CTLE 


LHE2 


TEST 


SSBCARTR 


FGB2 


TEST 


SJOBCTLN 


$AE2 


TEST AUTO 


SJOBCTLE 


LHBl 


TESTCIOA 


SJOBCTLD 


JKBl 


TESTENO 


SIPLRT4 


EMC 5 


TESTENO 


SJOBCTLA 


GPD2 


TESTLABl 


SIPLRT4 


EMB2 


TESTLAB2 


SIPLRT4 


EMF4 


TESTNK 


SJOBCTLE 


L0H2 


TESTOV 


SJOBCTLA 


GPB2 


TESTPRLB 


SJOBCTLE 


LKBl 


TESTPSLB 


SJOBCTLE 


LKB2 


TESTRELOC 


SJOBCTLE 


LFB4 


TESTSI2E 


SJOBCTLE 


LDGl 


TESTTOO 


SIPLRT4 


EAH4 


TESTUNIT 


SSBCARTR 


FGF2 


TESTl 


SJOBCTLE 


MEG2 


TEST2 


SJOBCTLE 


MEG3 


TFILL 


SJOBCTLK 


0AD4 


TIAERR 


SJOBCTLD 


KMDl 


TIAERR 


SJOBCTLE 


MNG4 


TIMERT 


SIPLRT4 


EFB4 


TIMOUT 


SJOBCTLG 


NLB4 


TIMOUTl 


SJOBCTLG 


NLK4 


TIM0UT2 


SJOBCTLG 


NLG5 


TLBL 


SJOBCTLK 


OBBl 


TLOOP 


SJOBCTLE 


L0C5 


TOOMANY 


SJOBCTLJ 


PNJl 


TPLAB 


SJOBCTLK 


0AB2 


TPVER 


SJOBCTLK 


0AH3 


TRTBRC 


SIPLRT2 


CHC5 


TSLNKSW 


SJOBCTLJ 


PDA2 


TSTALSWl 


SJOBCTLJ 


PQFl 


TSTDF 


SJOBCTLA 


GSE4 


TSTERR 


SSBCARTR 


FGB4 


TSTEXT 


SJOBCTLD 


K0C2 


TSTL06 


SJOBCTLA 


GCH5 


TSTPAUSE 


SJOBCTLA 


GBDl 


TSTPROC 


SJOBCTLD 


KNCl 



TSTSLD 


SJOBCTLE 


LMBl 


TSTSO 


$IPLRT3 


DEG3 


TSTSTNO 


SJOBCTLB 


HFF3 


TSTTM 


SJOBCTLB 


HAK5 


TSTTYPE 


SJOBCTLA 


GC05 


TXCUU 


SJOBCTLD 


KCB2 


TXCUU 


SJOBCTLF 


MQB4 


TXCUU 


SJOBCTLJ 


PTBl 


TXCUUl 


SJOBCTLF 


MQE4 


TXCUU 1 


SJOBCTLJ 


PTDl 


TXCUUU8 


SJOBCTLD 


KMB3 


TXCUUU8 


SJOBCTLF 


MNC4 


TXCUU2 


SJOBCTLD 


KCG2 


TXCUU2 


SJOBCTLJ 


PTFl 


TXCUU3 


SJOBCTLD 


KCH2 


TXCUU3 


SJOBCTLF 


MQJ4 


TXCUU4 


SJOBCTLD 


KCE2 


TXCUU4 


SJOBCTLF 


M0F4 


T125BG 


S1PLRT4 


EPC3 


T12SCH 


SIPLRT4 


EPBl 


T125EN 


SIPLRT4 


EPH3 


T125EXT 


SIPLRT4 


EPC2 


T125HW 


$IPLRT4 


EPHl 


T125N0C 


$rPLRT4 


EPG3 


T125N0R 


$IPLRT4 


EPB4 


T125RT 


$IPLRT4 


EPA4 


T125SCA 


SIPLRT4 


EPA3 


T1442 


SJOBCTLJ 


PNE2 


UA 


SJOBCTLF 


MEBl 


UADNl 


SJOBCTLF 


MEEl 


UADN2 


SJOBCTLF 


MEJl 


UADN3 


SJOBCTLF 


MEE5 


UADN4 


SJOBCTLF 


MEF3 


UADN5 


SJOBCTLF 


MEA4 


UADN6 


SJOBCTLF 


MEH3 


UALUB 


SJOBCTLF 


MJC3 


UALUBl 


SJOBCTLF 


MJD3 


UANXJB 


SJOBCTLG 


NNA5 


U AS CAN 


SJOBCTLG 


NNBl 


UASTD 


SJOBCTLF 


MJC5 


UCS 


SJOBCTLJ 


PBBl 


UCSSCN 


SJOBCTLJ 


PCB2 


UCSVN 


SJOBCTLJ 


PCCl 


UCSl 


SJOBCTLJ 


PBHl 


UCS2 


SJOBCTLJ 


PBC2 


UCS3 


SJOBCTLJ 


PCE3 


UCS4 


SJOBCTLJ 


PCE4 


UNA 


SJOBCTLF 


MNBl 


UNAE 


SJOBCTLF 


MNFl 


UNANENT 


SJOBCTLD 


KHB3 


UNANENT 


SJOBCTLF 


MRG5 


UNASGN 


SJOBCTLG 


NNC4 


UNASLUB 


$$ASIPL2 


BBJ2 


UNASSGN 


SJOBCTLD 


JQB5 


UNAl 


SJOBCTLF 


MNB3 


UNAIA 


SJOBCTLF 


MNE3 


UNA2 


SJOBCTLF 


MPAl 


UNA2A 


SJOBCTLF 


MPEl 


UNA2AA 


SJOBCTLF 


MPFl 


UNA2B 


SJOBCTLF 


MPGl 


UNBLKO 


SJOBCTLJ 


PDC5 


UNCLOG 


SJOBCTLA 


GCH4 


UNCU 


SJOBCTLF 


MCA3 


UNITR 


SIPLRT5 


FEB3 


UNITSl 


SJOBCTLF 


MCAl 
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Label 

UNITS2 

UN IT S3 

UNITS401 

UNITS402 

UNITS5 

UNITS501 

UNITS6 

UNITS8 

UNITS9 

UNPA 

UNPAl 

UNPA 3 

UNTFND 

UNZYCO 

UNZYSV 

UPADDR 

UPDATE 

UPDENO 

UPDHDN 

UPDSAV 

UPLIOK 

UPLUB 

UPL20K 

UPSICH 

UPSIPROC 

USERROR 

USNRES 

USRLBL 

USRLBLl 

VALIDLAB 
VIRTENT 
VMBUCK 
VMEND 
VMRTN 
VOL 

VOL F NO 
VOLIDCO 
VOL I OR 
VOL I DOG 
VOL 1 005 
VOLOK 

WAT TERR 

WAITR 

WRITEEOF 

WRITELAB 

WRTDSKOO 

WRTDSK05 

WRTERR 

WRTF ILOO 

WRTFIL05 

WRTFILIO 

WRTF IL20 

WRTHOROO 

XCTL 
XCTL 
XREF 
XTENT 
XTENT 
XTENT2 
XTN TOKAY 
XTOP 12 
XTOP 12A 
XTOP 12B 



Phase 


Location 


SJOBCTLF 


MCHl 


SJOBCTLF 


MCH2 


$JOBCTLF 


MCEl 


SJOBCTLF 


MCB3 


SJOBCTLF 


MCC3 


SJOBCTLF 


MCC4 


SJOBCTLF 


MCA5 


SJOBCTLF 


MCH4 


SJOBCTLF 


MCD3 


SJOBCTLD 


KHBl 


SJOBCTLD 


KHOl 


SJOBCTLD 


KHB2 


SJOBCTLJ 


PTF4 


SIPLRT5 


FAJ3 


SIPLRT5 


FAH4 


SJOBCTLE 


LFB5 


SJOBCTLM 


RRB2 


SJOBCTLE 


LGD2 


SJOBCTLA 


GRJ3 


SJOBCTLJ 


PUBl 


$IPLRT5 


FAE5 


SIPLRT2 


CGGl 


S1PLRT5 


FFF3 


SJOBCTLJ 


PKD3 


SJOBCTLJ 


PKBl 


SJOBCTLN 


SAFl 


SIPLRT4 


EBA3 


SJOBCTLG 


NJB5 


SJOBCTLG 


NJD5 


SIPLRT4 


EMC2 


SJOBCTLE 


LHE3 


SJOBCTLJ 


PNB5 


SJOBCTLJ 


PNF5 


SJOBCTLJ 


PNB3 


SJOBCTLK 


QAB5 


SIPLRT5 


FBE2 


SIPLRT5 


FAB5 


SIPLRT5 


FEG2 


SJOBCTLM 


RNB4 


SJOBCTLM 


RNH4 


SJOBCTLD 


JLF5 


SJOBCTLA 


GVH5 


SJOBCTLJ 


PMD3 


SIPLRT4 


EMF5 


SIPLRT4 


ENB4 


SJOBCTLM 


RHB2 


SJOBCTLM 


RHH2 


SJOBCTLA 


GSG5 


SJOBCTLM 


RLB4 


SJOBCTLM 


RLC4 


SJOBCTLM 


RLE4 


SJOBCTLM 


RLK4 


SJOBCTLM 


RHB3 


SSASIPL2 


BCKl 


SJOBCTLE 


LGB4 


SJOBCTLG 


NHD4 


SJOBCTLB 


HEBl 


SJOBCTLK 


QGBI 


SJOBCTLB 


HFE5 


SIPLRT5 


FBB4 


SJOBCTLK 


QMB2 


SJOBCTLK 


QM02 


SJOBCTLK 


QMF2 



Label 



Phase 



Location 



XT0P3 


SJOBCTLK 


0GC5 


XT0P34 


SJOBCTLK 


QMB3 


XT0P5 


SJOBCTLK 


OHAl 


XTOUT 


SJOBCTLK 


0HG2 


XTUNIT 


SJOBCTLK 


QHC5 


YDISK 


SJOBCTLD 


JE03 


YESLOGl 


SIPLRT4 


ECE4 


ZONE 


SJOBCTLJ 


PHB4 


ZONECHK 


SIPLRT4 


EAGl 


ZRMVDN 


SJOBCTLA 


GJE4 


ZRMVLP 


SJOBCTLA 


GJ04 


ZYLR 


SIPLRT5 


FEB5 
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Phase 



Chart 



OIOOA 


$$A$IPL2 


BA 


OIOOI 


$IPLRT2 


CJ 


OIOIA 


$$A$IPL2 


BB 


0I02A 


$$A$IPL2 


BA 


0I03A 


$$A$IPL2 


BA 


0I04I 


$$A$IPL2 


BA 


OIIOA 


$IPLRT2 


CC 


OIllA 


$IPLRT2 


CH 


0I12A 


$IPLRT3 


DC 


0I13A 


$IPLRT3 


DA 


OIl^A 


$IPLRT3 


DF 


01 ISA 


$IPLRT3 


DA 


0I16A 


$IPLRT4 


EB 


0I17A 


$IPLRT4 


EB 


0I18A 


$IPLRT2 


CC 


0I19I 


$IPLRTf| 


EM 


0I20I 


$IPLRT5 


FD 


0I23A 


$IPLRT4 


ED 


0I24A 


$IPLRT3 


DE 


0I25I 


$IPLRT4 


EC 


0I29I 


$IPLRT4 


ED 


0I30I 


$IPLRT2 


CB 


0I31A 


$IPLRT2 


CB 


0I32I 


$IPLRT2 


CB 


0133^ 


$Ii*lKl^ 


ES 


0I34D 


$IPLRTt| 


ES 


0I35I 


$IPLRT4 


ET 


0I37A 


$IPLRT5 


FC 


0I38A 


$IPLRT5 


FB 


0I3 9A 


$IPLRT5 


FC 


0I40A 


$IPLRT5 


FA 


0I41A 


$IPLRT5 


FA 


0I42A 


$IPLRT5 


FF 


0I43A 


$IPLRT5 


FF 


0I44A 


$IPLRT5 


FB 


0I45A 


$IPLRT5 


FB 


0I46A 


$IPLRT5 


FB 


0I47I 


$IPIRT2 


CJ 


0I48I 


$IPLRT2 


CJ 


0I4 9A 


$IPLRT5 


FB 


0I50A 


$IPLRT2 


CC 


0I51A 


$IPLRT5 


FC 


0I52I 


$IPLRT5 


FF 


0I60A 


$IPLRT3 


DF 


0I61I 


$IPLRT4 


EC 


OROII 


$JOECTLB 


HD 


0R02I 


$JOBCTLB 


HG 


0R03I 


$JOECTLB 


HE 


0R17I 


$JOBCTLB 


HD 


0R19I 


$JOECTLB 


HD 


lAOnD 


$JOBCTLD 


KM 


lAlnB 


$JOECTLD 


KM 


lA2nD 


$JOBCTLD 


KM 




$JOECTLG 


NR 




$aOBCTLJ 


PV 


lA3nB 


$JOECTLD 


KM 


lA4nD 


$JOBCTLD 


KM 




$JOECTLF 


MN 




$JOBCTLJ 


PV 




$JOECTLK 


QS 




lA6nE 
lA7nE 



1A80D 
1A81I 
lA9nD 

ICOOA 
ICIOA 



1C30A 
1C33I 
1C70D 
1C80D 
1C90D 
IIOOA 

IIIOI 
1I5CI 
1I70I 
1I82I 
1I83A 
1I8'*A 
1I86A 
1I89A 
1I90A 
1I91A 
1I92I 
1I93I 
1I95A 
1I96A 
1I97I 
1I98I 
1I99A 
ILOnE 
ILlnD 



IKIOA 

1K20E 
lM3nD 
lM4nE 
lM5nB 

lM6nD 
lK7nD 
lM8nD 
lM9nD 
INOOI 
INIOD 
lN2nD 
1N30D 
1N40D 



Phase 

$JOBCTLD 
$JOBCTLF 
$JOBCTLJ 
$JOECTLD 
$JOBCTLF 
$JOECTLD 
$JOBCTLF 
$JOBCTLJ 
$JOBCTLD 
$JOBCTLA 
$JOBCTLD 
$JOBCTLF 
$JOBCTLA 
$JOBCTLA 
$JOBCTLG 
$JOBCTLJ 
$JOBCTLJ 
$JOBCTLE 
$JOBCTLA 
$JOBCTLA 
$JOBCTLE 
$JOBCTLA 
$JOBCTLG 
$JOBCTLF 

$JOECTLA 
$JOBCTLM 
$JOBCTLM 
$JOBCTLM 
$JCBCTLM 
$jbBCTLM 
$JOBCTLM 
$JOBCTLM 
$JOBCTLM 
$JOBCTLM 
$JOBCTLM 
SJOECTIM 
$JOBCTLM 
$JOECTLJ 
$JOBCTLM 
$JOBCTLK 
$JOBCTIE 
$JOBCTLG 
$JOBCTLK 
$JOBCTLA 
$JOBCTLG 
$JOBCTLA 
$JOBCTLA 
$JOBCTLG 
$JOBCTLD 
$JOBCTLF 
$JCBCTI.E 
$JOBCTLE 
$JOBCTLE 
$JOBCTLE 
$JOBCTLA 
$JCBCTLE 
$JOBCTLE 
$JOBCTLE 
$JOBCTLE 



Chart 

KK 
MN 
PV 
KM 
MN 
KM 
MN 
PV 
JQ 
GS 
KM 
MN 
GV 
GC 
NM 
PV 
PV 
LU 
GJ 
GV 
LJ 
GE 
NU 
MB 

GV, 
RA 
RK 
RA 
RA 
RC 
RC 
RC 
RA 
RK 
RA 
RC 
RA 
PJ 
RP 

Q£ 
LU 
NR 
QS 
GB 
NT 
GM 
GP 
NS 
KN 
MF 
LA 
LA 
LP 

IC 
GN 
LC 

LR 

LR 
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Messag e Phase 



Chart 



IN SOD 


$JOBCTLE 


LR 


1N60D 


$JOECTLE 


LS 


lN7nD 


$JOBCTLG 


NS 


1N80I 


$JOECTLG 


NU 


1N90I 


$JOBCTLG 


NU 


iPOnB 


$JOECTLJ 


PV 


1P20D 


$JOECTLE 


LU 


ISOOD 


$JOBCTLA 


GW 




$JOECTLG 


NR 



Message 



Phase 



Chart 



ISlnD 


$JOECTLG 


NR 




$JOBCTIJ 


PV 




$JOBCTIK 


QS 


ITOOA 


$JOBCTLA 


— 


ITIOI 


$JOBCTLA 


— 


1T20I 


$jaBCTLD 


JR 


1T50A 


$JOBCTLD 


JL 


lT60iv 


$JOBCTLD 


JI 


1T70A 


$JOBCTLD 


JR 
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APPENDIX C: TOTAL MESSi^GE CROSS REFERENCE 



All messages issued by the DOS/VS system control programs are listed in this appendix 
with a reference to the PLM and issuing phase. For cause and action of each message, see 
DOS/VS Messages , GC33-5379. 



Message Phase 



ODOIA 
0D02I 
0D03A 
0D04A 
0D05A 
OD05A 
0D06A 
0D07B 
0D08A 
0D09D 
0D20E 
0D25E 
0D26A 
0D26E 
0D29E 
0D30A 
0D30A 
0D33A 
0D34E 
0D35E 
0D36E 
0D97A 
OIOOA 
OIOOI 
OIOIA 
0I02A 
0I03A 
0I04I 
OIIOA 
OIllA 
0I12A 
0I13A 
0I14A 
0I15A 
0I16A 
0I17A 
0I18A 
0I19I 
0I20I 
0I23A 
0I24A 
0I25I 
0I26I 
0I26I 
0I26I 
0I27I 
0I27I 
0I28D 
0I28D 
0I28I 
0I29I 
0I30I 
0I31A 
0I32I 
01 §3 A 
0I34D 
0I35I 



$$BOCRTV 

$$BOCRTM 

$$BOCRTX 

$$BOCRTV 

$$BOCRTW 

$$B0CRT1 

$$BOCRTY 

$$BOCRTS 

$$BOCRTS 

$$BOCRTR 

$$BOCRTE 

$$BOCRTE 

$$BOCRTG 

$$BOCRTE 

$$BOCRTE 

$$BOCRTV 

$$B0CRT1 

$$BOCRTE 

$$BOCRTF 

$$BOCRTF 

$$BOCRTF 

$$B0CRT1 

$$A$IPL2 

$IPLRT2 

$$A$IPL2 

$$A$IPL2 

$$A$IP12 

$$A$IPL2 

$IPLRT2 

$IPLRT2 

$IPLRT3 

$IPLRT3 

$IPLRT3 

$IPLRT3 

$IPLRT4 

$IPLRT4 

$IPLRT2 

$IPLRTa» 

$IPLRT5 

$IPLRTa 

$IPLRT3 

$IPLRT4 

$$BFLDR 

$$BUFLDR 

$IPLRTU 

$^BUFLD2 

$IPLRTa 

$$BUFLD2 

$IPLRTa 

$$BFLD2 

$IPLRT4 

$IPLRT2 

$IPLRT? 

$IPLRT2 

$IPLRT«* 

$IPLRT4 

$IPLRTa 



PLM 

SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 
SY33- 



Message Phase 



PLM 



8553 
8553 
8553 
8553 
8553 
8553 
8553 
8553 
8553 
8553 
8553 
8553 
8553 
8553 
8553 
8553 
8553 
8553 
8553 
8553 
8553 
8553 
8555 
8555 
8555 
8555 
8555 
8555 
8555 
8555 
8555 
8555 
8555 
8555 
8555 
8555 
8555 
8555 
8555 
8555 
8555 
8555 
8554 
8553 
8555 
8553 
8555 
8553 
8555 
8554 
8555 
8555 
8555 
8555 
8555 
8555 
8555 



0I37A 


$IPLRT5 


SY33-8555 


0I38A 


$IPLRT5 


SY33-8555 


0I39A 


$IPLRT5 


SY33-8555 


0I40A 


$IPLRT5 


SY33-8555 


0I41A 


$IPLRT5 


SY33-8555 


0I42A 


$IPLRT5 


SY33-8555 


0I43A 


$IPLRT5 


SY33-8555 


0I44A 


$IPLRT5 


SY33-8555 


0I45A 


$IPLRT5 


SY33-8555 


0I46A 


$IPLRT5 


SY33-8555 


0I47I 


$IPLRT2 


SY33-8555 


0I48I 


$IPLRT2 


SY33-8555 


0I49A 


$IPLRT5 


SY33-8555 


0I50A 


$IPLRT2 


SY33-8555 


0I51A 


$IPLRT5 


SY33-8555 


0I52I 


$IPLRT5 


SY33-8555 


0I60A 


$IPLRT3 


SY33-8555 


0I61I 


$IPLRT4 


SY33-8555 


0P08 


$$ABERA£ 


SY33-8552 


0P08 


$$ABERAH 


SY33-8552 


0P08 


$$ABERAN 


SY33-8552 


0P08 


$$ABERRE 


SY33-8552 


0P08 


$$ABERRf 


SY33-«;id2 


0P08 


$$ABERRG 


SY33-8552 


0P08 


$$ABERRH 


SY33-8552 


0P08 


$$ABERRI 


SY33-8552 


0P08 


$$ABERRS 


SY33-8552 


0P08 


$$ABERRT 


SY33-8552 


0P08 


$$ABERRU 


SY33-8552 


0P08 


$$ABERRV 


SY33-8552 


0P08 


$$ABERRM 


SY33-8552 


0P08 


$$ABERRY 


SY33-8552 


0P08 


$$ABERR1 


SY33-8552 


0P08 


$$ABERR7 


SY33-8552 


0P09 


$$ABERA£ 


SY33-8552 


0P09 


$$ABERAH 


SY33-8552 


0P09 


$$ABERAN 


SY33-8552 


0P09 


$$AB£RRE 


SY33-8552 


0P09 


$$ABERRF 


SY33-8552 


0P09 


$$ABERRG 


SY33-8552 


0P09 


$$ABERRH 


SY33-8552 


0P09 


$$ABERRI 


SY33-8552 


0P09 


$$ABERRS 


SY33-8552 


0P09 


$$ABERRT 


SY33-8552 


0P09 


$$ABERRU 


SY33-8552 


0P09 


$$ABERRV 


SY33-8552 


0P09 


$$ABERRM 


SY33-8552 


0P09 


$$ABERRY 


SY33-8552 


0P09 


$$ABERR1 


SY33-8552 


0P09 


$$ABERR7 


SY33-8552 


OPIO 


$$ABERAC 


SY33-8552 


OPIO 


$$ABERAE 


SY33-8552 


OPIO 


$$ABERAF 


SY33-8552 


OPIO 


$$ABERAH 


SY33-8552 


OPIO 


$$AB£RAN 


SY33-8552 


OPIO 


$$ABERRE 


SY33-8552 


OPIO 


$$ABERRF 


SY33-8552 
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OPIO 


$$ABERPG 


SY33- 


•8552 


OPIO 


$$ABERRH 


SY33- 


-8552 


OPIO 


$$ABERRI 


SY33- 


■8552 


OPIO 


$$ABERRU 


SY33- 


-8552 


OPIO 


$$ABERRV 


SY33- 


-8552 


OPIO 


$$ABERRW 


SY33- 


•8552 


OPIO 


$$ABERRY 


SY33- 


-8552 


OPIO 


$$ABERR1 


SY33- 


•8552 


OPIO 


$$ABERR7 


SY33- 


-8552 


OPll 


$$ABERAE 


SY33- 


-8552 


OPll 


$$ABERAC 


SY33- 


•8552 


OPll 


$$ABERAF 


SY33- 


-8552 


OPll 


$$ABERAH 


SY33- 


■8552 


OPll 


$$ABERAI 


SY33- 


-8552 


OPll 


$$ABERRE 


SY33- 


•8552 


OPll 


$$ABERRF 


SY33- 


-8552 


OPll 


$$ABERRG 


SY33- 


-8552 


OPll 


$$ABERRH 


SY33- 


-8552 


OPll 


$$ABERRI 


SY33- 


•8552 


OPll 


$$ABERRU 


SY33- 


-8552 


OPll 


$$ABERRV 


SY33- 


•8552 


OPll 


$$ABERRY 


SY33- 


■8552 


OPll 


$$ABERR5 


SY33- 


-8552 


OPll 


$$ABERR7 


SY33- 


-8552 


0P12 


$$ABERRE 


SY33- 


•8552 


0P12 


$$ABERR5 


SY33- 


■8552 


0P13 


$$ABERRE 


SY33- 


•8552 


0P13 


$$ABERR5 


SY33-' 


-8552 


0P13A 


$$RASTia 


SY33- 


-8552 


0P14 


$$ABERAE 


SY33- 


-8552 


0P14 


$$ABERAH 


SY33- 


-8552 


0P14 


$$ABERRE 


SY33- 


•8552 


OPIU 


$$ABERRT 


SY33- 


-8552 


0P14 


$$ABERRY 


SY33- 


•8552 


0P14 


$$ABERR1 


SY33- 


-8552 


0P15 


$$ABERRE 


SY33- 


•8552 


0P15 


$$ABERR4 


SY33- 


•8552 


0P16 


$$ABERRE 


SY33- 


-8552 


0P16 


$$ABERR5 


SY33- 


-8552 


0P17 


$$ABERAE 


SY33- 


•8552 


0P17 


$$ABERAH 


SY33- 


-8552 


0P17 


$$ABERRE 


SY33- 


-8552 


0P17 


$$ABERR1 


SY33- 


-8552 


0P18 


$$ABERAE 


SY33- 


•8552 


0P18 


$$ABERAH 


SY33- 


-8552 


0P18 


$$ABERAN 


SY33- 


-8552 


0P18 


$$ABERRE 


SY33- 


-8552 


0P18 


$$ABERRF 


SY33- 


-8552 


0P18 


$$ABERRG 


SY33- 


-8552 


0P18 


$$ABERRH 


SY33- 


-8552 


0P18 


$$ABERRI 


SY33- 


-8552 


0P18 


$$ABERRS 


SY33- 


-8552 


0P18 


$$ABERRT 


SY33- 


-8552 


0P18 


$$ABERRU 


SY33- 


-8552 


0P18 


$$ABERRV 


SY3 3- 


-8552 


0P18 


$$ABERRW 


SY33- 


-8552 


0P18 


$$ABERRY 


SY33- 


-8552 


0P18 


$$ABERR1 


sy33- 


-8552 


0P18 


$$ABERR7 


SY33- 


-8552 


0P19 


$$ABERAE 


SY33- 


-8552 


0P19 


$$ABERAH 


SY3 3- 


-8552 


0P19 


$$ABERAN 


SY33- 


-8552 


0P19 


$$ABERRE 


SY33- 


-8552 


UP19 


$$ABERRF 


SY3 3- 


-8552 


0P19 


$$ABERRG 


SY33- 


-8552 


0P19 


$$ABERRH 


SY3 3- 


-8552 
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0P19 


$$ABERRI 


SY33- 


-8552 


0P19 


$$ABERRS 


SY3 3- 


-8552 


0P19 


$$ABERRT 


SY33- 


-8552 


0P19 


$$ABERRU 


SY33- 


-8552 


0P19 


$$ABERRV 


SY33- 


-8552 


0P19 


$$ABERRW 


SY33- 


-8552 


0P19 


$$ABERRY 


SY33- 


-8552 


0P19 


$$ABERR1 


SY33- 


-8552 


0P19 


$$ABERR7 


SY33- 


-8552 


0P20 


$$A$SUF1 


SY33- 


•8552 


0P20 


$$ABERAC 


SY33- 


-8552 


0P20 


$$ABERAF 


SY3 3- 


•8552 


0P20 


$$ABERAG 


SY33- 


-8552 


0P20 


$$ABERRr 


SY33- 


-8552 


0P20 


$$ABERRF 


SY33- 


-8552 


0P20 


$$ABERRI 


SY33- 


-8552 


0P20 


$$ABERRU 


SY33- 


-8552 


0P20 


$$ABERR2 


SY33- 


•8552 


0P20 


$$ABERR4 


SY33- 


-8552 


0P21 


$$ABERRE 


SY33- 


•8552 


0P21 


$$ABERR4 


SY33- 


•8552 


0P22 


$$ABERR1 


SY33- 


-8552 


0P22 


$$ABERRa 


SY33- 


-8552 


0P23 


$$ABERRa 


SY33- 


-8552 


0P2a 


$$ABERAE 


SY33- 


-8552 


0P24 


$$ABERAH 


SY33- 


-8552 


0P24 


$$ABERRA 


SY33- 


•8552 


0P24 


$$ABERRI 


SY33- 


•8552 


0P25 


$$ABERAE 


SY33- 


■8552 


0P25 


$$ABERAH 


SY3 3- 


•8552 


0P25 


$$ABERRA 


SY33- 


•8552 


0P25 


$$ABERRI 


SY33- 


•8552 


0P26 


$$ABERRE 


SY33- 


-8552 


0P26 


$$ABERR1 


SY33- 


•8552 


0P27 


$$ABERRA 


SY33- 


-8552 


0P27 


$$ABERRY 


SY33- 


•8552 


0P28 


$$ABERAE 


SY33- 


-8552 


QP28 


$$ABERAH 


SY33- 


•8552 


0P28 


$$ABERAN 


SY33- 


-8552 


0P28 


$$ABERRE 


SY33- 


•8552 


0P28 


$$ABERRF 


SY33- 


•8552 


0P28 


$$ABERRG 


SY33- 


•8552 


0P28 


$$ABERRH 


SY33- 


•8552 


0P28 


$$ABERRI 


SY3 3- 


•8552 


0P28 


$$ABERRS 


SY33- 


-8552 


0P28 


$$aberrt: 


SY33- 


•8552 


0P28 


$$ABERRU 


SY33- 


•8552 


0P28 


$$ABERRV 


SY33- 


•8552 


0P28 


$$ABERRW 


SY33- 


•8552 


0P28 


$$ABERRY 


SY33- 


•8552 


0P28 


$$ABERR1 


SY33- 


-8552 


0P28 


$$ABERR7 


SY33- 


•8552 


0P29 


$$ABERAE 


SY33- 


•8552 


0P29 


$$ABERAH 


SY33- 


•8552 


0P30 


$$ABERAE 


SY33- 


•8552 


0P30 


$$ABERAH 


SY33- 


•8552 


0P31 


$$ABERAE 


SY3 3- 


•8552 


0P31 


$$ABERAH 


SY33- 


-8552 


0P31 


$$ABERRA 


SY33- 


•8552 


0P31 


$$ABERRI 


SY33- 


-8552 


0P32 


$$ABERAF 


SY33- 


-8552 


0P32 


$$ABERAH 


SY33- 


-8552 


0P33 


$$ABERRF 


SY33- 


•8552 


0P33 


$$ABERRY 


SY33- 


-8552 


OP3t4 


$$ABERRS 


SY33- 


-8552 


0P35 


$$ABERAN 


SY33- 


-8552 
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0P35 


$$ABERR1 


SY33-8552 


osiai 


$$BB0J2A 


SY33-8553 


0P36 


$$ABERRE 


SY33-8552 


0S15I 


$$BE0J2A 


SY33-8553 


0P36 


$$ABERR4 


SY33-8552 


0S16I 


$$BB0J2A 


SY33-8553 


0P37 


$$ABERRS 


SY33-8552 


0S17I 


$$BMVKEY 


SY33-8553 


0P38 


$$ABERRT 


SY33-8552 


OTOOI 


$$ABERA1 


SY33-8552 


0P39 


$$ABERRI 


SY33-8552 


OTOOI 


$$ABERA2 


SY33-8552 


opao 


$$ABERRU 


SY33-8552 


OTOOI 


$$ABERA3 


SY33-8552 


0P41 


$$ABERRF 


SY33-8552 


OTOOI 


$$RAST08 


SY33-8552 


0P41 


$$ABERRH 


SY33-8552 


OTOOI 


$$RAST11 


SY33-8552 


0P'»2 


$$ABERAE 


SY33-8552 


0T03I 


$$ABERA1 


SY33-8552 


0P42 


$$ABERAG 


SY33-8552 


0T03I 


$$ABERA2 


SY33-8552 


0P«*2 


$$ABERAH 


SY33-8552 


0T03I 


$$ABERA3 


SY33-8552 


0P43 


$$ABERAG 


SY33-8552 


0T03I 


$$RAST08 


SY33-8552 


0P44 


$$ABERAC 


SY33-8552 


0T03I 


$$RAST11 


SY33-8552 


0P44 


$$ABERAH 


SY33-8552 


0T05E 


$$RAST08 


SY33-8552 


0P45 


$$ABERRE 


SY33-8552 


0T05E 


$$RAST11 


SY33-8552 


0P«*6 


$$ABERAG 


SY33-8552 


QT05I 


$$ABERA1 


SY33-8552 


0P47 


$$ABERAE 


SY33-8552 


0T05I 


$$ABERA2 


SY33-8552 


0P47 


$$ABERAH 


SY33-8552 


0T05I 


$$AbERA3 


SY33«8552 


0P48 


$$ABERRG 


SY33-8552 


0T06I 


$$RAST03 


SY33-8552 


0P49 


$$ABERRG 


SY33-8552 


0T06I 


$$RAST11 


SY33-8552 


0P49 


$$ABERR7 


SY33-8552 


0T07I 


$$RAST03 


SY33-8552 


0P50 


$$ABERRY 


SY33-8552 


0T07I 


$$RAST11 


SY33-8552 


0P51 


$$ABERAN 


SY33-8552 


0T08I 


$$RAST03 


SY33-8552 


0P52 


$$ABERAN 


SY33-8552 


0T08I 


$$RAST11 


SY33-8552 


0P53 


$$ABERAN 


SY33-8552 


0T09I 


$$RAST03 


SY33-8552 


0P54 


$$ABERAN 


SY33-8552 


0T09I 


$$RAST11 


SY33-'8552 


0P55 


$$ABERR7 


SY33-8552 


OTIOI 


$$RAST02 


SY33-8552 


0P60D 


$$ABERRZ 


SY33-8551 


OTIOI 


$$RAST04 


SY33-8552 


0P70I 


$$BE0J2 


SY33-8553 


OTIOI 


$$RAST05 


SY33-8552 


0P71I 


$$BE0J2 


SY33-8553 


OTIOI 


$$RAST06 


SY33-8552 


0PV2I 


$§BeOcJ2 


Sl33-o553 








0P73I 


$$BE0J2A 


SY33-8553 


OTIOI 


$$RAST10 


SY33-8552 


0P7t*I 


$$BE0J2A 


SY33-8553 


OTIOI 


$$RAST12 


SY33-8552 


0P75I 


$$BE0J2 


SY33-8553 


OTllW 


$$RASTOO 


SY33-8552 


0P76I 


$$BE0J2 


SY33-8553 


0T12I 


$$RAST02 


SY33-8552 


0P77I 


$$BE0J2 


SY33-8553 


0T12I 


$$RASTOa 


SY33-8552 


0P78I 


$$BE0JS2 


SY33-8553 


0T12I 


$$RAST05 


SY33-8552 


0P79I 


$$BE0J2A 


SY33-8553 


0T12I 


$$RAST06 


SY33-8552 


0P81I 


$$BE0J2A 


SY33-8553 


0T12I 


$$RAST07 


SY33-8552 


0P82I 


$$BE0J2A 


SY33-8553 


0T12I 


$$RAST10 


SY33-8552 


0P83A 


$$BE0J2A 


SY33-8553 


0T12I 


$$RAST12 


SY33-8552 


0P84I 


$$BE0J2A 


SY33-8553 


0T13A 


$$RAST04 


SY33-8552 


0P85I 


$$BE0J2A 


SY33-8553 


0T13A 


$$RAST05 


SY33-8552 


0P87A 


$$BE0JS2 


SY33-8553 


0T13A 


$$RAST06 


SY33-8552 


0P88I 


$$BE0JS2 


SY33-8553 


0T13A 


$$RAST10 


SY33-8552 


0P89I 


$$AB£RRZ 


SY33-8551 


0T14E 


$$RAST03 


SY33»8552 


OR 01 1 


$JOBCTLE 


SY33-8555 


0T14E 


$$RAST11 


SY33-8552 


0R02I 


$JOBCTLE 


SY33-8555 


0T15E 


$$RAST09 


SY33-8552 


0R03I 


$JOBCTLE 


SY33-8555 


0T15E 


$$RAST13 


SY33-8552 


0R17I 


$JOBCTIE 


SY33-8555 


0T16I 


$$RAST03 


SY33-8552 


0R19I 


$JOBCTLE 


SY33-8555 


0T16I 


$$RAST11 


SY33-8552 


OSOOI 


$$BILSVC 


SY33-8553 


0T17I 


$$RAST03 


SY33-8552 


OSOOI 


$$BPCHK 


SY33-8553 


0T17I 


$$RAST11 


SY33-8552 


OSOII 


$$BE0J2 


SY33-8553 


0T18E 


$$RAST03 


SY33«8552 


0S02I 


$$BE0J2 


SY33-8553 


0T18E 


$$RAST11 


SY33»8552 


0S03I 


$$BPCHK 


SY33-8553 


0T19E 


$$RAST09 


SY33-8552 


0S04I 


$$BILSVC 


SY33-8553 


0T20E 


$$RAST13 


SY33«8552 


0S05I 


$$BILSVC 


SY33-8553 


OVOII 


$$BE0JS2 


SY33-8553 


0S06I 


$$BE0J1 


SY33-8553 


0V02I 


$$BE0JS2 


SY33-8553 


0S07I 


$$BPSW 


SY33-8553 


0V03I 


$$BE0JS2 


SY33-8553 


0S08I 


$$BEOJ 


SY33-8553 


OVOUI 


$$BE0JS2 


SY33-8553 


0S09I 


$$BE0J1 


SY33-8553 


0V05I 


$$BE0JS2 


SY33-8553 


OSllI 


$$BE0J1 


SY33-8553 


0V06I 


$$BE0JS2 


SY33-8553 


0S12I 


$$BE0J2A 


SY33-8553 


0V07I 


$$BE0JS2 


SY33-8553 


0S13I 


$$BE0J2A 


SY33-8553 


0V08I 


$$BE0JS2 


SY33»8553 
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0V09I 


$$BE0JS2 


SY33-8553 


OVIOI 


$$BE0J2A 


SY33-8553 


OVllI 


$$BE0J2 


SY33-8553 


ovaoD 


PDSDM 


SY33-855a 


0V21D 


PDSDM 


SY33-8554 


0V22D 


PDSDM 


SY33-8554 


0V23D 


PDSDM 


SY33-8554 


0V2«*I 


PDSDM 


SY33-8'55a 


0V25I 


PDSDM 


SY33-855a 


0V26I 


PDSDM 


SY33-8554 


0V27I 


PDSDM 


SY33-8554 


0V28I 


PDSDM 


SY33-855a 


0V29I 


PDSDM 


SY33-8554 


0V30I 


PDSDM 


SY33-8554 


0V31I 


PDSDM 


SY33-8554 


0V32I 


PDSDM 


SY33-8554 


0V33I 


PDSDM 


SY33-8554 


0V3ai 


PDSDM 


SY33-8554 


0V35I 


PDSDM 


SY33-8554 


0V36I 


PDSDM 


SY33-855a 


0V37I 


PDSDM 


SY33-855a 


0V39I 


PDSDM 


SY33-8554 


0V40I 


PDSDM 


SY33-8554 


0V41I 


PDSDM 


SY33-8554 


ova 2 1 


PDSDM 


SY33-855a 


0V4*3I 


PDSDM 


SY33-8554 


ovat*i 


PDSDM 


SY33-8554 


04E6 


SDEHR 


SY33-8554 


lAOND 


$JOBCTLD 


SY33-8555 


lAlND 


$JOBCTLC 


SY33-8555 


1A2ND 


$JCBCTLD 


SY33-8555 


1A2ND 


$JOBCTLG 


SY33-8555 


1A2ND 


$JOBCTLJ 


SY33-8555 


1A3ND 


$JOBCTLE 


SY33-855S 


lAUND 


$JCBCTLB 


SY33-8555 


1A4ND 


$JOBCTLF 


SY33-8555 


1A«*ND 


$JOBCTLJ 


SY33-8555 


1A4ND 


$JOBCTLK 


SY33-8555 


1A5NB 


$JOBCTLD 


SY33-8555 


1A5ND 


$JCBCTLF 


SY33-8555 


1A5ND 


$JOBCTLJ 


SY33-8555 


1A6ND 


$JOBCTLD 


SY33-8555 


1A6ND 


$JOBCTLF 


SY33-8555 


1A7ND 


$JOBCTLE 


SY33-8555 


1A7ND 


$JOBCTLF 


SY33-8555 


1A7ND 


$JOBCTIJ 


SY33-8555 


1A80D 


$JOBCTLE 


SY33-8555 


1A81I 


$JOBCTLA 


SY33-8555 


1A9NB 


$JOBCTLE 


SY33-8555 


1A9ND 


$JOBCTLF 


SY33-8555 


IBOIA 


SYSBUFLE 


SY33-8554 


1B02A 


SYSBUFLE 


SY33-8554 


1B03I 


SYSBUFLE 


SY33-855a 


IBIOI 


SYSBUFLE 


SY33-855^ 


IBllD 


SYSBUFLE 


SY33-8554 


ICOOA 


$JCBCTLA 


SY33-8555 


ICIOA 


$JOBCTLA 


SY33-8555 


ICIOA 


$JOBCTLJ 


SY33-8555 


1C30A 


$JOBCTLJ 


SY33-8555 


1C331 


$JOBCTLE 


SY33-8555 


1C40I 


$$BATTNA 


SY33-8553 


icaoi 


$$BATTIiE 


SY33-8553 


1C50I 


$$BATTNA 


SY33-8553 


1C50I 


$$BATTNE 


SY33-8553 


1C60D 


$$BATTNN 


SY33"-85b3 


1C70D 


$JOBCTLA 


SY33-8555 
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1C80B 


$JOBCTLA 


SY33- 


-8555 


1C90D 


$JOBCTLE 


SY33- 


-8555 


IIOOA 


$JOBCTLA 


SY33- 


-8555 


IIOOA 


$JOBCTLG 


SY33- 


-8555 


IIIOI 


$JOBCTLF 


SY33- 


-8555 


1I30D 


$$BATTNC 


SY33- 


-8553 


1I32B 


$$ABERPZ 


SY33- 


■8551 


IIUOD 


$$ABERBZ 


SY33- 


-8551 


IIUID 


$$BATTNT 


SY33- 


-8553 


1I41D 


$$BATTKU 


SY33- 


-8553 


lIi*2E 


$$BATTNT 


SY33- 


-8553 


lia3D 


$$BATTNV 


SY33- 


-8553 


iia^i 


$$BATTNX 


SY33- 


-8553 


1I45D 


$$BATTKT 


SY33- 


•8553 


iia6D 


$$BATTNT 


SY33- 


-8553 


1I46D 


$$BATTNW 


SY33- 


•8553 


1I47I 


$$BATTNT 


SY33- 


-8553 


1IU8I 


$$BATTKU 


SY33- 


-8553 


1I50I 


$JOBCTLA 


SY33- 


-8555 


1I60A 


$$BATTNA 


SY33- 


-8553 


1I70I 


$JOBCTLA 


SY33- 


•8555 


1I82I 


$JCBCTLM 


SY33- 


-8555 


1I83A 


$JOBCTLM 


SY33- 


•8555 


lI8aA 


$JCBCTLM 


SY33- 


-8555 


1I86A 


$JOBCTLM 


SY33- 


•8555 


1I89A 


$JCBCTLM 


SY33- 


•8555 


1I90A 


$JOBCTLM 


SY33- 


•8555 


1I91A 


$JOBCTLM 


SY33- 


•8555 


1I92I 


$JCBCTLM 


SY33- 


•8555 


1I93I 


$JOBCTLM 


SY33- 


•8555 


1I95A 


$JCBCTLM 


SY33- 


•8555 


1I96A 


$JOBCTLM 


SY33- 


•8555 


1I97I 


$JCBCTLM 


SY33- 


•8555 


1I98I 


$JOBCTLJ 


SY33- 


•8555 


1I99A 


$JOBCTLM 


SY33- 


•8555 


ILOND 


$JOBCTLK 


SY33- 


•8555 


ILINE 


$JOBCTLE 


SY33- 


•8555 


ILIND 


$JCBCTLG 


SY33- 


•8555 


ILINE 


$JOBCTLK 


SY33- 


•8555 


IMIOA 


$JCBCTLA 


SY33- 


•8555 


IMIOA 


$JOBCTLG 


SY33- 


•8555 


1M20D 


$JOBCTLA 


SY33- 


•8555 


1M3NE 


$JOBCTLA 


SY33- 


•8555 


1M4ND 


$JCBCTLG 


SY33- 


-8555 


1M5ND 


$JOBCTLE 


SY33- 


•8555 


1M5ND 


$JCBCTLF 


SY33- 


-8555 


1M6ND 


$JOBCTLE 


SY33- 


•8555 


1M7ND 


$JCBCTLE 


SY33- 


•8555 


1M8ND 


$JOBCTLE 


SY33- 


•8555 


1M9ND 


$JCBCTLE 


SY33- 


-8555 


INOOI 


$JOBCTLA 


SY33- 


•8555 


INIOD 


$JCBCTLE 


SY33- 


-8555 


1N2ND 


$JOBCTLE 


SY33- 


-8555 


1N30D 


$JCBCTLE 


SY33- 


-8555 


1N40B 


$JOBCTLE 


SY33- 


•8555 


1N50D 


$JCBCTLE 


SY33- 


-8555 


1JI60D 


$JOBCTLE 


SY33- 


^8555 


1N7ND 


$JOBCTLG 


SY33- 


-8555 


1N80I 


$JOBCTLG 


SY33- 


-8555 


1N90I 


$JCBCTLG 


SY33- 


-8555 


IPONE 


$JOBCTLJ 


SY33- 


-8555 


IPOOD 


$$BATTNE 


SY33- 


-8553 


IPOOD 


$$BATTNF 


SY33- 


-8553 


IPIND 


$JOBCTLJ 


SY33- 


-8555 


IPIOE 


$$BATTNG 


SY33- 


-8553 


1P20D 


$JCBCTLE 


SY33« 


-8555 
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1Q62I 


$$ABERRZ 


SY33-8551 


21501 


$LNKEDT 


SY33-8556 


1R79I 


$$BATTNC 


SY33-8553 


21511 


$LNKEDT 


SY33-8556 


ISOND 


$JOBCTLE 


SY33-8555 


21551 


$LNKEDT 


SY33-8556 


ISOOD 


$$BATTNE 


SY33-8553 


21561 


$LNKEDT 


SY33«8556 


ISOOD 


$$BATTNC 


SY33-8553 


21581 


$LNKEDT 


SY33-8556 


ISOOD 


$$BATTNE 


SY33-8553 


21701 


$LNKEDT 


SY33-8556 


ISOOD 


$$BATTNF 


SY33-8553 


21811 


$LNKED'I 


SY33-8556 


ISOOD 


$$BATTKG 


SY33-8553 


21821 


$LNKEDT 


SY33-8556 


ISOOD 


$$BATTNH 


SY33-8553 


21841 


$LNKEDT 


SY33-8556 


ISOOD 


$$BATTKN 


SY33-8553 


21851 


$LNKEDT 


SY33-8556 


ISOOD 


$$BATTNQ 


SY33-'8553 


21911 


$LNKEDI 


SY33-8556 


ISOOD 


$$BATTNS 


SY33-8553 


21921 


$LNKEDT 


SY33-8556 


ISOOD 


$$BATTNT 


SY33-8553 


21931 


$LNKED'I 


SY33-8556' 


ISOOD 


$$BATTNU 


SY33-8553 


21941 


$LNKEDT 


SY33-8556 


ISOOD 


$$BATTNY 


SY33-8553 


21951 


$LNKEDT 


SY33-8556 


ISOOD 


$$BATTNZ 


SY33-8553 


21971 


$LNKED'I 


SY33-8556 


ISOOD 


$$BATTN2 


SY33-8553 


21991 


$LNKEDT 


SY33-8556 


ISOID 


$$ABERBZ 


SY33-8551 


3C30I 


CORGZ 


SY33-8557 


ISO 2D 


$$ABERRZ 


SY33-8551 


3C30I 


CORGZl 


SY33-8557 


ISIND 


$JCBCTLG 


SY33-8555 


3C66I 


CORGZ 


SY33-8557 


ISIND 


$JOBCTLJ 


SY33-8555 


3C66I 


C0RGZ4 


SY33-8557 


ISIND 


$JOBCTLK 


SY33-8555 


3C66I 


CORGZ 5 


SY33-8557 


ISINI 


$JOBCTLA 


SY33-8555 


3C66I 


C0RGZ6 


SY33-8557 


ISINI 


$JCBCTIE 


SY33-8555 


3C66I 


CORGZ 7 


SY33-8557 


ISINI 


$JOBCTLD 


SY33-8555 


3C67I 


CORGZ 


SY33-8557 


ISINI 


$JOBCTLE 


SY33-8555 


3C67I 


CORGZ 5 


SY33-8557 


ISINI 


$JOBCTLF 


SY33-8555 


3C67I 


CORGZ 6 


SY33-8557 


ISINI 


$JOBCTLG 


SY33-8555 


3C67I 


CORGZ 7 


SY33-8557 


ISINI 


$JOBCTLJ 


SY33-8555 


3E01I 


EREPMNTR 


SY33-8554 


ISINI 


$JOBCTIK 


SY33-8555 


3E02I 


EREPMNTR 


SY33-8554 


ISINI 


$JOBCTLM 


SY33-8555 


3E04I 


EREPMNTR 


SY33-8554 


ITCCi^ 


$JG5CTLft 


Sl£33-8555 


3EU6i 


£RjEPMiMli< 


3135-8554 


ITIOI 


$JOBCTLA 


SY33-8555 


3E07D 


EREPESWK 


SY33-8554 


1T20I 


$JOBCTLD 


SY33-8555 


3E07D 


EREPTES 


SY33-8554 


ITSOI^ 


$JOBCTLD 


SY33-8555 


3E08A 


EREPESI^K 


SY33-8554 


1T60A 


$JCBCTLD 


SY33-8555 


3E09A 


EREPESTR 


SY33-8554 


1T70A 


$JOBCTLD 


SY33-8555 


3E10I 


EREPEDIT 


SY33-8554 


21001 


$LNKEDT 


SY33-8556 


3E10I 


EREPSMCP 


SY33-8554 


21011 


$LNKED'r 


SY33-8556 


3E11D 


EREPMNTR 


SY33-8554 


21021 


$LNKEDT 


SY33-8556 


3E12D 


EREPMNTR 


SY33-8554 


21101 


$LNKEDT 


SY33-8556 


3E14A 


EREPMNTR 


SY33-8554 


21111 


$LNKEDT 


SY33-8556 


3E15A 


EREPESTR 


SY33-8554 


21121 


$LNKEDT 


SY33-8556 


3E15A 


EREPHIST 


SY33-8554 


21131 


$LNKEDT 


SY33-8556 


3E15A 


EREPTES 


SY33-8554 


21141 


$LNKEDT 


SY33-8556 


3E18A 


EREPHIST 


SY33-8554 


21161 


$LNKEDT 


SY33-8556 


3E20I 


EREPESWK 


SY33-8554 


21201 


$LNKEDT 


SY33-8556 


3E21I 


EREPEDIT 


SY33-8554 


21211 


$LNKEDT 


SY33-8556 


3E22I 


EREPEDIT 


SY33-8554 


21221 


$LNKEDT 


SY33-8556 


3E25I 


EREPESTR 


SY33-8554 


21231 


$LNKEDT 


SY33-8556 


3E25I 


EREPHIST 


SY33-8554 


21241 


$LNKEDT 


SY33-8556 


3E25I 


EREPMNTR 


SY33-8554 


21251 


$LNKEDT 


SY33-8556 


3E25I 


EREPTES 


SY33-8554 


21301 


$LNKEDT 


SY33-8556 


3E26I 


EREPMNTR 


SY33-8554 


21311 


$LNKEDT 


SY33-8556 


3E27I 


EREPMNTR 


SY33-8554 


21321 


$LNKEDT 


SY33-8556 


3E28I 


EREPMNTR 


SY33-8554 


21331 


$LNKEDT 


SY33-8556 


3E29I 


EREPMNTR 


SY33-8554 


21351 


$LNKEDT 


SY33-8556 


3E30A 


EREPHIST 


SY33-8554 


21361 


$LNKEDT 


SY33-8556 


3E31A 


EREPESTR 


SY33-8554 


21401 


$LNKEDT 


SY33-8556 


3E31A 


EREPHIST 


SY33-8554 


21411 


$LNKEDT 


SY33-8556 


3E31A 


EREPTES 


SY33-8554 


21421 


$LNKEDT 


SY33-8556 


3E32A 


EREPRDE 


SY33-8554 


21431 


$LNKEDT 


SY33-8556 


3E33A 


EREPRDE 


SY33-8554 


21441 


$LNKEDT 


SY33-8556 


3E34I 


EREPRDE 


SY33-8554 


21451 


$LNKEDT 


SY33-8556 


3E35I 


EREPRDE 


SY33-8554 


21461 


$LNKEDT 


SY33-8556 


3E36I 


EREPRDE 


SY33-8554 


21471 


$LNKEDT 


SY33-8556 


3E37I 


EREPRDE 


SY33-8554 
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3E38I 


EREPRDE 


SY33- 


-855i* 


3E40I 


EREPRDE 


SY33- 


■855U 


3E41I 


EREPRDE 


SY33- 


-8554 


3E42I 


EREPRDE 


SY33- 


-8554 


3Ea3I 


EREPRDE 


SY33- 


-8554 


3E67I 


C0RGZ6 


SY33- 


-8557 


3H30I 


MAI NT F 2 


SY33- 


-8557 


3M00I 


PSERV 


SY33-8557 


3M09I 


PSERV 


SY33- 


•8557 


3M10I 


CORGZ 


SY33- 


-8557 


3M10I 


CORGZl 


SY33- 


■8557 


3M10I 


DSERV 


SY33- 


-8557 


3M10I 


MAI NT 


SY33- 


-8557 


3M10I 


MAINTA 


SY33- 


-8557 


3M10I 


PSERV 


SY33- 


•8557 


3M10I 


RSERV 


SY33- 


-8557 


3M10I 


SSERV 


SY33- 


•8557 


3M11I 


MAINTR2 


SY33- 


■8557 


3M20I 


PSERV 


SY33- 


■8557 


3M21I 


CORGZ 


SY33- 


•8557 


3M21I 


CORGZl 


SY33- 


•8557 


3M21I 


CORGZ 3 


SY33- 


■8557 


3M21I 


CORGZ 4 


SY33- 


•8557 


3M21I 


C0RGZ5 


SY33- 


•8557 


3M21I 


CORGZ 6 


SY33- 


■8557 


3M21I 


CORGZ 7 


SY33- 


'8557 


3M21I 


CORGZ 8 


SY33- 


-8557 


3M21I 


DSERV 


SY33- 


■8557 


3M21I 


MAINRTN 


SY33- 


•8557 


3M21I 


MAINTCI 


SY33- 


■8557 


3M21I 


MAINTCN 


SY33- 


•8557 


3M21I 


MAINTDR 


SY33- 


-8557 


3M21I 


MAIfc«TR2 


SY33- 


•8557 


3M21I 


PSERV 


SY33- 


•8557 


3M21I 


RSERV 


SY33- 


•8557 


3M21I 


SSERV 


SY33- 


•8557 


3M23I 


MAI NTS 2 


SY33- 


•8557 


3M2ai 


MAI NTS 2 


SY33- 


-8557 


3M25r 


MAINTS2 


SY33- 


•8557 


3M26I 


MAI NTS 2 


SY33- 


•8557 


3M27I 


MAINTP2 


SY33- 


•8557 


3M27I 


MAINTR2 


SY33- 


-8557 


3M27I 


MAINTS2 


SY33- 


•8557 


3M28I 


MAI NTS 2 


SY33- 


•8557 


3M29I 


MAINTF2 


SY33- 


•8557 


3M32I 


MAI NT P 2 


SY33- 


-8557 


3M33I 


$MAINDIR 


SY33- 


•8557 


3M33I 


C0RGZ3 


SY33- 


•8557 


3M33^ 


MAINRTN 


SY33- 


•8557 


3M33I 


MAINTUP 


SY33- 


-8557 


3M33I 


PSERV 


SY33- 


"8557 


3M33I 


RSERV 


SY33- 


-8557 


3M33I 


SSERV 


SY33- 


-8557 


3M3ai 


MAI NT 


SY33- 


-8557 


3M34I 


MAINTP2 


SY33- 


•8557 


3M35I 


DSERV 


Si33- 


-8557 


3M371 


MAI NT 


SY33- 


-8557 


3M37I 


MAINTA 


SY33- 


-8557 


3M37I 


MAINTCI 


SY33-8557 


3M37I 


MAINTCN 


SY33- 


-8557 


3M37I 


MAINTER 


SY33- 


-8557 


3M38I 


MAI NT F 2 


SY33- 


-8557 


3Ma3I 


CORGZl 


SY3 3- 


-8557 


3Ma3I 


CCRGZ3 


SY33- 


-8557 


3Ma3I 


CORGZ a 


SY33- 


-8557 


3Ma3I 


DSERV 


SY33- 


-8557 
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3M43I 


MAI NT 


SY33- 


-8557 


3M43I 


MAINTCL 


SY33- 


-8557 


3M43I 


MAINTCF 


SY33- 


-8557 


3M43I 


MAINTF2 


SY33- 


-8557 


3M43I 


MAINTR2 


SY33- 


-8557 


3M43I 


MAI NTS 2 


SY33- 


-8557 


3Ma3I 


MAINTUF 


SY33- 


-8557 


3M43I 


PSERV 


SY33- 


-8557 


3M43I 


RSERV 


SY33- 


-8557 


3M43I 


SSERV 


SY33- 


■8557 


3M44I 


C0RGZ6 


SY33- 


-8557 


3Ma4I 


MAI NT 


SY33- 


-8557 


3M44I 


MAINTCN 


SY33- 


-8557 


3M45I 


DSERV 


SY33- 


-8557 


3M52I 


$MAINDIR 


SY33- 


-8557 


3M52I 


CORGZ 3 


SY33- 


-8557 


3M52I 


MAI NT F 2 


SY33- 


-8557 


3M52I 


MAINTR2 


SY33- 


•8557 


3M52I 


MAI NTS 2 


SY33- 


-8557 


3M52I 


MAINTOP 


SY33- 


•8557 


3M53I 


C0RGZ3 


SY33- 


-8557 


3M53I 


MAINTF2 


SY33- 


•8557 


3M53I 


MAINTR2 


SY33- 


-8557 


3M53I 


MAINTS2 


SY33- 


•8557 


3M53I 


MAINTUF 


SY33- 


-8557 


3M53I 


MAINTUP 


SY33- 


•8557 


3M54I 


$MAINDIR 


SY33- 


-8557 


3M54I 


MAINTER 


SY33- 


•8557 


3M54I 


MAINTUF 


SY33- 


-8557 


3M55I 


MAINTR2 


SY33- 


•8557 


3M62I 


C0RGZ7 


SY33- 


-8557 


3M62I 


MAINTA 


SY33- 


•8557 


3M63I 


CORGZl 


SY33- 


-8557 


3M63I 


C0RGZ7 


SY33- 


•8557 


3M63I 


MAINTA 


SY33- 


-8557 


3M64I 


MAINTA 


SY33- 


-8557 


3M65I 


CORGZ 


SY33- 


-8557 


3M65I 


C0RGZ7 


SY33- 


-8557 


3M65I 


MAINTA 


SY33- 


-8557 


3M66I 


C0RGZ7 


SY33- 


•8557 


3M67I 


C0RGZ7 


SY33- 


-8557 


3M68I 


MAINTA 


SY33- 


•8557 


3M68I 


MAINTCN 


SY33- 


-8557 


3M70A 


MAINTA 


SY33- 


•8557 


3M70I 


MAINTCN 


SY33- 


•8557 


3M75I 


MAINTCN 


SY33- 


•8557 


3M80I 


MAINTA 


SY33- 


•8557 


3M80I 


MAINTCN 


SY33- 


-8557 


3M81I 


MAINTCN 


SY33- 


-8557 


3M90I 


$MAINDIR 


SY33- 


•8557 


3M92I 


$MAINDIR 


SY33- 


-8557 


3M93I 


$MAINEIR 


SY33- 


■8557 


3N43I 


DSERV 


SY33- 


-8557 


3U10I 


MAINTUP 


SY33- 


•8557 


3U11I 


MAINTUF 


SY33- 


■8557 


3U20I 


MAINTUP 


SY33-8557 


3U21I 


MAINTUF 


SY33- 


-8557 


3U30I 


MAINTUF 


SY33- 


-8557 


3U31I 


MAINTUF 


SY33- 


-8557 


3U32I 


MAINTUF 


SY33- 


•8557 


3U33I 


MAINTUP 


SY33- 


•8557 


4C10D 


PDAID 


SY33- 


-8554 


4C11D 


PDAID 


SY33- 


'8554 


4C12D 


PDAID 


SY33- 


•8554 


4C13D 


PDAID 


SY33- 


•8554 


4C14D 


PDAID 


SY33- 


•8554 
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4C15D 


PDAID 


SY3 3- 


■855a 


t*C16D 


PDAID 


SY33- 


•8554 


aC17D 


PDAID 


SY33- 


•8554 


UCllD 


SDAIDl 


SY33- 


-8554 


tlC17D 


SDPAR 


SY33- 


•8554 


«IC20D 


PDAID 


SY33- 


•8554 


^C21P^ 


PDAID 


SY33- 


•8554 


UC22A 


PDAID 


SY33- 


•8554 


ac23c 


PDAID 


SY33- 


•8554 


aC24A 


$$BPDAID 


SY33- 


•8554 


4C2aA 


PDAIDFT1 


SY33- 


•8554 


4C24A 


PDAIDGTF 


SY33- 


-8554 


aC2l»A 


PDAIDGII 


SY33- 


•8554 


UC2UA 


PDAIDITF 


SY33- 


-8554 


4C2aA 


PDAIDIIl 


SY3 3- 


■8554 


«*C24A 


PDAIDTDT 


SY33- 


-8554 


t*C26I 


PDLIST 


SY33- 


•8554 


4C27D 


PDAID 


SY33- 


-8554 


aC28D 


PDAID 


SY33- 


■8554 


4C42A 


DUMPGEN 


SY33- 


-8554 


4C43A 


DaMPGEN 


SY33- 


■8554 


t^caaA 


OUMPGEli 


SY33- 


-8554 
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4C46A 


DUMPGEN 


SY33- 


-8554 


4C50E 


PDAID 


SY33- 


-8554 


4C51D 


PDAID 


SY33" 


-8554 


4C52E 


PDAID 


SY33- 


-8554 


4C53I 


SDAIDl 


SY3 3- 


-8554 


4C54I 


SDAIDl 


SY33- 


--8554 


4C55C 


SDAIDl 


SY33- 


-8554 


4C56E 


SDAIDl 


SY33- 


-8554 


4C57E 


SDAID2 


SY33- 


-8554 


4C58D 


SDPAR 


SY33- 


-8554 


4C59C 


SDPAR 


SY33- 


■8554 


4C60D 


SDPAR 


SY33- 


-8554 


4C61D 


SDPAR 


SY33- 


-8554 


4C62D 


SDPAR 


SY33- 


-8554 


4C63D 


SDPAR 


SY33- 


■8554 


4C64D 


SDPAR 


SY33- 


■8554 


4C65D 


SDPAR 


SY33- 


•8554 


4C66D 


SDPAR 


SY33- 


-8554 


4C67D 


SDPAR 


SY33- 


•8554 


4C68D 


SDPAR 


SY33- 


•8554 


4C69D 


SDPAR 


SY33- 


•8554 


4E10I 


$$ABERAA 


SY33- 


-8552 
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APfENDIXD: EXPLANATION OF FLOWCHART SYMBOLS 



DESCRIPTION 



•**«>« A 14t4>«4i «*«««# 



PROCESS 
«B2 



!««•«*«*« 4t4i*4i*4i«« 



♦LABEL I BW* 

* ♦ 

* SUBROUTINE ♦ 

* ♦ 



A group of program instructions that perform 
a processing function of the program. The 
label, if any. is shown above the block. 



♦82 
IF ANY ADDttTONAL EXPLANATION IS 
REQUIRED, ITS LOCATION ON THE CHART 
IS TOENTlFIEO BY AN ASTERISK AND 
THE BLOCK 10. 



Description or title of a routine that is detail- 
ed on anottier flowchart. The starting label 
of the routine and the flowchart ID appear 
above the stripe. 



*«**« * REFERENCES 

♦ ♦ TO BJBA: 

♦ ♦♦ BRD4, BCB2 
♦ ♦ BLJl 



START X 

««4>B4«4i4i«4i«4i4c4i4i4i4r 



READ 
A RECORD 



i^mnf^*****mm****** 



PREPARATION ♦ 



m**m*Qi*********t* 



♦PREDEFINED ♦ ♦ 
♦ PROCESS ♦ ♦ 



An instruction, or group of instructions, that 
char>ges portion of a routine or initializes a 
routine for a given condition. 



A group of operations not detailed in the 
flowcharts in this manual, such as user rou- 
tines. 



C4 ♦. 






^^mm*C5 ********** 


.♦ ♦. 




♦ERPTN BG^ 




* 


. YES 


♦- 




ERROR 




•♦•••••« 


..X^ 


* 


.♦ 




« 


ERROR ROUTINE ♦ 


♦ . .♦ 






4> 


« 


♦ . *♦ 








♦ NO 








'x 

♦ ♦ 


X 


m 


* 




* ns^ * 

* m 


PROCESS 




* 






THE RECORD 




* 







^m***m****m****** 



^tmm**iti*i¥m******** 



iit^^t£im****m*mi¥*** 

* ♦ 

INPUT/OUTPUT 

♦ * 

m0mm*if*mm****m**^ 



Any function of an input/output device or 
program, usually branching to an I/O routine 
to perform the function stated in the block. 



.♦ USER ♦. YES 

f. OPTION .♦.,.. 



mm**mB5********** 



,%* USER ROUTINES ♦ 



m******mm*m*****m 



.♦. 

Fl *. 
.♦ ♦. 

* « *• 

DECISION .♦ 

>• •♦ 

♦ . .♦ 

♦ . .♦ 



» * 

♦ TERMINAL ♦ 

* * 

mm#****m***^^*** 



Points where the program branches to alter- 
nate processing, based upon variable con- 
ditions such as program switch settings and 
test results. 



The beginning or end of a program or routine. 



On-page connector. An entry from or an exit 
to another function on the same flowchart. 
The location in the connector identifies the 
block to which entry on a chart is made. 



.x...«.. 

RECALT .♦. 






F4 ♦. 




m*P5******* 


.♦ ♦. 




* i 


.♦ RECORD ♦. 


YES 


* wnoiFY 


♦ . ALTERED 


♦•.••••• 


.X* PRINT 
♦TNSTRUCTIONS 


♦ . .♦ 




♦ . .♦ 




* 


♦ . .♦ 




Hi1t*m******* 


* NO 






*4>** . 






♦ ♦ . 






♦ 64 ♦.X. 






♦ ♦ .X...... 






***« X 






RECPRO .♦. 






G4 ♦. 






.♦ALL RECORDS^. 






NO 




♦. PROCESSED • 


♦ •• •• 




♦ . .♦ 


, 




*. .* 






♦ . •♦ 


X 




♦ YES 


***** 
♦6L ♦ 
♦ A1 + 

* * 

PRINT 




X 






*i|i4t4tHA^^^^^^^^« 






♦ 


* 




♦ END-OF-JOB 


* 




* 


* 




«*4>4i4>#4i4c««l|i««4t4 







***** 

♦ BD ♦ 

♦ D^t* 



Off-page connector. An entry from, or exit 
to, a given point on another flowchart. The 
characters in the connector identify the chart 
and block to which or from which control is 
passed. The corresponding label, if any, is 
placed outside the outgoing connector. For 
multiple entries, an asterisk is placed in the 
connector and the locations from which 
control is passed are listed nearby. 
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APPENDIX E: SAMPLE LISTIC PRINTOUTS 



JJ 








// LISTIO 


SYS 








•:: ;V 5't 


BACKGROUND '•^'^''^ 


1 /O UN 1 T 


CMNT 


CHNL 


UNIT MODE 


SYSRDR 







OC 


SYS 1 PT 







OC 


SYSPCH 







OD 


SYSLST 




1 


OA 


SYSLOG 







1 F 


SYSLNK 




1 


91 


SYSRES 




1 


92 


SYSSLB 




;*t -J: 


UA ''^-^^ 


SYSRLB 




;'; A 


UA -^-^^ 


SYSREC 




1 


91 


U 








// LISTIO 


PROG 








i: -iV -• 


BACKGROUND ^^^* 


I/O UNIT 


CMNT 


CHNL 


UNIT MODE 


SYSOOO 







91 


SYS001 







91 


SYS002 







91 


SYS003 







91 


SYS004 




;'c j'r 


UA '•"•- 


SYS005 




;': ;V 


UA ** 


U 








// LISTIO 


F2 








A>'c 


'' FOREGROUND 2 -'--a^v 


I/O UN IT 


CMNT 


CHNL 


UNIT MODE 


SYSRDR 




Vt ;'; 


UA "---'^ 


SYSIPT. 




-k ;'.- 


UA -" 


SYSPCH 




■k ;'; 


MA AA 


SYSLST 




-k k 


UA *-'' 


SYSLOG 




•k -k 


UA ^^=v 


SYSLNK 




'k -k 


UA ^'--^v 


SYSRES 




1 


92 


SYSSLB 




■k -k 


UA >VA 


SYSRLB 




;': ■.'.- 


UA ''=-'- 


SYSREC 




1 


91 




A-,V 


-^ FOREGROUND 2" ^^* 


I/O UNIT 


CMNT 


CHNL 


UNIT MODE 


SYSOOO 




,VA 


UA '•'* 


SYS001 




i'f >'; 


UA ''■'•' 


SYS002 




A A 


UA ='>--A 


SYS003 




■;; -k 


UA 5',-A 


SYSOOil 




AA 


UA -'-'- 


SYS005 




/f ;'; 


UA :'.-A 


SYS006 




A A 


UA -v^'c 


SYS007 




-',• ;V 


UA A?'= 


SYS008 




A A 


UA •'•'*- 


SYS009 




A A 


UA ='->•- 


SYS010 




-,V A 


UA '^^'^ 


SYS01 1 




A A 


UA •-'-•- 


SYS012 






UA •'"■■ 


SYS013 




■k -k 


UA -"--'- 


SYS014 




■k •;.- 


UA '•-■'' 


SYS015 




•A- A 


UA ''-A 



Nofe: The 1st line of each sample shows the control 
statement as it was logged by job control . 

1 . List all background system units. 

2. List all background programmer units. 

3. List all foregrcond 2 units. 

4. List all units. 

5. List a specific unit (SYSXXX). 

6. List the logical units assigned to all physical 
devices. 

7. List all unassigned units. 
8 . List all down units. 

9. List all logical units assigned to a specified 
physical unit . 



±1 








// LISTIO 


ALL 








**''■' BACKGROUND *** 


I/O UNIT 


CMNT CHNL 




UNIT MODE 


SYSRDR 







OC 


SYSI PT 







OC 


SYSPCH 







OD 


SYSLST 


1 




OA 


SYSLOG 







IF 


SYSLNK 


1 




91 


SYSRES 


1 




92 


SYSSLB 


A A 


UA 


A A 


SYSRLB 


A A 


UA 


A A 


SYSREC 


1 




91 




5'cAA BACKGROUND -'>='«'•= 


I/O UNIT 


CMNT CHNL 




JNIT MODE 


SYSOOO 


A A 


UA 


A A 


SYS001 


1 




91 


SYS002 


1 




91 


SYS003 


1 




91 


SYSOOi* 


A A 


UA 


A A 


SYS005 


A A 


UA 


A A 


SYS006 


A A 


UA 


A A 


SYS007 


A A 


UA 


A A 


SYS008 


A A 


UA 


A A 


SYS009 


A A 


UA 




SYS010 


A A 


UA 


A A 


SYS01 1 


A A 


UA 


A A 


SYS012 


A A 


UA 


A A 


SYS013 


A A 


UA 


A A 


SYS01i4 


A A 


UA 


A A 


SYS015 


A A 


UA 


A A 




AAA FOREGROUND 2 '^-"'^ 


I/O UN 1 T 


CMNT CHNL 


UNIT MODE 1 


SYSRDR 


A A 


UA 


A A 


SYSIPT 


A A 


UA 


A A 


SYSPCH 


A A 


UA 


A A 


SYSLST 


A A 


UA 


A A 


SYSLOG 


A A 


UA 


A A 


SYSLNK 


A A 


UA 


A A 


SYSRES 


1 




92 


SYSSLB 


A A 


UA 




SYSRLB 


A A 


UA 


A A 


SYSREC 


] 




91 




-'■="■'••- FOREGROUND 2 -'^ >v a 


I/O UN 1 T 


CMNT CHNL 


UNIT MODE 


SYSOOO 


A A 


UA 


A A 


SYS001 


A A 


UA 


A A 


SYS002 


A A 


UA 


A A 


SYS003 


A A 


UA 


A A 


SYS004 


A A 


UA 


A A 


SYS005 


A A 


UA 


A A 


SYS006 


A A 


UA 


A A 


SYS007 


A A 


UA 


A A 


SYS008 


A A 


UA 




SYS009 


A A 


UA 


A A 


SYS010 


A A 


UA 


A A 


SYS01 1 


A A 


UA 


A :c 


SYS012 


-,; A 


UA 


A A 


SYS013 


A A 


UA 


A A 


SYSOU 


A A 


UA 


A A 


SYS015 


A A 


UA 


A A 




■v>vA FOREGROUND 1 '^=^''-- 


I/O UNIT 


CMNT CHNL 


UNIT MODE 


SYSRDR 


A A 


UA 


A A 


SYSIPT 


A A 


UA 


A A 


SYSPCH 


A A 


UA 


A A 


SYSLST 


A A 


UA 


A A 


SYSLOG 


A A 


UA 


A A 


SYSLNK 


A A 


UA 


A A 


SYSRES 


1 




92 


SYSSLB 


A A 


UA 


A A 


SYSRLB 


A A 


UA 


A A 


SYSREC 


1 




91 





A 


A'"^ FOREGROUND 1 **■>- 


I/O UNIT CMNT 


CHNL 


UNIT MODE 


SYSOOO 






A A 


UA ^'^^^ 


SYS001 






A A 


UA ''«-'^ 


SYS002 






A A 


UA '<" 


SYS003 






A A 


UA ** 


SYS004 






A A 


UA ^'* 


SYS005 






A A 


UA ** 


SYS006 






A A 


UA ** 


SYS007 






A A 


UA "•" 


SYS008 






A A 


UA •"■'•^ 


SYS009 






A A 


UA -^^^ 


SYSOIO 






A A 


UA 'VA 


SYS01 1 






A A 


UA '•>" 


SYS012 






A A 


UA '>-" 


SYS013 






A A 


UA ** 


SYS014 






A A 


UA '^'V 


SYS015 






A A 


UA ''«'■> 


li 










// LISTIO SYSRDR 








Ai 


" BACKGROUND 5'-*>5'c 


I/O UNIT CMNT 


CHNL 


UNIT MODE 


SYSRDR 









OC 


li 










// LISTIO UNITS 








CHNL 


UNIT 


OWNER 


I/O UNIT CMNT MOD 





OC 


BG 




SYSRDR 





OC 


BG 




SYSIPT 





OD 


BG 




SYSPCH 





OE 






A UA * 





IF 


BG 




SYSLOG 





1 F 


BG 




SYSIN 




n n 


pc 




5 y 5 i_^ c T 




90 






A UA '^ 




91 


BG 




SYSLNK 




91 


BG 




SYSREC 




91 


BG 




SYSOOl 




91 


BG 




SYS002 




91 


BG 




SYS003 




91 


F2 




SYSREC 




91 


F1 




SYSREC 




92 


BG 




SYSRES 




92 


F2 




SYSRES 




92 


Fl 




SYSRES 




80 






A UA '•< 




81 






A UA -'^ 




82 






A UA '■= 




83 






A UA -•' 




Sk 






A UA 'V 


IJ 










// LISTIO UA 








-, 


^■'* UNASSIGNED ' 


- A A 




CHNL 


UN IT 






1 




80 






1 




81 






1 




82 






1 




83 




iJ 










// LISTIO DOWN 










A A A 


DOWN 


A A -; 






CHNL 


UNIT 






AA NONE 


AA 




IJ 










// LISTIO X'OIF' 








CHNL UNIT OWNER 


I/O UNIT CMNT MODE 





IF BG 


SYSLOG 



Figijre 6. Sample LISTIO Printcijits 
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APPENDIX Fs VARIOUS CONTBOI BLOCKS AND TABLES 



nnCOMREG 







8 
8 


OA 
10 


oc 

12 


17 
23 


18 
24 


20 
32 


24 
36 


28 
40 


2C 

44 


Date 


Address of 
PPBEG 


Address of 
EOSSP 


Problem Program Use 


UPSI 
Byte 


Job Name 


Highest 

Storage 

Address of 

the Partition 


End Address of 

Last Phase 

Fetched or loaded 


Address of upper- 
most Byte of Phase 
with highest 
Ending Address 


Lab^l 

Area 

Length 


xxxxxxxx 


XX 


XX 


XXXXXXXXXXX 


X 


XXXXXXXX 


xxxx 


xxxx 


xxxx 


XX 



2B 
46 


48 


34 
52 


35 
53 




36 
54 


37 
55 


38 
56 


39 
57 


3A 
58 


3B 
59 


3C 
60 


3E 
62 


PIK 


End of 
Virtual 
Storage 
Address 


Machine 

Configur. 

Byte 


System 

Configur . 

Byte 


Standard 

Language 

Translator 

I/O Options 


Dump, Log, 

RELLDRand 

ASCII 

Options 


Job Control 
Byte 


Linkage 

Control 

Byte 


Language 

Translator 

Control 

Byte 


Job Duration 
Indicator Byte 


Disk Address 

of 
Label Cylinder 


Address 

of 
FOCL 


XX 


XXXX 


X 


X 


X 


X 


X 


X 


X 


X 


XX 


XX 












^ ■ Job Control Switches ' 







40 
64 


42 
66 


44 
68 


46 
70 


48 
72 


4A 
74 


4C 
76 


4E 
78 


4F 
79 


58 
88 


5A 
90 


5C 
92 


Address 

of 
PUBTAB 


Address 

of 
FAVP 


Address 

of 
JIBTAB 


Address 

of 
TEBTAB 


Address 

of 

FICL 


Address 

of 
NICL 


Address 

of 
LUBTAB 


Line Count 

for 

SYSLST 


System Date 


LIOCS 
Comm. 
Bytes 


Address of 
PIB Table 


ID Number of 

last Checkpoint 

or DASDFP 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


X 


XXXXXXXXX 


XX 


XX 


XX 



5E 
94 


60 
96 


62 
98 


64 
100 


66 
102 


68 
104 


6A 
106 


6C 
108 


6E 
110 


Job Zone 

in 
Minutes 


Address of Disk 
Information 
Block (DIB) 


Reserved 


Address of PC 

Option Table 

less 8 bytes 


Address of IT 
Option Table 


Address of OC 

Option Table 

less 8 bytes 


Key of Program 

with 
Timer Support 


Reserved 


Logical 

Transient Key 

(LTK) 


- ^ 


XX 


XX 


XX 


x>L„_ 


XX 


XX- 


XX 


XX 



70 
112 


74 
116 


78 
120 


7C 
124 


126 


80 
128 


84 
132 


86 
134 


87 
135 


Address of 
SYSPARM 


Address of 

J. A. Partition 

Table 


Address of 

TOD clock 

Common Area 


Address of 
PIB Table 
Extension 


Address 

of MICRDTF 

Table(PDTABB) 


Address 

of QTAM 

Vector Table 


Address 

of BG Comm. 

Region 


Option 
Indicator 


System Configuration 
Byte 2 and RMSR 
Open F lag Byte 


- XXXX 


XXXX 


XXXX 


XX 


XX 


XXXX 


XX 


X 


X 



88 
136 


8C 
140 


8D 
141 


8E 
142 


8F 
143 


97 
151 


98 
152 


9F 
159 


Pointer to Option 
Table in SYSCOM 
Reserved for 
compatibility 
reasons 


Standard 
Job 

Control 
Options 


Temporary 
Job 

Control 
Options 


Disk 
Configuration 


Catalog 
Procedure Name 


Switch for 

Catalog 

Procedure 


JCL 

Statement 
Name 


81 bytes 
SYSIN Indicator 


XXXX 


X 


X 


X 


XXXXXXXX 


X 




X 



Note: A communication region exists from each partition supported by the system. 
The address of the communication reaion of the active partition is in fixed 
location X'14'-X '17' 



Figure 7. Partition communications Region (Part 1 of 6) 
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Key to Com irunicat ion Region Eisplacement 



r T- 

I Key I 



Description of Use 



MM/DD/YY or DD/KM/YY either set periranently hy the jcfc control date statement , or 

updated every time a GETIME reacro is issued when Tiine-of-Day support is provided • 

Forinat controlled by EGCCMBEG + 53, (Systeir Ccnf ig;:ration Eyte, date ccnveHtiCH 
bit 0.) 



H 



8 
10 
12 

23 

2^ 

32 
36 

ao 



44 
46 

48 
52 



Address of the probleir prcgrair area. 

Address of the beginning of the probleir prcgrair area. 



Y(EOSSF) equals Y(FPEEG) 



User area. If seek separation cpticn is specified^ bytes 12 and 13 are used at 
IPL time for the address of the seek address block. 

User program switch indicator. 

Job name set by the job control program from information found in the jcb 
statement 

Address of the uppermost byte available tc the prcblem program^ that is^ either 
the address of the uppermost byte of the partition as determined during 
processing of the ALLCC cr ALLOCR macrc or statement^^ or the end address of the 
area specified by the SIZE parameter in the EXEC statement. 

Address of the uppermost byte of the last phase of the problem program fetched or 
loaded. Not filled in when phase is in SVA. 

Highest ending main-storage address cf all the phases having the same first four 
characters as operand on the EXEC statement. For the phase $LNKEDT, this field 
is not filled in. The address value may be incorrect if the program leads any of 
this phase above or below its link-edited origin address. If the EXEC statement 
has no operand^ job control places in this Iccaticn the highest ending address cf 
all programs just link-edited. 

Length of the problem program label area. 

Partition Identification Key (PIK). The low-order byte identifies the active 
partition. Only significant for EG ccmmunicaticn region. 

End address of virtual stcrage. 

Machine Configuration Eyte (values set at supervisor generation time) . 



Bit 
1 
2 
3 
4 
5 
6 
7 



Always set to indicate standard stcrage protect 

1 = Decimal feature (always set) 

1 = Floating-point feature 

1 = Physical transient overlap cpticn 

Always set to indicate standard timer feature 

1 = Channel switching device 

1 = Burst mode on multiplex channel support 

Indicates MCH/CCH in system 



Figure 7. Partition Communications Region (Part 2 of 6) 
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,. ^ 

I Key I 

|. + 

53 I Systeir Configuration byte. 



Description of Use 



5^ 



55 



56 



Bit 0: 



1 = DDMKYY (Date ccnventicn kit set at generation tiire ky STDJC) 

= MMDEYY (Eate convention tit set at generation tiire fcy SID JO 

1 = T^o or ircre partitions 

= One partition only 

1 = DASD file-protect supported 
1 = Di^SD SYSIN - SYSOUT 

1 = Teleprocessing 

1 = Two or ffore partitions 

= One partition only 

1 = Asynchronous processing 
1 = Track Hold 



This tyte contains the standard language translator I/O options (set ty STDJC 
macro) * 



Bit 



DECK option 
LIST option 



2: IISTX option 

3; SYM option 

4: XREF option 

5: ERRS option 

6 : CHARSET option 

7: Reserved 



1 = yes, output object irodules on SYSFCH 

1 = yes, output source ircdule listings and diagncstics en 

SYSLST 
1 = yes, cutput hexadeciiral object irodule listings on 

SYSLST (ccrrpilers only) 
1 = yes, cutput syirkcl tables on SYSLST/SYSPCH 
1 = yes, output syirbolic cross-reference list on SYSLST 
1 = yes, cutput diagncstics on SYSLST Cccirpilers cnly) 
1 = tj8, input on SYSIFT is 48 or 60 character set 



This byte contains the standard supervisor options for abncriral EOJ, Relocating 
Loader and Control stateirent display and the indicator for the presence of the 
ASCII-EBCDIC and EBCDIC-ASCII translation tables. 



Bit 0: Always on 

1: DUMP option 1 
2: 1 

3: LOG option 1 

4: 1 
5: Not used 
6 : Relocating 

Load option 1 

7: ASCII option 1 

Job Control byte. 



yes, dump registers and storage on SYSLST 

partition in wait state, because a vcluire is to be 

ircunted 

yes, list all control statements on SYSLST 

durrmy device search in progress; do not enter ERP 



yes. Relocating Loader supported 
yes, ASCII supported 



Bit 



1 = Job Accounting Interface (JA) not supported 
1 = Return to caller on LIOCS disk open failure 
1 = Job Control input from SYSRDR 

= Job Control input f roir SYSLC6 

1 = Job Control output on SYSLCG 

= Job Control cutput not on SYSLCG 

1 = Cancel job 

1 = Pause at End-of-Jcb step 

1 = SYSLOG is not a console printer-keyboard or DOC 

= SYSLOG is a console printer-keyboard or DOC 

1 = SYSLOG is assigned to the saire device as SYSLST 



Figure 7. Partition Ccirmunicaticns Region (Part 3 of 6) 
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r T- 

|Key I 



Description cf Use 



57 



58 



59 



60 
62 
76 
78 
79 

88 

90 



Linkage control byte. 



Bit 0: 
1: 



7: 



1 = SYSLNK open fcr output 

1 = Update cf Second Level Eirectory and RAS Load list in progress 

(interface between $MAINEIR and supervisor) 
1 = Allow EXEC 

= Suppress EXEC 

1 = Catalog Linkage Editor output 
1 = Supervisor has been updated 
Reserved 

1 = Update cf Systeir Core Iirage Library ir prcgress (interface ketween 

$MAINDIE and Supervisor) 
1 = Check autciratic condense liirits and Er.d-cf-Jcb (interface between 

Librarian and Job Control) 



Language processor contrcl byte. This is a set of switches used to specify 
nonstandard language translator opticns. The switches within the b:^te are 
controlled by job control CFTION statements and when set to 1, override standard 
options. The format cf this byte is identical tc the standard cpticn byte 
(displacement 54) with one exception: Eit 7 in this byte is used tc indicate to 
LIOCS that the rewind and unlcad cpticn has been specified. 

Job duration indicatcr byte. 



Eit 
1 
2 
3 
4 



1 == Job in progress 

1 = Dump on an abnormal End--of-Job condition 

1 = Pause at EOJ step (Set by attention routine for Jcb Control) 
1 = Job contrcl output en SYSLST 

1 = Job is being run out of sequence with a temporary assignment for 
SYSRDR 

= Conditions for l-setting not met 

1 = PCIL is being condensed 

1 = //DATE statement processed fcr current job 

1 = Batch coirmand just issued 

= Condition for 1-setting did not occur 



Binary disk address of the volume label area (label cylinder) . 

As illustrated (for detailed figures see Index) . 

As illustrated (for detailed figures see Index) • 

Set to the value nn specified in the LIKES=nn parameter of the STDJC macro. 

The format of the system date contained within this field is determined by the 
IPL program from infcrmation supplied in the date convention bit (displacement 
53), Bytes 85-87 contain the day count. 

Bytes reserved for use by LIOCS. Transient dump programs insert a key tc 
indicate to the LIOCS End-cf-Volume routine, $$ECl^T07v that it was called by a 
E-transient. 

Address of the first part of the Program Information Block (PIB) table. 



Figure 7. Partition Communications Region (Part 4 of 6) 
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r T 

I Key I 

t + 

92 



Description cf Use 



ID nuirber of the last checkpoint. Eyte 92 is alsc the teirpcrary indicator cf 
file protected DASD. 

Bits 0-6 correspond tc chanrels 0-6. A tit CN ireans DASDFP fcr that channel. 
Bit 7 indicates 2321 DASDFP support. Byte 93 is used at IPL tiire by PIOCS. 

Bit 0: 1 = 3330 file protection 
1: 1 = 3340 file prctection 



94 

96 

98 
100 
102 
104 
106 

108 
110 

112 
116 
120 
124 
126 
128 
132 
134 



Job zone for Tiire-of-Day. If ZCNE=EAST, value is positive; if ZCNE=WEST, value 
is negative,. 

Address of disk I/O position data. This is the starting address of the Disk 
Inforiration Block (DIE) table fcr the partition. 

Reserved. 

PC option table (zerc if net specified). 

IT option table (zerc if net specified) . 

OC option table (zerc if net specified). 

X'OOIO' if interval tiirer support. 
X'OOOO' if no interval tiirer support. 

Reserved. 

Logical Transient Key (LTK) contains the sair.e value as the PIK (PID) 
CDisplacerrent '^6} hih^n the logical trari^i f=nt is xeauested. When the transient 
area is not in use^ LTK is equal to zerc. The SVC 2 routine sets the LTK. The 
SVC 11 routine resets the LTK. (Only significant in BG ccirirunicaticn regions.) 

Address of SYSPARM field. 

Address of Job Accounting partition table. 

Address of the Tiitie-cf-Day Clock coirircn area. 

Address of second part cf Prcgrair Infcriraticn Elcck (PIE) table. 

Address of PDTAEB, table cf DTF addresses fcr MICE support. 

Address of QTAM vector table (IJLQTTAD) . 

Address of background cciriruricaticns regicn. 

Option Indicator byte. 



Bit 
1 
2 
3 
4 
5 
6 
7 



Reserved 

1 = EU interface active 

1 = Teleprocessing request 

1 = Supervisor support for tape 

Reserved 

1 = RETAIN support generated 

1 = Linkage tc Channel End Appendage Routine alleged 

1 = GETVIS functicn has been initiated 



I X . . ... 

Figure 7. Partition Coiriitiunications Regicn (Part 5 cf 6) 
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r T 

I Key I 

h + 

135 



Description cf Use 
Systeir Configuration byte 2 and RMSR Open Flag byte. 



136 
140 



1^41 



142 



143 
151 



152 
159 



Bit 
1 
2 
3 
4 
5 
6 
7 



1 = PCIL supported 

1 = TOD-clcck supported 

1 = PFIX macro supported 

1 = Fetch $$ECPEN by $JCBCTIJ 

1 = Fetch $$ECPE1SI by $JCBCTLE 

1 = Fetch S$ECPEN by $JOECTLJ for WTM 

1 = QTAN. supported 

Reserved 



Pointer to Option table in SYSCCM Reserved for ccrrpatibility reasons. 
Standard Job Control Option byte. 



Bit 

1 

2-6 

7 



1 = EDECK Standard Cption 
1 = ALIGN Standard Cption 
Not used 
1 = ACANCEL Standard Cption 



Temporary Job Control Option byte. 

Bit 0: 1 = EDECK Temporary Cption 

1: 1 = ALIGN Teirporary Option 

2-6: Not used 

7: 1 = ACANCEL Temporary Option 

Disk Configuration byte. 



Bit 0-4 
5 
6 
7 



Not used 

1 = 3340 supported 

1 = 3330 supported 

Always 1; indicates 2311 and 2314/2319 supported 



Cataloged Procedure Name. 

Interface byte for Cataloged Procedures. 

Bit 0: 1 = Procedure being executed 

1: 1 = Overwrite processing 

2: 1 = Procedure with data 

3: 1 = Overwrite request for Job Control 

4: 1 = Insert request for Job Control 

5: 1 = Procedure end 

6: 1 = SYSLOG procedure 

7: 1 = Overwrite request for Supevisor 

JCL statement name for Cataloged Procedure. 

SYSIN 81 bytes indicator. 



Bit 
1 
2 
3 
4-6 
7 



1 = Permanent 81 bytes on SYSRDR 
1 = Permanent 81 bytes en SYSIPT 
1 = Temporary 81 bytes on SYSRDR 
1 = Temporary 81 bytes en SYSIPT 
Not used 
1 = Allow /g for WAINT CATALS 



L X , 

Figure 7. Partition Communications Region (Part 6 of 6) 
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SYSCCM 



1& 



JS 

o 







4 

4 


8 
8 


OA 
10 


OC 
12 


10 
16 


14 
20 


18 
24 


Address of 
Error Block 


Address of 
Atfenfion Exit 


Address of 

Operator 

Option 

Cancel Exit 


Address of 

Operator 

Request 

Cancel Exit 


Address of 
SYSRES PUB 


Address of 
Fetch Routine 


Address of 
I/O Interr. Routine 


Address of 
Ext. Interr. Routine 


«>«f^ 


xxxx 


XX 


XX 


1 ajffis 1 


mm 


^xxx 


S2£2 



IC 
28 


20 
32 


24 
36 


25 
37 


28 
40 


2A 
42 


2C 

44 


2E 
46 


30 
48 


34 
52 


Address of 

Logical Transient 

Ar^a 


Address of 

Ist byte of 

Problem Program 

Area 


Free 

List 

Pointer 


Address 

of 
Channe 1 
Queue 


Number of 
Channel 
Queue 
Entries 


Length of 
One Error 

Queue 

Entry 


Number of 
Partitions 


Not used 


Address cf 
Channel Buckets 


Address of 
CRT Table 


xxxx 


xxxx 


x 


XXX 


XX 


XX 


XX 


XX 


xxxx 


xxxx 



38 
56 


60 


40 
64 


44 

68 


46 
70 


48 
72 


4C 
76 


4D 
77 


50 
80 


Address of 
SAB Table 


Address of 

Channel Control 

Table 


F lag^ and 

Switches 

(See expansion ) 


System Task 
Selection 

Control Field 

* 


Address of 

Tosk 
Selection 


Address of 
PD Area 


TH 

Free 

List 

Pointer 


Address 

of 
TH Table 


Address of 

Timer Request 

Table 


xxxx 


xxxx 


xxxx 


XX 


XX 


XXXX 


X 


XXX 


xxxx 



54 
84 


58 
88 


5A 

90 


5C 
92 


60 
96 




64 
100 


68 
104 


6C 
108 


70 
112 


Address of 
AB Table 


Key of Task 

owning LTA 

(LIK) 


Key of Task 
running 

(TIK) 


Address of 
POWER Table 


Reserved 


Address of 
RF Table 


Address of 
EU ECB Table 


Address of 
OLTEP bucket 


Address of 

RAS Linkage 

Area 


xxxx 


XX 


XX 


xxxx 


xxxx 


xxxx 


xxxx 


xxxx 


xxxx 



74 
• 46 


78 


7C 


80 
'20 


84 
^2 


88 


8C 
}4n 


90 


Address of 

ASCII 

Translate Table 


Address of 

PUB Ownership 

Table 


Address of 
Job Accounting 
Common Table 


Base Address of 

Poge Management 

Routine 


Base Address of 
Channel Program 
Translation Routine 


Address of 

SDAID 

Comm. Area 


Address of 
Line Mode Table 


Address of VSAM 

Communication 

Area 


xxxx 


xxxx 


xxxx 


xxxx 


xxxx 


xxxx 


xxxx 


xxxx 



94 
148 


98 
152 


9C 
156 


AO 
160 


Al 
161 


A2 
162 


A3 

163 


A4 
164 


A5 

165 


A6 
166 


A7 
167 


Address of PTA 


Address of first 
System Task Block 


Address of Task 

Block of Active 

System Task 


1 byte for 
Alignment 


Pointer to 

RAS Task 

Block 


Pointer to 

PMGR Task 

Block 


Pointer to 

SUPVR Task 

Block 


Pointer to 

CRT Task 

Block 


Pointer to 

ERP Task 

Block 


Pointer to 
PAGEIN 
Task Block 


Reserved 
(9 X'OO'} 


xxxx 


xxxx 


xxxx 


X 


x 


X 


X 


X 


X 


X 


xxxxxxxxx 



BO 
176 


B4 
180 


BB 
184 


BC 

188 


BE 
190 


CO 
192 


CB 
203 


cc 

204 


CE 
206 


Not used 


Address of 
MVCFLD 


Not used 


Not used 


Not used 


1?epositioning Information 
for MFCM ERP 


Number of 

Error Queue 

Entries 


Length of 

PUB Table 

in bytes 


Number of 
Active 
Partitions 


xxxx 


xxxx 


xxxx 


XX 


XX 


xxxxxxxxxxx 


x 


XX 


XX 



DO 
208 


D4 
212 


D8 
216 


DC 
220 


EO 
224 


E4 

228 


E8 
232 


EC 
236 


Address of 
Segment Table 

xxxx 


Address of 
Page Frame Table 

xxxx 


Address of 

Page Frame Table 

Extension 

xxxx 


Address of 
Boundary Box 

xxxx 


Address of 
DPD Table 

xxxx 


Reserved 
xxxx 


Address of 
VIRTAD Routine 

xxxx 


Address of 
End of Real Storage 

xxxx 



FO 
240 


F4 
244 


F5 
245 


F8 
248 


Address of 
fetch 
Table 


SVA Flag 
(see ex- 
panston) 


Address 
of SVA 


Address 
of Systenn 
GETVIS AREA 


xxxx 


X 


XXX 


XXXX 



*See next page for further explanation. 



Figure 8. System Communication Fegion (SYSCCM) (Part 1 cf 2) 
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Expansi on o f SYSCOM F lag Bytes 



r 


» 


-T ' 




1 Eyte 






1 Dec 

L 


Hex 


. i_^ 


Description 


r 




"T 




1 64 


40 


1 Reserveca for RMS in Kociel 115 and 125 






1 X'80* 


RMSR for channel attached devices, tapes and TP devices 






1 X«40* 


Full KKS suppcrt (MCAR/CCH and RMSR) 






1 X«20' 


MCAR/CCH support 


I 65 


41 


1 X'80' 


Initial selection of ERP 






1 X'40' 


Reserved 






1 X*20* 


Timer interrupt pending 






1 X'lO' 


MICR Stacker-select active 






1 X*08* 


Invalid address during fetch 






1 X»04» 


SIC routine entered after interrupt 






1 X*06« 


Reserved 






1 X'Ol" 


IPL in progress 


1 66 


42 


1 X*80' 


Initial RAS request 






1 X«40« 


RJ^S Wait request outstanding 






1 X'20» 


Ri^S IPI in progress 






1 X'lO" 


Reserved 






1 X*08« 


POWER supported 






1 X'06' 


POWER initialized 






1 X'02'' 


GETREi^I for SDAID Or FDAID in progress 






1 X'01« 


Fetch for system task in progress (used by FDi^ID) 


1 67 


43 


1 Reserved 


1 244 


F4 


1 SVh Flag 






1 X'OO* 


Do not test for warir start copy of SVA 






1 X'40» 


SDL active 






1 X'20* 


No 'Set SV2V' or 'Set SDL' allowed 






1 xno* 


Build cf SDL in progress 






1 X'08* 


SDL overflow 






1 X*0^' 


Reserved 






1 X«02* 


Reserved 






1 X'Ol* 


Reserved 



L ± . . , J 



Layout of System Task Selection Control Field 



1 


Eyte 
Dec Hex 


1 










De 


soription 


t 


68 


44 


■ r 






Always zero 










69 


45 




SELECT 


byte: 
















X« 
X' 
X' 
X' 

x« 

X' 
X* 


00* 
'01* 

02» 
'03« 

04» 
•05« 

06' 


No system task 
RAS active 
PMGR active 
SUPVR active 
CRT active 
ERP active 
PAGEIN active 


active 







JL ^ J 



L 

Note 



The address of SYSCCK can be found at fixed location X'80' - X'83' 



Figure 8, System Communications Region (SYSCCK) (Part 2 of 2) 
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«^ ^ ^ 

iTrans- 

I mission JCSW 
Count jlnfcrira- | Status 

jtion I Bits 
1|2 3|4 



.^ ^ ^„ — ^-. — ^ — ^ 

|Type Code|Reserved | 



- — ^ y — ^ y y -, 

[Reserved | | 
I for |CCW iCFticnal 
|CCW I Physical [Address [Sense 
[Address | IOCS [in CSW [CCW 
[9 111 12 [13 15[16 23 



[and (for 
[Logical [Logical 
[Unit (IOCS 
5 [ 6 7 [ 8 



H 



ByteCs) 



Description 



0-1 Used for re- 
sidual oount. 



h 



2-3 Transiritting 
information 
between Phy- 
sical ICCS 
and Protlem 
Prograir 



Byte 2 

Bit 0: Traffic Bit (Wait) (Kcte 5). 

Bit 1: End-cf-File (/* cr /g) 3211-UCSB Parity Check 
(Line Coirplete) (Note 2). 

Bit 2: Irrecoverable I/O error. 

Bit 3: Accept Irrecoverable I/O error. 

Bit t*: Return EASD Lata Checks, 354 Diskette Data Checks, 
2671 errcrs, or 1017/1018 errcrs to the user; 
indicate action-type iressages for DOC| return 5425 
not ready. 

Bit 5: Post at Device End (Kcte 5). 

Bit 6: Return Tape Read Data Check; 1C18 or 2560 Data 

Check? 2520, 2540, 2560, 3881, or 5425 Equipirent 
Check; Accept 3504, 3505, or 3525 Periranent Error; 
DASD Data Checks on Read or Verify Comirand on 3203, 
3211, 2245, or 5203 Passtack Requested. (Notes 3, 
6, and 8) 

Bit 7: User Error Routine, (Note 10). 



(Set on by 



Byte 3 



I 



Bit 0: DASD Data Check in Count Area; Permanent Error fcr 
3330, or 334C; MICR-SCU Not Operational; 1287/1288 
Data Check; 3203, 3211 or 5203 Print Check/Equipirent 
Check; 3540 Special Reccrd Transferred. 

Bit 1: DASD Track Overrun; KICR Intervention required; 

1287-Keyboard Correction in Journal Tape Mode; 1017- 
Eroken Tape; 3211-Print C^ality/Equipment check. 

Bit 2: DASD End-of-Cylinder ; iy5ICR-(Note 4) 1287/1288- 
Hcpper Eirpty in Dccunent Mode; 3211/2245 Line 
Position Error (Note 7). 

Bit 3: 2520, 2540, 3881-Equipirent Check; 2560, 3203, 5203, 
5425 Data Check/Equipirent Check; Tape-Read Data 
Check; DASD- Any Data Check; 1287-Equipment Check; 
1017/1018-Data Check; 3211-Prirt Check/Data Check; 
3504, 3505, 3525 Permanent Error (Note 8); 3540 
Diskette Data Check. 

Bit 4: Non-Reccvery Questionable Ccnditicn: Card-Unusual 
Ccirmand Sequence; DASD-Nc Reccrd Found; 
1287/1288-Document Jam or Torn Tape; 3211-UCE Parity 
Check (Ccirmand retry); 5425 net ready. 



PIOCS* 
PIOCS 

PIOCS 

Pr.Pr.** 

Pr.Pr. 

Pr.Pr. 
Pr.Pr. 



Pr.Pr. 



Set on by 
PIOCS 



PIOCS 



PIOCS 



PIOCS 



Figure 9* Command Control Block (CCB) (Part 1 of 3) 
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T * 

I Trans- 
I mission 
Cci:nt jlnforira- 

jticn 
1|2 3 
J. 



-T T T T T T ^ 

|Type Cede [Reserved | [Reserved | | 

I and I for | | f or \CCVi | Optional 

JLogical |Logical |CCW |Physical JAcdress [Sense 

jUnit I IOCS iJ^ddress 1 IOCS |in CS^ JCCW 



CCW 
Status 

Bits 



i|6 



7| 



8 



|9 



111 



12 



113 



15|16 



23 



Byte(s) 



Description 



I Set on by 



Bit 5: No Record Found Condition (Retry on 2311, 2314, 

2319, 3330, or 3340), 
Bit 6: Carriage Channel 9 Overflow or Verify Error for 

LJ^SB; 12 87-Docuinent Kode-Late, Stacker Select? 

1288-End of Page. 
Bit 7: Ccirinand Chaining, Retry froir. the next CC^ to be 

execijted. 



JEyt 



jPr.Pr , 

I 
JPIOCS 

I 
I 

iPr.Pr, 

I 

.-I « 



4-5 CSW Status 
Bits 



Byte a (Note 1) 



e 5 



Bit 
0(3 
1(3 
2(3 
3(3 
4(3 
5(3 
6(3 
7(3 



s: 

2): 

3): 

4): 

5): 

6): 

7)2 

8): 
9): 



h 



Attention 
Status N.cdifier 
Control Unit End 
Busy 

Channel End 
Device End 
Unit Check 
Unit Exception 



|Eit 
|0(4 
|1(4 
|2(4 
|3(4 
|4(4 
|5(4 
|6(4 
|7(4 
X 



0): Prograir Controlled Interruption 

1) : Incorrect Length 

2) : Prograir Check 

3) : Protection Check 

4): Channel Data Check 

5) : Channel Control Check 

6) : Interface Control Check 

7) : Chaining Check 



6-7 Type Code and 
Logical Unit 



h 



Byte 6 



X'Ou* Original CCB (Bytes 9-11 and 13-15 contain virtual addresses) 
X*2u* Translated CCB (Bytes 9-11 contain real address, bytes 13-15 

virtual address) 
X*4u» BIAK request original CCB (Bytes 9-11 and 13-15 contain virtual 

address) 
X*6u* BTAK request translated CCB (Bytes 9-11 contain real address, 

bytes 13-15 virtual address) 
X»8u» User-translated CCB in virtual partition (Bytes 9-11 and 13-15 

contain real addresses) 

Note; Any one of the above increirented by X'lO* (bit 3 on) indicates 
automatic svvitching to the beginning cf the next cylinder at 
End-of -Cylinder condition. 

u: = The address in byte 7 refers to a Systeir Logical Unit. 

1 = The address in byte 7 refers to a Prograirirer Logical Unit. 
|. «-«^ 

Byte 7 
|,_^_._„ « ^-^ 

Hexadecirral representation cf SYSnnn: 



H 



SYSRDR = CO 


SYSSLB 


= 07 


SYSOOO = 00 


SYSIPT = 01 


SYSRLB 


= 08 


SYSOOl = 01 


SYSPCH = 02 


SYSUSE 


= 09 


SYS002 = 02 


SYSIST = 03 


SYSREC 


= OA 


• 


SYSLOG = 04 


SYSCLB 


= OB 


. 


SYSLNK = 05 


SYSVIS 


= OC 


SYSnnn 


SYSRES = 06 


SYSCAT 


= CD 


(Note 9) 


Buffer Offset: 






ASCII Input 


Tapes 




X'OO' - X'63' 


ASCII Output 


Tapes Fixed 


X'OO* 


Variable 






X'OO* or X'04« 


Undefined 






X'OO' 



Reserved for 
Logical IOCS 



Figure 9. Coirirand Control Block (CCB) (Part 2 of 3) 
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(Trans* 
imission 

Count I Inf oripa- 
Iticn 

1|2 3 



|Type Code (Reserved ( 

(and (for ( 

(Logical (Logical (CCW 

(Unit (IOCS (Address 



-T T T — 

(Reserved ( ( 

[for (CCW (Optional 

(Physical (Address (Sense 

( IOCS (in CSVi (CCW 



CSW 
Status 

Bits 
4 



5(6 



7( 



8 



(9 



111 



12 



(13 



15(16 



23 



Eyte(s) 



Description 



9-11 CCW Address 



h 



Virtual or real address cf CCW associated with this CCE depending on 
byte 6s 

Real address if byte 6=X*2u\ X'6u', or X'8u«; 
Virtual address if byte 6=X*0uV, or X«4u*. 



'i 



12 Reserved for 
Physical IOCS 



X'80' CCE being used by ERP 

X'40' Channel Appendage Routine present for TP device, VSAM or POWER. 

X*20* Sense Infcrination desired (Note 10) 

X*10* Message viriter 

X«08* ED lape Error 

X'04' OITEP Appendage available 

X'02' Tape ERP Read Opposite Recovery 

X'Ol* Seek Separation 



H 



13-15 CCW Address 
in CSW 



Virtual Address of CCW pointed to by CSW at Channel End (if 

byte 6 = X'8u', it is the real address) or address cf the Channel End 

Appendage Routine for TF devices,, VSAN. or POWER. 



H 



16-23 Optional 
Sense CCW 



8 bytes appended to the CCE when Sense Inforiraticn is desired. 



Ccmmsr.d Control Block ^CCB) (Part 3 cf 3) 



Notes: 



= Physical IOCS ♦♦ = Prcbleir Program 

Bytes 4 and 5 contain the status bytes 
of the Channel Status Word (Bits 
32-47). If byte 2, bit 5 is en and 
device end results as a separate 
interrupt, device end will be CRed into 
CCB byte 4. 

Indicates /* or /S statenent cr SYSRDR 
or SYSIPT. Byte 4, bit 7 (unit 
exception) is also on. 

BASD data checks on count not returned. 



6. 1018 ERP does not support the Error 
Correction Function. 



This error occurs as an equipment 
check, data check cr FOB parity check- 
For 2245, this error occurs as a data 
check cr FCB parity check. 



For 3504, 3505, 3525 input or output 
files using ERROPT, byte 3, bit 3 is 
set on if a permanent error occurs. 
Byte 2, bit 6 is set on to allcw ycu to 
accept permanent errors. 



For 1255/1259/1270/1275/1419, 
disengage. For 1275/1419D, I/C Error 
is external interrupt routine (Channel 
data check or bus-out check) . 



5. The traffic bit (Byte 2, bit 0) is 
normally set on at channel end to 
signify that the I/O was coirpleted. 
byte 2, bit 5 has been set on, the 
traffic bit and bits 2 and 6 in byte 



If 



will be set on at device end. 
Note 1, 



Alsc see 



SYSnnn=255 - (Number cf partitions 
tiires 14). 



10. If User Error Routine is specified and 
the user needs the sense infcrmaticn to 
further process the error, byte 12, bit 
2 irust also be set. Ctherwise, the 
supervisor error routine will mask off 
the status on return and the sense 
information is not available. 
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PUBTAB 




Channel 1 

PUBs 



Channel 6 

PUBs 




[■ 



delimiter 
PUBEND 



Job Control Flags — 

Channel Scheduler Flags ■ 
Device Type 



TEB Pointer/Retry Counter 
Unit — 



r: 



T 



• Channel Queue Pointer 
■Channel 

Device Characteristic Codel 
or SAB Pointer J 



Figure 10. Physical Unit Elcck (FOB) Table 



Bytes; 

0: 
1: 
2: 



Channel number. (Hex C-6, FF=NUIL) 

I/O device unit number 

Hex 0,, 1, 2, .•. points tc the first 
channel queue entry fcr this device 

3: If device is a 2495 lape Cartridge 
Reader and TEBs are specified, this 
byte is a TEB pointer. (Hex 1, 2, 3^ 
.•.). Otherwise, this byte is an ERF 
retry counter. 

U: Device type code 

5: SS of the MODE=paranieter in the 
DVCGEN macro for tape unit. 

For ICA line (Model 115, cr 125), 
this byte contains the displacement 
index cf the entry in the line Mcde 
Table (LMT) . The address cf the LMT 
is in SYSCOM. 

For DASD with seek separation, this 
byte is used as the SAB Pcinter. 
With Track Hold but net seek 
separation supported, this byte 
contains a pointer tc the Track-Hold 
Table entry or X'FF' (with bcth SKSEP 
and TRKHID specified, the Track-Held 
pointer is found in the SAB entry) . 

For MICR type devices, this byte 
indicates which external interrupt 
line is in use. 



For a 3704/3705 Ccirirunicaticns 
Controller, this byte contains the 
type number of the Channel Adapter, 



For NFCM or MFCU: 

Bit C: 1 = Repcsiticning required 

1: = SYSPCH temporarily 

assigned tc hcpper 1 
1 = SYSPCH temporarily 
assigned tc hcpper 2 

2: = SYSIFT temporarily 

assigned tc hcpper 1 
1 = SYSIFT temporarily 
assigned tc hcpper 2 

3: = SYSRER tempcrarily 

assigned tc hcpper 1 
1 = SYSRDR tempcrarily 
assigned tc hopper 2 

5 J = SYSPCH permanently 

assigned tc hcpper 1 
1 = SYSPCH permanently 
assigned tc hopper 2 

6: = SYSIFT permanently 

assigned tc hcpper 1 
1 = SYSIFT permanently 
assigned tc hcpper 2 

7: = SYSRDR permanently 

assigned tc hcpper 1 
1 = SYSRDR permanently 
assigned tc hcpper 2 
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Channel Scheduler Flags 



Bit 0: 


1 


3= 


Device busy 


1: 


1 


= 


Switchable device 


2: 


1 


= 


EOJ for SYSRDB cr SYSIPT 


3: 


1 


~ 


I/O error queued for 
recovery 


4: 


1 


■"" 


Operator intervention 
required 


5; 


1 


"~ 


Device End posting 
required 


6: 


1 




Burst or overrunable 
device on Byte MPX 
channel 


7: 


1 


= 


7-track tape unit 



Job Control Flags 

Bit 0-4 : Standard MODE assignirent 

for 7-track tape (all cnes 
if not tape, all zeros if 
device is dcv^n) 
5: 1 = DASD device with 

disconnect ccnnand 
chaining feature 
6-7: B'll* (both en) = Headqueue 
in progress* 
B*01* = Headqueue 
requested* 



♦No I/C is started on a PUB 
or copied PUB that has 
both these switches on. 
If only bit 7 is en I/O 
can be started after seek 
separation. 



Notes: H null entry is generated at 
supervisor generation tiire fcr each device 
to be supported by the supervisor. Then 
standard physical unit assigrirents are made 
to the PUB table. Physical unit 
assignirents can also be trade during IPL. 
PUBS are ordered by channel and priority 
within a channel. 



An entry in the PUB Ownership Table is 
associated with each entry in the PUB 
Table, if the supervisor has been generated 
tc support irultiprcgrairiring. 



Bytes 64-65 (X'40* - X*41M cf the 
partition ccicirunicaticn regicn contain the 
address of the PUB Table entry. Label 
PUETAB identifies the first byte of the 
table. 
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Number in 

Class List 

(N!CL) LUBTAB 



First in 
Class List 
(FiCL) 



SYS 








f 


BG 

System LUBs 


^~ 


■■^ 








SYS 








BG 




BG 




U 


BG 

Programmer LUBs 




F4 






F4 








F3 










F3 


1 




F4 

System LUBs 






F2 






F2 


Fl 






F4 

Programmer LUBs 








- 


Fl 






I 










F3 

System LUBs 






F3 

Programmer LUBs 


















F2 

System LUBs 






F2 

Programmer LUBs 




















J 


Fl 

System LUBs 






F] 

Programmer LUBs 












1 





LUB Table for any Partition 

SYSRDR 

SYSJPT 

SYSPCH 

SYSLST 

SYS LOG 

SYSLNK 

SYSRES 

SYSSLB 

SYSRLB 

SYSUSE 

SYSREC 

SYSCLB 

SYSVIS 

SYSCAT 

SYSOOO 

SYSOOl 

SYS002 

SYS003 

SYS004 



2) SYSnnn 



__ Format of any LUB 



00000000- Points to first PUB and PUBOWNER 
0000000 1- Points to second PUB and PUBOWNER 
000000 10- Points to third PUB and PUBOWNER 



1 1 1 1 1 1 - Ignore, assigned ignore 

1 1 1 1 1 1 1 - Null Pointer, the LUB is unassigned 

When a logical unit is assigned, the system inserts a pointer 
to the PUB for the physical device specified. 



Byte 


Byte 1 


Pointer to PUB 
and PUBOWNER 


JIB Pointer 



JIB Index (Multiply by 4 = Displacement into JIB Table) or 
X'FF' = Null Pointer, no JIB for this LUB. 

A LUB has a JIB pointer when: 

1. The logical unit is temporarily assigned 

2. The logical unit assignment is alternate (ALT). 

3. A DASD file (exept a system I/O file on disk) Is 
opened (DASD file protect only) 



Figure 11. KICL, FICL and LUE Tables 
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TEBTAB 



•s 

c 

1 

.— 4-* 

c at 
a> c 



5.i 

His 



TEB 1 



TEB2 



TEB 3 



TEB 4 



TEB 5 



TEB 6 






1 


2 


3 


4 


5 



Figure 12. Tape Error Block Tatle CTEETAB) 

Bytes; 

0: Error recovery retry count. 

1: Periranent read data check error 
count. 

2: Number of times the read data check 
error routine is entered. 

3: Number of tiroes the v?rit€ data check 
error routine is entered. 

4: Write skip (erase gap) count. 

5: Noise record count. 

One TEB is generated for each 2495 Tape 
Cartridge Reader unit if the FOPT Eacrc 
contains the TEB=n parameter, jcb Ccntrcl 
resets each TEE at normal or abnormal 
End-of-Job. An unused TEB ccntains 
HEX'FFOOOOOOOOOO*. A TEB is referenced 
from byte 3 of a Tape Cartridge Feader unit 
PUB. 

Bytes 70-71 (X'46' - X«47M of the 
partition communications region (s) contain 
the address of the TEE Table entry. Label 
TEBTAB identifies the first byte cf the 
table. 
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DISK INFORMATION BLOCK (DIB) TABLE 



DSKPOSBG 
DSKPOSF4 
DSKPOSF3 
DSKPOSF2 
DSKPOSFl 



BGDIB 
Table 



F4DIB 
table 



F3DIB 
Table 



F2 DIB 
Table 



Fl DIB 
Table 



The number of DIB tables depends 
on the number of partitions speci- 
fied at supervisor generation. 





Format of any DIB table if SYSFIL= 
6 7 


YES 


' 9 


10 












16 


17 


18 


19 


20 


21 


22 


23, 




Current Address 


K D D 


End Address 


UL 


LL 


M 


RC 


.._ 1 


SYSLNK 


C 


C 


H 


H 


00 


00 


00 


P 


P 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


SYSIN 


B 


B 


C 


C 


H 


H 


R 


00 


00 


50 


B 


B 


C 


C 


H 


H 


R 


H 


H 


XX 


XX 


XX 


00 


00 


SYSPCH 


B 


B 


C 


C 


H 


H 


R 


00 


00 


51 


B 


B 


C 


C 


H 


H 


R 


H 


H 


XX 


XX 


XX 


00 


00 


SYSLST 


B 


B 


C 


C 


H 


H 


R 


00 


00 


78 


B 


B 


C 


C 


H 


H 


R 


H 


H 


XX 


XX 


XX 


00 


00 


PRCDIB 


B 


B 


C 


C 


H 


H 


R 


00 


00 


50 


B 


B 


C 


C 


H 


H 


R 


H 


H 


XX 


XX 


XX 


00 


00 





Format of any DIB table if SYS 
6 


FIL= 
7 


NO 


9 


10 












16 


17 


18 


19 


i20_ 


21 


22 


23 i 




Current Address 


K D D 


End Address 


UL 


LL 


M 


RC 


~ 1 


SYSLNK 


C 


C 


H 


H 


00 


00 


00 


P 


P 


00 


! 


PRCDIB 


B 


B 


C 


C 


H 


H 


R 


00 


00 


50 


B 


B 


C 


C 


H 


H 


R 


H 


H 


S 


xxlxx 


00 


00 



■) BG SYSLNK DIB contains the PUB pointer for CLB. 
For FG SYSLNK DIBs this byte is unused. 





Format of 3540 D 
p 


isket 


te DIB to 


ble 
7 




9 


10 












16 


17 


18 


19 


20 


21 


22 


23, 




Current Address 


K D D 


End Address 






M 


RC 


1 


SYSIN 


00 


00 


00 


00 


C 


H 


R 


00 


00 


00 


FLG 


EXT 
# 


HDR 


00 


c 


H 


R 


00 


00 


XX 


00 


00 


00 


00 


SYSPCH 


00 


00 


00 


00 


C 


H 


R 


00 


00 


00 


FLG 


EXT 


NDR 
# 


00 


c 


H 


R 


00 


00 


XX 


00 


00 


00 


00 


SYSLST 


00 


00 


00 


00 


C 


H 


R 


00 


00 


00 


FLG 


EXT 


[T 


00 


c 


H 


R 


00 


00 


XX 


00 


00 


00 


00 



Figure 13, Eisk Inforiraticn Elcck (DIE) Table 



Bytes 

0^ 6 Current Ad dress 

0-5: Current address of ke^: the 
next address tc be used (both 
for input and output) . 
6 : Record nuirber of current 
address, 

7-9 KDD 

Key and data length cf the syirbclic 

device. PP: starting cylinder of 

Private Core Image Library if PCIL 

is assigned? otherwise zerc. 



10-16: End Address 



17: 
18: 
19: 



10-15: End address of key: the 
last address viithin the 
limits of the extent. 
16: Record nuirber of end 
address. 



UL Upper head liirit. 

LL Lower head liirit. 

M Maxiiruit nuirber cf records per 
track. 
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20: RC Record count: Residual capacity 
for beginning of operatcr 
notification. Set at systeir 
generation tiire with SYSFIL 
parameter t or after IFL with SET 
stateirent (RCLST and/cr PCPCH 
operands), A warning message is 
issued by job ccntrcl after 
End-of-Job step when the iriniiruir 
number of remaining records has been 
reached or exceeded during the 
previous job, Kot supported for 
3540, 

22-23: Reserved. 



Note: The block is initialized by job 
ccntrcl with extent infcriraticn and updated 
by physical IOCS. When the FOIL cpticn is 
used the DIB is updated each time the PCII 
is assigned. 



There is one DIB table for each partition, 
label ESKFCSEG identifies the first byte of 
the EG DIE Table CDSKPCSFl, ESKP0SF2, 
DSKPCSF3, DSKPOSFU, fcr the ether 
partitions). The addresses of the DIE 
tables are contained in bytes 96 and 97 
(X'60' and X'61') cf the appropriate 
partition com.municaticn region. 
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PIBTAB 
Attention PIB 



Background FIB 



^v 



FG4 



FG3 



FG2 



FGl 



Subtosk 



FIB 



FIB 



FIB 



FIB 



FIB 



Subtosk FIB 








1 


2 3 


4 


5 6 7 


8 


9 10 11 


12 


13 


14 


15 




Flog 


Cancel 


SySLOG 


Always 


lnactive= Zero 


Switch 


Address of Save Area 


X'07* 


BG 


Number Not 


2S 


Byte 


Code 


ID 


Zero 


Active= Address 


Byte 


or Zero 


FIB 


User 


ofBG 


used 


c c 






(AR) 




of LTA Save Area 






Assign 


LUB 


rrogram 




E a 
i2^ 


(Seegl] 








(Note 2) 


(SeeB) 


(Note T) 
(Note 2) 


Flag 
(Seeg) 


index 


LUBs 





I 



10 



11 



12 



13 



14 



15 



i 



Hi 

U.Q. 5 



Flog 



Cancel 



Byte Code 
(SeeH) 



SYSLOG 
ID 



DAT 

Flag 

(SeeB) 



Address of Froblem 
F^ogramSave Area or 
LTA Save Area 

(Note 3) 



Gate 
ID 

(SeeS) 



Address of System Save 
Area 



FIB 

Assi£pri 

Flog 
[SeeB) 



User 
LUB 
Index 



Number Flog 



of 
Firograin 
LUBs 



Byt« 
[SeeiD 



Figure m. Program InforniaticE Elcck (PIB) Table (Part 1 of 2) 



Notes; 

!• a. When LTA is inactive = LTA save 
area address. 

b. When LTA is active for Protlem 

Programs, this address is exchanged 
with that in the Prcbleir Prcgrair 
PIE. 

'2. When LTA is active for Lcgical 

Attention, bytes 9-11 are zerc and 
bytes 5-7 contain the ITA save area 
address. 

3. When the Logical Transient Area is 
active the save area address ir the 
Problem Program PIE is exchanged with 
that in the Attention PIE. 

The number of Problem. Program PIEs 
generated depends on the number of 
partitions specified during system 
generation. Subtask PIEs are generated 
only if AP=YES has been specified during 
system generation. The number of subtask 
PIEs generated depends on the number of 
partitions, that is: 

^ ^ ^ 

I Number of Partitions [Number of Subtasks | 



I 
I 
I 
I 



13 
12 
11 
10 



Eytes 90-91 (X'5A« - X'5E') cf the 
partitiCE ccmmunicaticn region (s) contain 
the address of the PIE table. Label PIBTAE 
identifies the first byte cf the table. 



fT] Flag Eyte (First byte in PIE) 



The fcllcwing flags are always used: 



X'71« = 
X«73« = 

X'75' = 



X' 


77 • 


X' 


79. 


X 


•7E* 


X 


'7D' 


X 


'80* 


X 


'81' 



X'82« = 



X' 


83' 


x^ 


85« 


X' 


86 • 


X" 


87* 



Program is waiting fcr SVC 58 

Program is waiting because 

system is seized 

Program is waiting fcr copy 

block 

Program is waiting fcr TFREE 

Program is waiting fcr channel 

queue entry 

Program is waiting fcr CCW 

translation 

Program is waiting fcr free 

console buffer table entry 

(used only wfcen CEF=n) 

Program is net active 

Program is SVC 2-bcund (waiting 

for the LTA tc be released) 

Program is SVC 7-bcurd (waiting 

for an I/O interruption) 

Program is ready tc run 

Program is SVC 5-bcund (waiting 

fcr the PTA tc be released) 

Initial selection of RAS (used 

only fcr RAS PIE Flag) 

Program is set tc ccmmcn bound 

condition 
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The following flags are used only if 
NPARTS>1, X'6r« through X»69' are used 
by the load leveller to deactivate a 
partition • The partition to v?hich a 
flag refers depends on NPARTS as 
follows : 

NPABTS= 

2 3^5 



X«61" 
X«63* 
X«65« 
X«67* 
X«69« 



refers 
refers 
refers 
refers 
refers 



to 
to 
to 
to 
to 



BG 
Fl 



EG 
12 
Fl 



EG 
F3 
F2 

Fl 



BG 
F4 
F3 
F2 
Fl 



X'6B* = Program is SVC 35-bcund 
X'6D' = Program is waiting for next 

freed page fraire 
X«6F» = Program is IDRA-tound 

The following flags are only used if 
AP=YES: 

X'51'* = Program is SVC 38-fccund 
X'53« = Program is SVC 41/M2-tcund 

The following codes are only used if 
AP=YES and PFIX=YES. The codes are 
used by the PFIX routines to set a 
partition PFIX-bound. The partition tc 
which a flag refers depends on NPABTS 
as follows : 

2 3 4 5 



x*m* 


refers 


to 


BG 


EG 


EG 


BG 


X«49« 


refers 


to 


Fl 


F2 


F3 


Fi* 


X«4E» 


refers 


to 


- 


Fl 


F2 


F3 


X«4D* 


refers 


to 


- 


- 


Fl 


F2 


X«4F» 


refers 


to 


- 


- 


- 


Fl 



The following codes are t^sed crly if 
JftP=YES and VSAM=YES, The cedes are 
used by the VSAM routines tc set a 
partition PFIX-bound, The partition to 
which a flag refers depends en NPARTS 
as follows: 

NPARTS= 
2 3 4 5 



X«3D« 


refers 


to 


BG 


EG 


EG 


BG 


X«3F» 


refers 


to 


Fl 


F2 


F3 


F4 


X'41* 


refers 


to 


- 


Fl 


F2 


F3 


X'43» 


refers 


to 


- 


- 


Fl 


F2 


X'a5« 


refers 


to 


- 


- 


- 


Fl 



The following flag is cnly used when 
CBF=n : 

X'7D' = Program is waiting for free 
console buffer table entry. 

The following flag is cnly used when 
TP=QTAiyi : 

X*8B' = Task in QTAM wait. 



X*01* = Return tc reentrant supervisor 

routine 
X'02' = Return tc gated supervisor 

routine 
X'04« = Move CCB at dispatching time 
X'08' = Service delayed external 

interrupt 
X*10' = Deactivation of this task is 

being delayed 
X'20' = Reserved 

X'40* = Task has seized the system 
X'80* == Program is running in virtual 

mode 



[c] Gate Identifie r 



X»71» = Gating of 'svc 58 reguired 
X'53' = Gating of SVC Ul/^2 required 

The flags are cnly used if the PIE DAT 
Flag is X*03% that is, the first two 
flags are on. (See [i] .) 



\C\ PIE Assign Fla g 



X»80' = SYSRES DASE file protect 

inhibited (allow write 

operation on SYSRES) 
X'40* = Channel appendage exit allowed 

(ETAM) 
X*2n« = Cancel in progress (used in 

terminator function) 
X'lO* = Cancel control (set en a 

foreground cancel) 
X'08' = Hold foreground assignments 
X«07* = Attention PIE 

Program Program PIE Flag (Last byte in 
PIE) 

Bit : 1 = Batched job in foreground 
(always en when tested) 
1: 1 = Cancel in ITA and device 

not assigned 
2: 1 = /S cr SYSIN if DASE 
3: 1 = Partition in stopped state 
4: 1 = Fetch ECJ mcnitcr 
5: 1 = Task is canceled 
6: 1 = Subtask(s) attached 
7: 1 = in AE routine 



[fj Attent ion PIE Sw itch Byte 



Bit 



Reserved 

1 = Fetch Physical Attention 

Transient $$AEERRZ 
1 = Delay cancellatien (fetch 

$$ABERZ1) 
1 = Emergency cancel request 
Reserved 

1 = Comm.and available (DOC) 
1 = Fetch Logical Attention 

Routine ($$EATTNA) 
1 = External Interrupt request 



Figure ]4. Program Information Block (PIB) Table (Part 2 of 2) 
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JIBTAB 



n= number of unifs 
i= indeK dispiocemenf 
withm LUB table 




POCL 



Figure 15. I/O Tatle Interrelationships (Fart 1 cf 3) 



310 DOS/VS IPL and Jot Control 



I Key 



h 



j Explanation 



h 



NICL (Number in Class) 



B]^te contains the nuirfcer of systeir class LUEs. The reir-aining 
bytes contain the number of programmer olass lUEs for each 
partition. The total number of bytes is one more than the 
number of partitions supported. 



H 



FICL (First in Class) 



Byte points to the first system class LUE in the LUE table 
(LUETAE) . This is al\iiays the first entry in the LUE table. 
The remaining bytes point to the first programmer olass LUEs in 
the LUE table partition areas. The total number of bytes is 
one more than the number of partitions supported. 



•i 



LUETAE (Logical Unit 
Elcck Table) 



Byte of each entry is an index pointer to an entry in the PUB 
Table (FUETAB) and to an entry in the PUE C\%n€rship Table 
(PUEOVvKER), or oontains X'FF* if no logical unit is assigned. 
Byte 1 points to an entry in the JIB Table (JIETAE) or oontains 
X'FF' . 



H 



PUETAE (Physical Unit 
Block Table) 



FCCL (First on Channel 
List) 



h 



Bytes and 1 of each entry contain the ohannel and unit 
address of the physical device. Byte 2 points to the entry in 
the channel queue (CHANC) table or contains X'FF'. Byte 3 is c 
retry counter or, if the unit is a tape cartridge reader and 
the TEE=n parameter \(«as included in the FCPT nacro, it contains 
a pointer to the Tape Error Block table (TEETAE) entry for the 
device. Eyte 4 contains the device type code. Byte 5 is an 
index pointer to the entry in the Track-Hold Table, the 
seek-address block table, or the mode table (l^CEEL 125 only) 
when one of these options is active for the device. Otherwise 
this byte contains X'FF*. Eyte 6 oontains the channel 
scheduler flags and byte 7 the job control flags. 

Byte points to the first FUETAB entry for a device on channel 
0. Byte 1 points to the first FUBTAB entry for a device on 
channel 1, and so on. X'FF* indicates that the associated 
channel is not supported. 



PUECWNER 



Byte of each entry is reserved. Byte 1 identifies the 
partition that owns the corresponding PUB. 



FAVP (First Available 
Pointer) 



This one-byte pointer to the next available entry in the JIE 
Table (JIETAB) is used by the ASSGN statement processor and by 
job control. 



JIETAB (Job Information 
Block Table 



Bytes and 1 of each entry contain extent or LUE information 
used by job control and the ASSGN statement processor. Byte 2 
is a flag byte. Eyte 3 is a chain byte. 



Figure 15. I/O Table Interrelationships (Part 2 of 3) 
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\Key 

^ 

CHANQ (Channel Queue 
Table) 



I Explanation 



Byte in each entry points tc the next entry in the queue for 
the same device Ccr the next free entry if in the free list), 
or it contains X'FF* if the entry is the last in a chain. 
Bytes 1, 2, and 3 contain the CCB address. Byte ^, if I/O was 
requested by a user program, contains the Partition 
Identification Key (PIK) • If a system task requested I/O, then 
the zone field is all zeros and the numeric field contains the 
IE of the specific system task. Byte 5 ccntains a displacement 
index pointing to the lUBTAE entry related to the I/O request 
(absolute LUBTAE index). Byte 6 ccntains the relative LUBTAB 
index for system LUBs, or X'FF* for programmer LUEs. Byte 7 
ccntains the displacement index of the PIETi^E entry fcr the 
task requesting I/C (UK), or X*FF* if the channel queue entry 
is free. 



H 



H 



FLPTR (Free List 
Pointer) 



This one-byte pointer 
next free entry in the 



contains the displacement index of the 
channel queue table (CHT^NQ). 



TEETAE (Tape Error 

Block Table) 



One entry is built for 
visor generation time 
is included. 



each tape cartridge reader at super- 
if the FCFT macro parameter TEE=n 



H 



THTAB (Track-Hold 
Table) 



This table is built at 
TRKHLD=n parameter is 
in each entry points t 
fcr a track to be held 
entry if in the free 1 
is the last in a chain 
address. 



supervisor generation time if the 
included in the FOPT macro. Byte 
o the next entry in the chain of requests 

on a specific DASD (or the next free 

ist) , or it ccntains X'FF* if the entry 

Bytes 1, 2, and 3 contain the CCB 



Bytes 4 through 9 contain the disk address (BECCHH) of the held 
track. Eyte 10 contains the key of the evening task, or all 
zercs vihen the entry is free. Eyte 11 is a flag and counter 
byte: bit is turned on when a task requests a track already 
held by another task, and the value in the lev-order half-byte 
is incremented by one each time a task requests a hold on a 
track that it already holds itself. 

Note; yihen multiple hclds by one task are effective, the value 



in the lo^wer-order half-byte is one less than the actral number 
of holds 



H 



SAB (Seek Address 
Block) 



h 



This table is built at supervisor generation time if the 
SKSEP=n or YES parameter is included in the FOPT macrc. 
Bytes through 3 of each entry contain the current disk 
address (ECCH) for the device. Eyte 4 contains X 'FF • or points 
to the TKTAE entry. 



H 



LMT (Line Mode Table) 



This table is built at supervisor generation time when the 
TP=ETAM, or QTAM parameter is included in the SUPVR macro, and 
MCDEL=115 or 125. An entry is built fcr each device for which 
the EVGEN macro includes the NC£E=X'ssss* or X'ssssss* 
parameter. Each entry contains the actual mode setting for the 
device. 



Figure 15. I/C Table Interrelationships (Part 3 of 3) 
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JIBTAB 



^ o 




s« 




-? 








:5S 




c"E 




^i 




M 3 




s <« 




■fctS 




g^ 




H- C 








V. C 




li 


0) 


D"0 


p 


Z.S2 


4= 



h 



Byte (s) 



Eescripticn 



0-1 (Contents 
depends on the tit 
setting in hyte 2) 



Hit Setting 


[Contents 


Byte 2 


1 


Bit 0=1 Stored 


|LUB entry of stored standard assignirent. CFUB and 


standard 


|JIB pointer) 


assignirent 


1 




—J... m^mmmm..m» «»...«..»..«>..«»«»«»«.»«»««» .1.1.... «..«^«. «»«i.. ....^ ..»«»«..«»«».. ^» ...» ^ «. 


Bit 1=1 


iBvte 0: FUE rcinter 


Alternate 


(Byte 1: X'OO* 


assignirent 


1 

_i ^. ^ ^ ^ ^ , _^ ,^ 


Bit 2=1 


-.-|. « „ ^ — ^ — * -.^ .^ 

|Byte 0: Cylinder Icvier limit 


2311/231^/2319 


|Eyte I2 Cylinder upper limit 


Extent 


1 (Note 1) 


Bit 3=1 


|For 2321: Lcvser limit (Cell or combined sutcell 


2321/3330/3340 


1 and strip), or 


Extent 


1 Upper limit (Cell or ccmkinec sukcell 




1 and strip) 




|For 3330 




|or 3340: Cylinder Icv^er limit, or 




1 Cylinder upper limit 




1 (Cne cylinder number uses two bytes) 




1 (Ncte 2) 




1 (Note 3) 



H 



Meaning if bit = 1; 



Bit 



5: 
6/7: 



Stored standard assignment 

Alternate assignment 

2311/2314/2319 extent 

2321/3330/3340 extent 

The alternate assignment indicated in tit 1 is permanent. 

This bit is alsc en v*hen cne cf the extent indicators (bit 2 

and bit 3) is on. 

Cataloged procedures processing 

Beserved 



H 



Chain byte 

Contains the displacement index of the next JIB, 

end of the chain. 



X'FF* defines the 



Figure 16. Job Information Block (JIB) Table 
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Note 1 ! Onl^ vihen file-protect on DASE, 



Not e 2 ; Tvso JIBs are reqiaired for a 
2321/3330/3340 ententi one for Ic^er littiit 
and one for upper limit • 

The lower liirit defining JIE must fce 
chained to the upper liirit defining JIE. 

For 2321,, byte 1 of this type JIE contains 
the subcell number times 10 plus the strip 
number in binary. 



R cte 3 ; Extent inforiraticn is supplied by 
the program initiator and logical IOCS open 
transient routines. The supervisor can 
then perfcrm the file prctect function for 

the specified file limits, file protection 
does not include supervisor and transient 
originated I/O. 

Eytes 68-69 (x«4£«« - X'^iS*) cf the 
partition communication region contain the 
address cf the JIE table entry. label 
JIETAB identifies the first byte of the 
table. 



I Displacement I Label | 



Description 



Wcrk area used in SIC update 

Wcrk area used with ACCTWKl in start/step time routine 

Job card pcinteri address cf jet card field fcllcwing jcbname 

ID Cf partition in charge (partition switch name) 

Length cf SIO area=6n'H, where n=number of devices for this 
partition in SYSGEN option JA= (nl,n2,n3,n4,n5) 

Label area instruction; micves Ji^.I label area address to 
OEEK/CLCSE transients 

Reserved 

Address cf alternate label area 

Counter fcr CPU time elapsed in a jcbstep, counted in 300th of 
a second 

Counter fcr overhead time; time not charged to any partition 

Counter fcr all-bound time; system wait state time divided 
between running partiticns 

Save area for jcb name during simulated ECJ 



Job Accounting Interface Partition Table (ACCTxx) (Part 1 cf 2) 



1 0-3 


1 (ACCTAELE) | 

JACCTWKl 1 
1 1 


1 a-7 


1 1 
IACCTWK2 1 
1 1 


1 8-11 


1 1 
1 ACCTSVPT 1 
1 1 


1 12-13 


1 1 
1 ACCTPART 1 
1 1 


1 li*-15 


1 1 
JACCTLEN 1 

1 1 


1 16-21 


1 1 
1 ACCTLOAD 1 

1 1 


1 22-23 


1 1 
|ACCTRES3 1 
1 1 


1 24-27 


1 1 
1 ACCTLADD | 
1 1 


1 28-31 


1 1 

1 ACCTCPUT 1 

1 1 


1 32-35 


1 1 

1 ACCTOVHT 1 
1 1 


1 36-39 


1 1 

1 ACCTBNDT | 

! ! 


1 40-47 


1 i 

1 ACCTSV JN 1 


Figure 17. 


Job Accountin 
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I Displacement I 
+. 



Label 



J 



Eescripticn 



C 

o 

•H 
-P 
■H 
-M 
U 
n3 
CM 

O 

c 
o 

•H 
4J 

M 
O 



U 
0) 
03 
D 



< 



48-55 
56-71 
72-73 

74 

75 

76-83 

84-87 

88-91 

92-95 

96-103 

104-107 

108-111 

112-115 



120 



ACCTJENM 
ACCTUSRS 
ACCTPTID 

ACCTCNCL 

ACCTYPER 

ACCTDA1E 

ACCTSTRT 

ACCTSTCP 

ACCTRES 

ACCTEXEC 

ACCTHICR 

ACCTIMES 



ACCTSICS 



Jcb uaire; taken frcir jcfc card 

User infcrmation? 16 fcytes frcir jcb card 



Partiticn ID: 
fcrtrat 



•EG', •F4', •E3% ^2', cr 'El* in EECEIC 



Cancel code 

lype of record: 'S* = job step, 'L* = last step cf jcb 

Date in forirat specified at SYSGEN (MM/DD/YY or DD/fCM/YY) 

Start time cf jcb, in packed decimal CDHHMMSSF; F = sign) 

Stop time of job, in same format as ACCISIRI 

Reserved 

Phase name; taken from, exec\:te card 

End address of active program phase, from CCMREG 

CPU time elapsed in a job step; counted in 3C0th cf a second 

Cverhead time; elapsed time not charged tc any partition,, in 
300th cf a second 

i\ll-fccur:d ti!!^s,* «^'^t6!T «??it f^^Bfe tiire divided between 
running partitions, in 300th cf a second 

SIC tables: 6 bytes for each device specified by SYSGEN 
options, as follows: 2 bytes for device address (Ocuu), 4 
bytes for count of SICs in current jcbstep 

Cverflcv; byte: normally X'20*, but is X'30' if mere devices 
are used within a partition than specified by SYSGEK options 



No tes ; 

1, DSECT ACCTABLE symbolically addresses the JAI Partiticn Tables with labels as 
shown • Each partition in which JAI is supported has its own JAI Partiticn Table, 
labeled ACCTBG, ACCTF4, ACCTF3, ACCTF2, ACCTEl, fcr active partitions EG, F4, F3, 
F2, and Fl, respectively. 

2. The address of this table is in the partiticn Communication Region at displacement 
116 (X'74»). 

Figure 17. Job Accounting Interface Partition Table (ACCTxx) (Part 2 cf 2) 
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^ ^- 

I Displacement I 



T- 

Label | 



Eescription 



jTeirporary register sa'iie area 

[Save area for remainder of overhead counter tiires distributed 
I by partition en exit 

I Save area for remainder of all-bound counter tiires distributed 
I by partitions on entry 

I Count of partitions using the Job Accounting interface 

I Owner of physical transient area *) 

Interrupted program *) 

[Active program *) 

I Accounting switches: if bit=l, true; if bit=0, net true 

I bit 0: cancel accounting bit ^: IPL indicator 

I bit Is no active partitions tit 5; net used 

I bit 2: catalog in process bit 6j not used 

I bit 3; alternate label area bit 7: net used 

I Start time of current aeceunting interval , in ccmplem.ent format 

lEeserved 

[Address cf user save area (ACCTUSER) 

[length cf user save area (set vvith 1st cperand cf FCFT macrc 
[parameter JALIOCS) 

I Job accounting partition indication 

[Address of BG Job Accounting Table 





1 (ACCTCOMN) 


0-15 


ACCTSVRG 


16-17 


ACCTSVRX 


18-19 


ACCTSVRE 


20-23 


ACCTPCNT 


24 


ACCTSAID 


25 


ACCTFAID 


26 


ACCTRAID 


27 


ACCTSWCH 



28- 


-31 


ACCTIME 


32- 


•33 


ACCTRESC 


34- 


-35 


ACCTUSEP 


36- 


-37 


ACCTUSEL 


38- 


-39 


ACCT$J0B 


40- 


-43 


ACCTBLES 



If multiprogramming is supported, this table is tc be extended with one of the following 
fields (depending on the number of supported partitions), otherwise the table ends here. 



NPARTS=2 

r 

I 44-47 

I 

I 48-51 

I 
i 

t 



I [Address cf Fl Job Accounting Table 

I I 

(ACCTSEAS [Ccntrcl Field: prevents the accounting routine being loaded 

I [ twice 



NPARTS=3 
44-47 
48-51 
52-57 



-^ ^ 

[Address cf F2 Job Aeceunting Table 

I 

[Address of Fl Job Aeceunting Table 

I 

[ACCTSEAS [Control Field: prevents the accounting routine being leaded 
[twice 



L J. J. , . J 

*) These values are the same as the PIK values for the relevant tasks. 
Figure 18. Job Accounting Interface Cemmen Table (ACCTCCMN) (Part 1 cf 2) 
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NPARTS=4 



i Displacement j 


Label 


i Eescripticn 


1 44-47 


T 




1 Address cf F3 Job Accounting Table 
i 


1 48-51 






1 

(Address cf F2 Job Accounting Table 

1 


1 52-55 






1 

1 Address of Fl Job Accounting Table 

1 


1 56-63 

I . 


1 ACCTSEAS 

— X 


1 

1 Control Field: prevents the accounting routine being loaded 

(twice 



NPABTS=5 
44-47 
48-51 
52-55 
56-59 
60-69 



(Address cf F4 Job Accounting Table 

I 

(Address cf F3 Job Accounting Table 

I 

(Address cf F2 Job Acccunting Table 

I 

(Address cf Fl Job Acccunting Table 

I 

(ACCTSEAS (Control Field: prevents the accounting routine being loaded 
( tviice 



I A X. ^ , ^ ^ , . J 

Bytes 124-127 (X*7C' - X'7F*) of the Systeir Ccirirunicaticn Region (SYSCCI^) contain the 
address of the Job Accounting Interface Coirmon Table. label ACCTCCMN identifies the 
first byte of the table. 

Figure 18. Job Accounting Interface Cciriron Table CACCTCCMN) (Fart 2 ci 2i 
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1 Deciiral 

1 Displacement 


I 

1 Label 

.1 .^ 


Eyte 
Length 


.X^..»^. 




Description 


1 


IRFTABLE 
IRFFLAGSI 

1 
1 
1 

1 
1 

1 


1 


[label 
|Eit 0' 
1 l5 
1 2: 
1 3- 
1 ^' 
1 5 
1 6. 
1 7 


of Starting J^ddress 
. 1 = File full 

1 = REE cptiCE included 

1 = Initial IFI 

Reserved 

1 = File is to be created 

1 = File has been created 
Reserved 

1 = File open and ready 


1 1 


IRFFLAGS 
1 

1 


1 


|Eit 0' 
1 1' 
1 2 
1 3 
1 ^ 
1 5^ 
1 6- 
1 7 


I 1 
t 1 
! 1 

: 1 

I 1 
. 1 
I 1 
: 1 


= File full message request 
= last track message request 
= I/C error message request 
= Data lost message request 
= EVA message request 
= File owned by RTA recorder 
= File owned by PTA recorder 
= File being accessed by EREP 


1 2 


IRFFLAGS3 
1 


1 


|Eit 
1 1 
1 2 
1 3 
1 ^ 
1 5 
1 6 
1 7 


5 1 = last track message issued once 

1 = Error is tc be recorded . 

1 = Short form record request 
I 1 = Individual records fcr urlabeled tapes 
J Reserved ^**^ 
I Reserved 

1 = Exit to $$EOMT05 indicator fcr $$ECPEN 
I 1 = Exit tc $$ECMT01 indicator fcr $$ECPEN 


1 3 


IRFFLAGS4 
1 


1 


\ViCrk c 
lETAM 


irea 


switches fcr various transients including 


1 ^ 


IRFFLAGS5 


1 


iReserT 


zed 




1 5 


1 RFNOFN 


1 


|K of N records (lov? order *♦ bits contain the number of 
[records tc be prccessed, and high crder tits ccntain 
|the number of the record being processed. 


1 6 


1 RFRECTYP 


1 


[Recorc 


3 tyj 


:e code 


1 7 


1 RFREL 


1 


|EOS ID/Release level cede 


1 3 


1 RFRDSWl 
1 


1 


[Recorc 


3 dependent switch 1 


1 ^ 


IRFRDSW2 


1 


jRecorc 


3 dependent switch 2 


! 10 


IRFEXIT 


2 


[Exit phase name or exit address 



L« . X— 



-.X X J 



Figure 19. Recorder File Table (Part 1 of 2) 
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